Cara menyimpan gambar JPEG di database MySQL Dengan Program Delphi

Membuat sebuah aplikasi, alangkah indahnya apabila program yang dibuat indah dan menarik. Untuk mencapai tujuan tersebut kadang terhalang dengan cara bagaimana untuk membuatnya.

Postingan ini akan membahas bagaimana cara menyimpan data gambar yang berformat JPEG.
Perlengkapan yang digunakan penulis :

1. Delphi 7
2. Database MySQL, silahkan donlot gratis tanyakan ke bah gugel
3. Koneksi menggunakan ZEOS silahkan donlot dimari

Langkah 1

Masuk ke MySQL buat database beserta tablenya

 Create database jpeg; 
  Use jpeg; 
  Create table contoh( Nomor int auto_increment, Nama varchar(10), Photo longBlob, primary        key(nomor));

Langkah 2

Jalankan delphi 7 buat desain seperti berikut ini


















Langkah 3

Masukan scripnya

procedure TForm1.FormCreate(Sender: TObject);
 begin
  ZConnection1.Connect;
  ZTable1.Open;
end;

procedure TForm1.Image1DblClick(Sender: TObject);
var
op  : TOpenPictureDialog;
str : TStream;
begin
op := TOpenPictureDialog.Create(self);
op.Filter:=’JPEG File  |*.jpg ;*.jpeg’;
try
 if op.Execute then
  begin
   image1.Picture.LoadFromFile(op.FileName);
   str :=TFileStream.Create(op.FileName, fmOpenRead);
   try
     if image1.Picture <> nil then
      begin
       ZTable1.Edit;
       ZTable1photo.LoadFromStream(str);
       ZTable1.Post;
      end;
    finally
     str.Free;
    end;
   end;


  finally
    op.Free;
 end;
end;

procedure TForm1.DBNavigator1Click(Sender: TObject;  Button: TNavigateBtn);
var
  GbJPEG : TJPEGImage;
begin
case button of
  nbFirst..nbLast :
 begin
  GbJPEG := TJPEGImage.Create;
  try
   with GbJPEG do
    begin
     Assign(ZTable1.Fields[2]) ;
     image1.Picture.Assign(gbJPEG);
    end;
   finally
    GbJPEG.free;
   end;
  end;
 end;
end;



Selamat berkreasi


Listing lengkap silahkan donlot disini

sudah di donlot rename jadi file zip kemudian extract