![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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