Salvar página aberta no TWebBrowser

Delphi

05/05/2006

Como fazer para salvar a página aberta no TWebBrowser?


Djorius

Djorius

Curtidas 0

Respostas

Flaviocont

Flaviocont

05/05/2006

var
oStringList: TStringList;
begin
oStringList := TStringList.Create;
try
oStringList.Text := WebBrowser1.OleObject.Document.Body.InnerHTML;
oStringList.SaveToFile(´c:\teste.html´);
finally
oStringList.Free;
end;
end;


GOSTEI 0
POSTAR