Как можно получить доступ к DOM не используя TWebBrowser

← →
Евгений2 (2005-03-27 20:13) [0]

На один из моих вопросов http://delphimaster.net/view/6-1111330702/ "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) [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;

Как можно получить доступ к DOM не используя TWebBrowser Найти похожие ветки