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]

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

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