Cara Menyimpan Gambar JPeg di MySQL dengan Delphi (II)

Cara menyimpan gambar JPEG di database MySQL, dan cara menampilkan dengan menggunakan Bahasa Delphi.
Sahabat-sahabat yang lagi senang belajar pemrograman, alangkah indahnya apabila program yang kita buat, indah dan menarik. Untuk mencapai tujuan tersebut kadang kita terhalang dengan cara bagaimana untuk membuatnya. Postingan ini akan membahas bagaimana cara menyimpan data gambar yang berformat JPEG.
Perlengkapan yang digunakan penulis :

1. Borland 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
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