FTP Upload dengan Delphi

 helmy ardiyansyah
  email :alhilalardiyansyah@gmail.com

Teman2, telah banyak kita ketahui program-program FTP upload seperti
WinSCP2 dll. Tapi apa salahnya kalo kita membuat sendiri program upload file ke FTP
server. Jika kita akan membuat program aplikasi misalnya video streaming dimana file
image akan dikirim ke server secara terus menerus berdasarkan periode waktu tertentu.
Tentunya kita memerlukan program yang dapat mengupload file tersebut secara
otomatis. Baiklah tanpa panjang lebar lagi, dimulai dengan mempersiapkan komponen
delphi untuk upload file. Komponen tersebut adalah FTP2ActiveX yang dapat
didownload di http://www.chilkatsoft.com/. Baiklah setelah mendapatkan file tersebut
install file ke sistem windows kemudian install ke delphi. Adapun cara menginstall ke
delphi adalah sebagai berikut:
1. klik Componen → Import ActiveX Control seperti gambar dibawah ini









,    ]
 2. Pada window activeX pilih chilkat Ftp2 → klik install
 







    

 3. Pada wondow Install klik OK → rebuild klik yes → OK
Seteleh terinstall, maka pada ActiveX akan muncul componen ChilkatFTP2 seperti pada
gambar berikut:
 
      Setelah semuanya sudah siap, sekarang waktunya mebuat form dari delphi7. Rancangan
formnya sederhana saja, seperti pada gambar dibawah
Nah berikut ini program yang digunakan untuk mengupload file..
procedure TForm1.BitBtn1Click(Sender: TObject);
var
ftp: TChilkatFtp2;
success: Integer;
localFilename: String;
remoteFilename: String;
begin
ftp := TChilkatFtp2.Create(Self);
success := ftp.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
begin
ShowMessage(ftp.LastErrorText);
end;
ftp.Hostname := 'aegis'; //Server Yang digunakan
ftp.Username := 'dayat';
ftp.Password := 'daysdk63';
success := ftp.Connect();
if (success <> 1) then
begin
ShowMessage(ftp.LastErrorText);
end;
success := ftp.ChangeRemoteDir('/public_html'); //derectori upload
if (success <> 1) then
begin
ShowMessage(ftp.LastErrorText);
end;
localFilename := 'F:\project\WebcamDelphi\foto.gif'; //direktori file yang akan diupload
remoteFilename := 'foto.gif';
success := ftp.PutFile(localFilename,remoteFilename);
if (success <> 1) then
begin
ShowMessage(ftp.LastErrorText);
end;
ftp.Disconnect();
ShowMessage('File Uploaded!');
end;


nah, jalankan program..jika proses upload sukses akan muncul pesan seperti pada gambar dibawah ini

  

Nah itulah program upload ke FTP server....
Have a nice day :)
Referance
http://www.example-code.com
http://www.chilkatsoft.com/.


  .hecking familly