Скачать: CL | DM;

Как можно получить доступ к 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;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c