Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TWebBrowser [D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]


Danger ©   (2003-03-29 17:11:00) 

При написании програмы я столкнулся с такой проблемой - надо загрузить в веббраузер определенную вебстраницу, на ней найти кусок текста и направить его в обьект мемо. Но тут возникла такая трабла - как можно в веббраузере организовать поиск текста?? На худой конец можно попробовать сохранить его содержимое в текстовый файл и там уже искать обычными методами, но тут встает другая проблема, как это можно сохранить без участия юзера?? Буду благодарен за любой совет...


Danger   (2003-03-29 18:42:00) [1]

Все работает, спасибо :))


ALaKO   (2003-03-29 18:26:00) [2]

Передать обратно:

var
Document: IHTMLDocument2;
V: OleVariant;
begin

Document := WebBrowser1.Document as IHtmlDocument2;
V := VarArrayCreate([0, 0], varVariant);
V[0] := Memo1.Text;
Document.Write(PSafeArray(TVarData(v).VArray));
Document.Close;


ALaKO   (2003-03-29 18:25:00) [3]

var
Document: IHTMLDocument2;
V: OleVariant;
begin
Document := Webbrowser1.Document as IHtmlDocument2;
if Document <> nil then
Memo1.Text := (Document.all.Item(NULL, 0) as IHTMLElement).OuterHTML;

end;

uses ...MSHTML, ActiveX


Наверх

Титульная страница Поиск, карта сайта Написать письмо