Upload foto menggunakan Delphi Embarcadero

Jumpa lagi guest, kali ini saya membahas bagaimana cara upload foto menggunakan delphi.

Pertanyaannya adalah kapan kita perlu menggunakan fitur ini, pertama bila kita menggunakan database online, kedua foto tersebut harus diupload ke server.
Pertanyaan kedua adalah form apa saja yang menggunakan fitur ini:
Contoh penggunaannya pada forma master pelanggan, penduduk, barang dan lain lain

Beberapa yang harus dilakukan sebelum membuat program adalah membuat user ftp

Silahkan ikuti petunjuk dari www.kursuswebsitepro.com

Sampai sini saya anggap paham ya teman-teman, akan saya lanjutkan pada, ikuti koding seperti dibawah ini :

procedure TForm3.Button1Click(Sender: TObject);
begin
     if OpenPictureDialog1.Execute then
     begin
          EdtNamaFile.Text := OpenPictureDialog1.FileName;
          Image1.Picture := nil;
          Image1.Picture.LoadFromFile(EdtNamaFile.Text);
     end;
end;

procedure TForm3.FtpUploadFile;
begin
      try
          ftp.Username := 'user'; // username
          ftp.Password := 'user'; // password
          ftp.Host := '127.0.0.1'; // host
          FTP.Passive := True;
          FTP.Port := 21;

          if not ftp.Connected then
          begin
              ftp.Connect; // make a connection
          end;

          ftp.Put(EdtNamaFile.Text, ExtractFileName(EdtNamaFile.Text));
      finally

      end;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
     FtpUploadFile;
end;