Arsip: Load image dari SQL SERVER

more 16 years ago
rebeltwisted
Teman2 semua... aq masih baru d dunia delphi... aq ingin nanya bagaimana caranya load image dari SQL server, dari field yang bertipe image (binary).
trus hasilnya ditampilka di TImage delphi.... aq uda coba begini...
procedure TFormlatihlvq.DBGrid1CellClick(Column: TColumn);
var
p: TADOBlobStream;
oJpeg : TJPEGImage;
oADOImage : TBlobField;
str:TStream;
begin
oJpeg := TJPEGImage.Create;
oADOImage := TBlobField.Create(self);
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from tb_gambar where id=2');
//Query2.ParamByName('nomor').AsInteger :=SpinEdit2.Value;
with oADOImage do
begin
TBlobField(Form1.ADOQuery1.FieldByName('gambar')).SaveToStream(str);
end;
Form1.ADOQuery1.Open;
Form1.ADOQuery1.ExecSQL;
p := TADOBlobStream.Create(oADOImage,bmRead);
If p.Size <> 0 then
begin
oJpeg.LoadFromStream(p);
Imageprev.Picture.Assign(oJpeg);
end;
//clean up
p.Free;
oJpeg.Free;
oADOImage.Free;
end;
Tapi hasilnya tidak berhasil... dikatakan tidak ditemukan adoquery1 field gambar.....
padahal struktur tb_gambar (id,gambar)....
mohon pencerahannya saudaraku....
thx's

more 16 years ago
rebeltwisted
setelah dirubah...
procedure TFormlatihlvq.DBGrid1CellClick(Column: TColumn);
var
p: TADOBlobStream;
oJpeg : TJPEGImage;
oADOImage : TBlobField;
str:TStream;
begin
oJpeg := TJPEGImage.Create;
oADOImage := TBlobField.Create(self);
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select gambar from tb_gambar where id=2');
Form1.ADOQuery1.Open;
Form1.ADOQuery1.ExecSQL;
//Query2.ParamByName('nomor').AsInteger :=SpinEdit2.Value;
oJpeg.Assign(Form1.ADOQuery1.FieldByName('gambar'));
Imageprev.Picture.Assign(oJpeg);
//clean up
oJpeg.Free;
end;
hasilnya jpeg error 53

more 16 years ago
rebeltwisted
udah coba pake TBitmap kaya gini...
procedure TFormlatihlvq.DBGrid1CellClick(Column: TColumn);
var
str:TMemoryStream;
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select gambar from tb_gambar where id=2');
Form1.ADOQuery1.Active:=true;
Form1.ADOQuery1.ExecSQL;
//Query2.ParamByName('nomor').AsInteger :=SpinEdit2.Value;
TBlobField(Form1.ADOQuery1.FieldByName('gambar')).SaveToStream(str);
Imageprev.Picture.Bitmap.LoadFromStream(str);
//Imageprev.Picture.Assign(jpg);
str.Free;
end;
Hasilnya stream write error....
tolong bantuannya dong....
isi type image di db yang ingin di load k image delphi seperti berikut
0x424D961500000000000036000000280000001F0000003900000001001800000000006015000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- cara copy clip vdieo di webnya youtube gimana ?
by Handoyo in Multimedia & Graphic Enhancement more 18 years ago - Ada yang pernah pake SQLLite???
by n3o_cybertech in Lain-lain more 16 years ago - kaos delphi ID
by dney in OOT more 16 years ago - Membaca data di SMDBGRID yg di centang
by onsir in MySQL more 17 years ago - menghapus kolom tertentu dalam ListView???
by s373n in Tutorial & Community Project more 16 years ago - Pls Mohon Bantuan, Data Tidak Tersimpan Karena ROLLBACK
by hendrang in Hal umum tentang Pascal Indonesia more 17 years ago - Bgmana Cara Embed Form DLL to TTabsheet di Form Pemaggil ?
by henry_sys in Form Enhancement & Graphical Controls more 13 years ago - blajar ZQuery
by luq_h in MySQL more 13 years ago - simpan jpg
by lela in Tip n Trik Pemrograman more 19 years ago - label pake timer
by delphi_tikuzz in Multimedia & Graphic Enhancement more 18 years ago