Salvar página aberta no TWebBrowser
Como fazer para salvar a página aberta no TWebBrowser?
Djorius
Curtidas 0
Respostas
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;
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