Tutorial Delphi

Seperti yang telah saya jelaskan sebelumnya, selain menggunakan layanan FTP kita juga bisa menggunakan layanan HTTP untuk melakukan proses upload dan download. berikut saya sharing source code untuk mendownload file dari internet dengan berbagai macam ekstensi file seperti *.zip, *.jep, *.pdf, *.docx dan semacamnya. Aplikasi Download File sederhana ini dilengkapi dengan progress bar sebagai penanda proses download yang sedang berjalan.

Adapun Untuk Button Unduh, Isi codingnya adalah sebagai berikut :

if (Edit1.Text='') or (ComboBox1.Text=' -- Pilih --') or (ComboBox1.Text='') then
    MessageDlg('Ops, Nampaknya ada yg salah !',mtWarning,[mbok],0) else
    begin
    SaveDialog1.DefaultExt:=ComboBox1.Text;
   with TDownloadURL.Create(self) do
   try
     URL:=Edit1.Text;
     if SaveDialog1.Execute then
     begin
     FileName := SaveDialog1.FileName;
     OnDownloadProgress := URL_OnDownloadProgress;
     ExecuteTarget(nil);
     end;
   finally
     Free;
     ShowMessage('Sukses : File Berhasil di Download !');
   end;
   end;

Jangan Lupa untuk menambahkan sebuah prosedur untuk progressnya sebagai berikut

procedure TForm1.URL_OnDownloadProgress;
begin
   ProgressBar1.Max:= ProgressMax;
   ProgressBar1.Position:= Progress;
end;

Sebagai Informasi, Aplikasi Download sederhana ini belum sepenuhnya berjalan dengan baik untuk semua ekstensi file. tapi sudah saya coba untuk mendownload file gambar dan berjalan dengan baik. anda dapat melakukan modifikasi pada source code yang ada agar dapat berjalan sesuai keinginan anda. Silahkan Download Projeknya disini. Selamat mencoba. :)