Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.26;
Скачать: CL | DM;

Вниз

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;


 
Danger ©   (2003-03-29 18:42) [3]

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



Страницы: 1 вся ветка

Текущий архив: 2003.05.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
3-83410
Kirill_S
2003-05-06 18:36
2003.05.26
вывести данные из TEdit в QReport


11-83434
VaaL
2002-08-20 11:47
2003.05.26
Не компилится...


1-83487
Борис1
2003-05-15 13:18
2003.05.26
Работа с Word97


14-83689
Dimius
2003-05-06 10:33
2003.05.26
KDR-1321 карт-риадер (card reader)


3-83319
DelAlanPhi
2003-05-04 14:20
2003.05.26
Вопросы по BDE