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

TWebBrowser: сорнанение HTML кода на диск.   Найти похожие ветки 

← →
ST ©   (2003-01-31 15:42) [0]

Имеется нижеприведённый алгоритм сабжа, но имеется громадный и непонятный косяк: после его (т.е. алгоритма) использования TWebBrowser полностью и без объяснений отказывается переходить по ссылкам на странице. Помогите плз. исправить. Заранее благодарен за копию ответа на мыло: st@intbel.ru

procedure GetHtmlCode(WebBrowser: TWebBrowser; FileName: string);
var
htmlDoc: IHtmlDocument2;
PersistFile: IPersistFile;
begin
htmlDoc := WebBrowser.document as IHtmlDocument2;
PersistFile := HTMLDoc as IPersistFile;
PersistFile.save(StringToOleStr(FileName), true);
while htmlDoc.readyState <> "complete" do
Application.ProcessMessages;
end;

---

← →
REA ©   (2003-01-31 15:43) [1]

А может ссылки относительные?

---

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

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



Память: 0.44 MB
Время: 0.011 c