Como salvar Pagina da web?
05/12/2003
0
como faço para salvar uma pagina da web em meu computador pelo delphi?
Fabiogr
Curtir tópico
+ 0
Responder
Posts
05/12/2003
Ljr
Isto irá salvar.
uses URLMon; ... function DownloadFile(Source, Dest: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; except Result := False; end; end; ... procedure TForm1.Button1Click(Sender: TObject); begin if DownloadFile (´http://www.clubedelphi.com.br/default.asp´, ´c:\windows\desktop\default.asp´) then ShowMessage(´Download Concluído!´) else ShowMessage(´Falha ao fazer o download!!´) end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)