Salva HTML TWebBrowser localmente
Olá pessoal,
tenho que pegar o conteúdo de um TWebBrowser e salvar localmente. Tenho que salvar com as imagens juntas.
Sem as imagens estou fazendo isso:
Como devo proceder para salvar TODO o documento localmente?
tenho que pegar o conteúdo de um TWebBrowser e salvar localmente. Tenho que salvar com as imagens juntas.
Sem as imagens estou fazendo isso:
var
HTMLDocument: IHTMLDocument2;
PersistFile: IPersistFile;
fileName : string;
begin
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
fileName := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)))+'file.html';
PersistFile := HTMLDocument as IPersistFile;
PersistFile.Save(StringToOleStr(fileName), System.True);
JvNavPaneToolPanel1.Caption := 'Documento "'+fileName+'" salvo em '+FormatDateTime('dd/mm/yy "-" hh:mm:ss', now);
end;
Como devo proceder para salvar TODO o documento localmente?
Carlos Phelippe
Curtidas 0