TWebBrowser

← →
Danger © (2003-03-29 17:11) [0]

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

← →
ALaKO (2003-03-29 18:25) [1]

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

← →
ALaKO (2003-03-29 18:26) [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;

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

TWebBrowser Найти похожие ветки