[Delphi] Download File

Pada artikel ini saya ingin berbagi cara membuat fitur Download File pada Delphi menggunakan WinAPI UrlDownloadToFile..Oke langsung saja ya :D

Uses
URLMon

Fungsi Download File
function DownloadFile(SourceFile, DestFile: string): Boolean;


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

Contoh penggunaan:
procedure TForm1.Button1Click(Sender: TObject);
begin
  DownloadFile('www.sample.com/test/1.exe', 'C:\WINDOWS\1.exe') //then
end;

pada contoh diatas, kita mendownload file www.sample.com/test/1.exe dan menyimpannya di direktori C:\WINDOWS dengan nama 1.exe. Mudah kan? =))

referensi : msdn.microsoft.com/en-us/library/ms775123(v=vs.85).aspx

Semoga Bermanfaat

Artikel ini dibuat oleh Yudha Tri Putra sebagai penulis artikel, diperbolehkan menyalin artikel ini secara utuh tanpa mengubah atau menambah isi artikel.