Cara mendownload file Menggunakan Delphi 7

Download file menggunakan delphi 7

Untuk bisa mendownload suatu file dari website menggunakan bahasa pemrograman delphi maka diperlukan unit URLMon pada uses. Pperhatikan fungsi berikut ini yang akan digunakan untuk mendownload file dari alamat website tertentu.

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;

Cara penggunaan fungsi di atas adalah sebagai berikut:

procedure Button1Click(Sender:TObject);

begin

  if DownloadFile('http://downloads.sourceforge.net/sevenzip/7z920.exe','7z920.exe') then

  showmessage('Download Selesai') else

  showmessage('Download Gagal!')

end;