webbrowser

Ответ от Ru-admin[гуру]
uses ActiveX;
function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;
var ps: IPersistStreamInit;
fs: TFileStream;
sa: IStream;
SaveResult: HRESULT;
begin
ps := WebBrowser.Document as IPersistStreamInit;
fs := TFileStream.Create(FileName, fmCreate);
try
sa := TStreamAdapter.Create(fs, soReference) as IStream;
SaveResult := Succeeded(ps.Save(sa, True));
finally
fs.Free;
end;
end;
function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
var ps: IPersistStreamInit;
ss: TStringStream;
sa: IStream;
s: string;
SaveResult: HRESULT;
begin
ps := WebBrowser.Document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa := TStreamAdapter.Create(ss, soReference) as IStream;
SaveResult := Succeeded(ps.Save(sa, True));
if SaveResult then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WB_SaveHTMLCode(Webbrowser1, 'c: est.txt');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
end;
------------------------------------------------------------------------
Функция WB_SaveHTMLCode сохраняет открытую в данный момент страницу в файл test.txt. А чтобы перейти на какую-то страницу используй
WebBrowser1.Navigate('');
------------------------------------------------------------------
В твоей функции я не увидел SaveResult: HRESULT; , тебе в код нужно просто обьявить свою переменную так Result: HRESULT;
=================================================
Вот тебе литература delphiexpert.ru/view_lesson.php?id=28