Como salvar Pagina da web?
como faço para salvar uma pagina da web em meu computador pelo delphi?
Fabiogr
Curtidas 0
Respostas
Ljr
05/12/2003
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;
GOSTEI 0