Download Sebuah File Dari Internet Dengan Delphi

18 02 2013

delphiPada tips dan trik kali ini saya mencoba berbagi ilmu yang saya tahu kepada pengunjung setia blog ini, yaitu bagaimana caranya men-download sebuah file dari internet dengan Delphi.

Tanpa saya berbicara panjang lebar, mari kita coba source code berikut ini :

  1. Buatlah project baru. Caranya File->New->Application
  2. Pada Form tambahkan sebuah komponen Button. Kemudian tulis Source Code dibawah ini :
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, UrlMon, ShellAPI, StdCtrls;
type
 TForm1 = class(TForm)
 btn1: TButton;
 procedure btn1Click(Sender: TObject);
 procedure FormCreate(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 function DownloadFile(SourceFile, DestFile: string): Boolean;
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
function TForm1.DownloadFile(SourceFile, DestFile: string): Boolean;
 begin
 try
 Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
 except
 Result := False;
 end;
 end;
procedure TForm1.btn1Click(Sender: TObject);
 const
 // Lokasi URL
 SourceFile = 'http://www.affriza-ext.tk/wp-content/uploads/2013/01/afsav_0.1.3_build28.exe';
 // Tempat dimana file disimpan
 DestFile = 'c:\afsav_0.1.3_build28.exe';
 begin
 if DownloadFile(SourceFile, DestFile) then
 begin
 ShowMessage('Download succesful!');
 // Menampilkan file yg diunduh di browser
 ShellExecute(Application.Handle, PChar('open'), PChar(DestFile),
 PChar(''), nil, SW_NORMAL)
 end
 else
 ShowMessage('Error while downloading ' + SourceFile)
 end;

Simpan dan jalankan Project Anda dan jika lokasi URL yang Anda masukkan benar maka proses download akan berlangsung.

Catatan :

Jangan lupa menambahkan uses URLMon dan ShellAPI.

Selamat Mencoba!


Aksi

Information

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s




%d blogger menyukai ini: