Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Обращение к серверу, Надо обработать ответ от сервера 
:(
    Опции темы
lifer
Дата 17.1.2004, 21:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 17.1.2004
Где: Kiev, Ukraine

Репутация: нет
Всего: нет
Значит так:
Мне надо выполнить запрос к серверу (http://www.somewhere.ru/script.php?name=vasya&pass=pupkin)

Если я делаю это через shellexecute - загружается ХТМЛ страница.
Код
ShellExecute(Handle, 'open', 'http://www.somewhere.ru/script.php?name=vasya&pass=pupkin',nil,nil, SW_SHOWNORMAL);

Вопрос: Как моей программе обработать полученную страницу (взять из неё определённую строку) ?

ЗЫ. Не ругайте, если какую-то пургу написал. Просто это всё, что на данный момент у меня в голове по этому вопросу smile.gif
PM MAIL WWW ICQ   Вверх
PROme
Дата 17.1.2004, 21:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 346
Регистрация: 23.7.2003
Где: Kiev

Репутация: нет
Всего: 1
Lifer, ну ты даешь!
Делается легко - открываешь контакт лист Аси, находишь ***_PRO
И нагружаешь его этой байдой! Так чтоб жизнь малиной не казалась wink.gif biggrin.gif


--------------------
SEO-мастер
PM MAIL WWW   Вверх
lifer
Дата 17.1.2004, 21:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 17.1.2004
Где: Kiev, Ukraine

Репутация: нет
Всего: нет
Хватит прикалываться.
PM MAIL WWW ICQ   Вверх
Kesh
Дата 17.1.2004, 21:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 4
Всего: 54
По-моему для тебя проще будет создать на форме компонент TWebBrowser
user posted image
А потом
Код
WebBrowser1.Navigate(http://www.somewhere.ru/script.php?name=vasya&pass=pupkin)

А потом в нем уже искать чего нужно...


--------------------
user posted image
PM MAIL WWW ICQ Skype   Вверх
Pakshin A. S.
Дата 17.1.2004, 22:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
А, по-моему, WebBrowser не даст просмотеть HTML код отображенной страницы, или я ошибаюсь?
PM   Вверх
Kesh
Дата 17.1.2004, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 4
Всего: 54
Так просто не даст, но там есть Document: IDispatch...


--------------------
user posted image
PM MAIL WWW ICQ Skype   Вверх
lifer
Дата 17.1.2004, 22:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 17.1.2004
Где: Kiev, Ukraine

Репутация: нет
Всего: нет
А где именно искать Document: IDispatch ?
PM MAIL WWW ICQ   Вверх
Kesh
Дата 17.1.2004, 22:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 4
Всего: 54
lifer Ты знаешь, наверное мой совет тебе не подойдет... Мне кажется пока это еще слишком сложно для тебя...
Ладно, подумаю, что можно сделать...


--------------------
user posted image
PM MAIL WWW ICQ Skype   Вверх
lifer
Дата 17.1.2004, 22:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 17.1.2004
Где: Kiev, Ukraine

Репутация: нет
Всего: нет
нашёл в Хелпе по Делфи Document: IDispatch. Там сказанно что он делает, а как именно его юзать - нет.
PM MAIL WWW ICQ   Вверх
lifer
Дата 17.1.2004, 22:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 17.1.2004
Где: Kiev, Ukraine

Репутация: нет
Всего: нет
Мне надо только достать эту строку... дальше я знаю как делать...
PM MAIL WWW ICQ   Вверх
Kesh
Дата 17.1.2004, 22:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 4
Всего: 54
Блин, да у нас это в FAQ'e есть...
Цитата
В IE5, можно получить исходник используя свойство outerHTML тэгов
HTML. В IE4 или IE3, Вам понадобится записать документ в файл, а затем
загрузить файл в TMemo, TStrings, и т.д.
Код

var
 HTMLDocument: IHTMLDocument2;
 PersistFile: IPersistFile;
begin
...
 HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
 PersistFile := HTMLDocument as IPersistFile;
 PersistFile.Save(StringToOleStr('test.htm'), True);  
 while HTMLDocument.readyState < > 'complete' do
   Application.ProcessMessages;
...
end;


Автор: Ron Loewy Обратите внимание: Вам понадобится импортировать библиотеку
MSHTML и добавить MSHTML_TLB как ActiveX, в секцию Uses.



--------------------
user posted image
PM MAIL WWW ICQ Skype   Вверх
Kesh
Дата 17.1.2004, 22:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 4
Всего: 54
Только по-моему надо так...
Код
begin
...
 HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
 PersistFile := HTMLDocument as IPersistFile;
 while HTMLDocument.readyState < > 'complete' do
   Application.ProcessMessages;
 PersistFile.Save(StringToOleStr('test.htm'), True);  
...
end;



--------------------
user posted image
PM MAIL WWW ICQ Skype   Вверх
Kesh
Дата 17.1.2004, 22:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 4
Всего: 54
А вот еще...
Цитата
Найти и выделить текст в TWebBrowser?
Код

{....}  

 private  
   procedure SearchAndHighlightText(aText: string);  
     
{....}  

procedure TForm1.SearchAndHighlightText(aText: string);  
var  
 i: Integer;  
begin  
 for i := 0 to WebBrowser1.OleObject.Document.All.Length - 1 do  
 begin  
   if Pos(aText, WebBrowser1.OleObject.Document.All.Item(i).InnerText) <> 0 then  
   begin  
     WebBrowser1.OleObject.Document.All.Item(i).Style.Color := '#FFFF00';  
     WebBrowser1.OleObject.Document.All.Item(i).ScrollIntoView(True);  
   end;  
 end;  
end;  

procedure TForm1.Button1Click(Sender: TObject);  
begin  
 SearchAndHighlightText('some text...');  
end;
 



--------------------
user posted image
PM MAIL WWW ICQ Skype   Вверх
lifer
Дата 17.1.2004, 23:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 17.1.2004
Где: Kiev, Ukraine

Репутация: нет
Всего: нет
Цитата
Автор: Ron Loewy Обратите внимание: Вам понадобится импортировать библиотеку
MSHTML и добавить MSHTML_TLB как ActiveX, в секцию Uses.

Ну добавил я эту библиотеку а мне пишет PersistFile: IPersistFile --- Undeclared Identifier 'IPersistFile'

Млин, только не ругайтесь сильно, я с этой темой первый раз столкнулся smile.gif
PM MAIL WWW ICQ   Вверх
Kesh
Дата 17.1.2004, 23:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 4
Всего: 54
Да я по хорошему... тоже...

У тебя IE какой?..


--------------------
user posted image
PM MAIL WWW ICQ Skype   Вверх
lifer
Дата 18.1.2004, 02:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 17.1.2004
Где: Kiev, Ukraine

Репутация: нет
Всего: нет
у меня IE 5.0.
PM MAIL WWW ICQ   Вверх
lifer
Дата 18.1.2004, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 17.1.2004
Где: Kiev, Ukraine

Репутация: нет
Всего: нет
В общем, мне нужно из TWebbrowser достать исходный текст на ХТМЛ, чтобы дальше его мучать. Пример приведенный выше у меня не заработал sad.gif
PM MAIL WWW ICQ   Вверх
Kesh
Дата 18.1.2004, 14:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 4
Всего: 54
Добавь ActiveX в Uses


--------------------
user posted image
PM MAIL WWW ICQ Skype   Вверх
lifer
Дата 18.1.2004, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 17.1.2004
Где: Kiev, Ukraine

Репутация: нет
Всего: нет
OK.
Ещё вопрос:
Я пишу: TWebBrowser.Navgate('http://somewhere.ru/script.php?name=vasya&pass=pupkin');
А он мне выдаёт что такой страницы нет, хотя она точно есть. Я думаю что он не понимает Амперсанд (&) нормально. Как его правильно записать?
PM MAIL WWW ICQ   Вверх
lifer
Дата 18.1.2004, 16:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 17.1.2004
Где: Kiev, Ukraine

Репутация: нет
Всего: нет
Извините, меня глючило. Уже всё ОК. smile.gif
PM MAIL WWW ICQ   Вверх
lifer
Дата 18.1.2004, 23:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 17.1.2004
Где: Kiev, Ukraine

Репутация: нет
Всего: нет
Я сделал так, как в том примере было. Т.е. я загружаю содержимое страницы в файл, а потом из него читаю. Но помоему, я делаю лишнюю работу. Можно ли обойтись без записи в файл?

Это сообщение отредактировал(а) lifer - 18.1.2004, 23:45
PM MAIL WWW ICQ   Вверх
Kesh
Дата 19.1.2004, 02:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 4
Всего: 54
Цитата(kesh @ 17.1.2004, 19:51)
А вот еще...
Цитата
Найти и выделить текст в TWebBrowser?
Код

{....}  

 private  
   procedure SearchAndHighlightText(aText: string);  
     
{....}  

procedure TForm1.SearchAndHighlightText(aText: string);  
var  
 i: Integer;  
begin  
 for i := 0 to WebBrowser1.OleObject.Document.All.Length - 1 do  
 begin  
   if Pos(aText, WebBrowser1.OleObject.Document.All.Item(i).InnerText) <> 0 then  
   begin  
     WebBrowser1.OleObject.Document.All.Item(i).Style.Color := '#FFFF00';  
     WebBrowser1.OleObject.Document.All.Item(i).ScrollIntoView(True);  
   end;  
 end;  
end;  

procedure TForm1.Button1Click(Sender: TObject);  
begin  
 SearchAndHighlightText('some text...');  
end;
 

Читай внимательнее...


--------------------
user posted image
PM MAIL WWW ICQ Skype   Вверх
lifer
Дата 19.1.2004, 15:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 17.1.2004
Где: Kiev, Ukraine

Репутация: нет
Всего: нет
Код

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
var
i:integer;
begin
for i := 0 to WebBrowser1.OleObject.Document.All.Length - 1 do
begin
  if Pos('pass=', WebBrowser1.OleObject.Document.All.Item(i).InnerText) <> 0 then
  begin
    memo2.text:=memo2.text+WebBrowser1.OleObject.Document.All.Item(i).InnerText;
    end;
end;
end;


Так мне надо исходный ХТМЛ код, а эта процедура мне сохраняет только видимый текст.
PM MAIL WWW ICQ   Вверх
lifer
Дата 20.1.2004, 20:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 17.1.2004
Где: Kiev, Ukraine

Репутация: нет
Всего: нет
ап
PM MAIL WWW ICQ   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1021 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.