Скачать: 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
Сатир
2005-05-30 14:28
2005.06.29
Сабж
14-1117827326
Alx2
2005-06-03 23:35
2005.06.29
Прошу помощи астрофизиков! СРОЧНО!
1-1118219077
В л а д и м и р
2005-06-08 12:24
2005.06.29
Перевод курсора в конец текста
1-1118140307
Sigetta
2005-06-07 14:31
2005.06.29
Размер exe-шника
1-1118222933
Ярослав
2005-06-08 13:28
2005.06.29
Сохранить файл в Unicode