Fórum Como baixar arquivos da Internet com Delphi ???? #183958

implementation

{$R *.dfm}

uses WinInet; //-->>> IMPORTANTE

function DownloadArquivo(const Origem, Destino: String): Boolean;
const BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: File;
  sAppName: string;
begin
 Result   := False;
 sAppName := ExtractFileName(Application.ExeName);
 hSession := InternetOpen(PChar(sAppName),
                INTERNET_OPEN_TYPE_PRECONFIG,
               nil, nil, 0);
 try
  hURL := InternetOpenURL(hSession,
            PChar(Origem),
            nil,0,0,0);
  try
   AssignFile(f, Destino);
   Rewrite(f,1);
   repeat
    InternetReadFile(hURL, @Buffer,
                     SizeOf(Buffer), BufferLen);
    BlockWrite(f, Buffer, BufferLen)
   until BufferLen = 0;
   CloseFile(f);
   Result:=True;
  finally
   InternetCloseHandle(hURL)
  end
 finally
  InternetCloseHandle(hSession)
 end
end;

procedure TForm1.Button1Click(Sender: TObject);
var Origem, Destino: string;
begin
 Origem  := ´http://www.salesiano.com.br/egama/3OF9.TTF´;
 Destino := ´e:\tmp\3OF9.TTF´;

 if DownloadArquivo(Origem, Destino) then
    ShowMessage(´Download OK´)
 else
    ShowMessage(´Erro no download´)
end;