Скачать: 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
Karnak
2005-06-07 00:59
2005.06.29
Путь папки windows
1-1118310092
_BasiL_
2005-06-09 13:41
2005.06.29
Нить и ЦП
9-1111489083
Xeno
2005-03-22 13:58
2005.06.29
Деформация
14-1117462017
Fessio
2005-05-30 18:06
2005.06.29
хелп плизз с методом резолюций
9-1111585363
Starter
2005-03-23 16:42
2005.06.29
Misc of GLScene