Stahování souborů z internetu - opatření proti zamrznutí – Delphi – Fórum – Programujte.com

AHoj mám takový kód:

Uses URLMon, ShellApi;

.



function DownloadFile(Zdroj, Cil: string): Boolean;

begin

try

  Result := UrlDownloadToFile(nil, PChar(Zdroj), PChar(Cil), 0, nil) = 0;

except

  Result := False;

end;

end;



procedure TForm1.Button1Click(Sender: TObject);

const

ZdrojovySoubor = '/soubor.exe';

CilovySoubor  = 'c:\soubor.exe';

begin

  if DownloadFile (ZdrojovySoubor, CilovySoubor) then ShowMessage('Stažení souboru bylo

úspěšné')

  else ShowMessage ('Chyba při stahování souboru ')

end;