Как можно получить доступ к DOM не используя TWebBrowser [D6, D7, WinXP]
Евгений2 © (2005-03-27 20:13:00)
На один из моих вопросов
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1111330702&n=4
"Anatoly Podgoretsky" ответил след: "все то же самое только
парсишь на сервере". С тех пор кончилась моя спокойная жизнь. Всю
сеть перерыл но так и не понял как "это самое" сделать.
пробовал так:
strHTML := idHTTP1.Get('
http://www.mail.com');
Strl := TStringList.Create;
try
Idoc:=CreateComObject(Class_HTMLDOcument) as IHTMLDocument2;
....
...
..
- но в том месте где CreateComObject вылазит ошибка
EOleSysError with message 'CoInitialize has not been called'
Заранее большое спасибо за любое участие
easy (2005-03-28 13:11:00) [1]
uses
ActiveX,
MSHTML;
procedure TForm1.Button1Click(Sender: TObject);
var
vContext: OleVariant;
vDocument: IHTMLDocument2;
begin
vDocument := CoHTMLDocument.Create as IHTMLDocument2;
vContext := VarArrayCreate([0, 0], varVariant);
vContext[0] := '<html><body><a
href="">a tag1</a><a href="">a
tag2</a></body></html>';
vDocument.Write(PSafeArray(TVarData(vContext).VArray));
vDocument.Close;
ShowMessage(vDocument.body.parentElement.outerHTML);
end;
Наверх 
ЧАТ |
Орешник |
|
