GetHtmlCode

пытаюсь получить код html из webbrowser1 и выдает ошибку
Access violation at address 00513A06 <b>in</b> module 'Project1.exe'. Read <b>of</b> address <b>00000000</b>'.
на строке
PersistFile.save(StringToOleStr(FileName), true);
подскажите в чем может быть проблема?использую следующий код
<b>uses</b> mshtml, activex;
....
<b>procedure</b> GetHtmlCode(WebBrowser: TWebBrowser; FileName: <b>string</b>);
<b>var</b>
 htmlDoc: IHtmlDocument2;
 PersistFile: IPersistFile;

<b>begin</b> 
 htmlDoc := WebBrowser.document <b>as</b> IHtmlDocument2;
 PersistFile := HTMLDoc <b>as</b> IPersistFile;
 PersistFile.save(StringToOleStr(FileName), true);
<b>end</b>;
6 ответов

да действительно
WebBrowser.document = <b>nil</b>
воспользовался примероми думал что достаточно перед процедурой указать
webBrowser.Navigate('ya.ru');


о вот так удалоcь сделать через компонент IdHTTP (нашел еще пример)
Memo1.Lines.Add(idhttp1.Get('http://www.ya.ru'));
причем адрес должен быть полным иначе ошибкану вопрос можно считать закрытым всем спасибо за вниманеи


PersistFile.save(FileName, true);
???


не получилосьта же самая ошибка выскакивает


42134,у тебя скорее всего
WebBrowser.document = <b>nil</b>


да действительно
WebBrowser.document = <b>nil</b>
воспользовался примероми думал что достаточно перед процедурой указать
webBrowser.Navigate('ya.ru');