Então Dalan, estou até pensando em algo parecido. A questão é que já tem uma
rotina toda pronta que usa como padrão o HTML completo. Vou ter que adptar
tudo se eu não conseguir salvar o HTML completo. Já estou vendo uma segunda
opção caso não consegui que parece com o que você sugeriu, peguei no
torry.net segue o código caso alguém tem algum problema parecido .
<code>
...download a file from the Internet?
Author: Thomas Stutz
{1.}
uses
URLMon, ShellApi;
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0,
nil) = 0;
except
Result := False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
const
// URL Location
SourceFile = 'http://www.google.com/intl/de/images/home_title.gif';
// Where to save the file
DestFile = 'c:\temp\google-image.gif';
begin
if DownloadFile(SourceFile, DestFile) then
begin
ShowMessage('Download succesful!');
// Show downloaded image in your browser
ShellExecute(Application.Handle, PChar('open'), PChar(DestFile),
PChar(''), nil, SW_NORMAL)
end
else
ShowMessage('Error while downloading ' + SourceFile)
end;
<code>
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Dalan Silveira
Enviada em: sexta-feira, 14 de agosto de 2009 16:48
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Re: Web Browser
Porque vc simplesmente não pega a url do webbrowser e usa um tidhttp para
baixar o html? Se precisar de ajuda pra isso só falar...
[]'s
2009/8/14 leite_romano <leite_rom...@yahoo.com.br
<mailto:leite_romano%40yahoo.com.br> >
>
>
> Obrigado Embarca,mas não funcionou nao salvou o HTML completo.
> --- Em delphi-br@yahoogrupos.com.br
<mailto:delphi-br%40yahoogrupos.com.br> <delphi-br%40yahoogrupos.com.br>,
> EmbarcaDelphi <embarcadel...@...> escreveu
> >
> > Amigo, segundo informações que tenho, seria:
> >
> > *uses
> > *ActiveX, MSHTML_TLB, SHDocVw_TLB,
> > ComCtrls, OleCtrls;
> >
> > *procedure *TForm1.Button1Click(Sender: TObject);
> > *var
> > *HTMLDocument: IHTMLDocument2;
> > PersistFile: IPersistFile;
> > *begin
> > *HTMLDocument := WebBrowser1.Document *as *IHTMLDocument2;
> > PersistFile := HTMLDocument *as *IPersistFile;
> > PersistFile.Save(StringToOleStr('c:\SavedFile.html'), System.True);
> > *end*;
> >
> >
> > Baixe o componente free "EmbeddedWB Component Pack"
> >
> >
> >
> >
> > marcelo escreveu:
> > >
> > >
> > > Boa noite senhores, já procurei de todo lado sem sucesso, alguém sabe
> > > se tem
> > > como salvar o HTML COMPLETO de um web browser sem a intervenção do
> > > usuários.
> > > Desde já agradeço a atenção de todos.
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > > .
> > >
> > >
> >
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.5.392 / Virus Database: 270.13.56/2302 - Release Date: 08/14/09
06:10:00
[As partes desta mensagem que não continham texto foram removidas]
