Arsip: menyimpan file gambar jpeg

more 19 years ago
erwinkiting
bagaiman cara menyimpan gambar berexstensi jpeg/jpg ke data base paradox dengan metode/cara penyimpanan melalui perintah SQL dan cara pembacaannya juga dgn perintah SQL
with Query1 do
begin
close;
sql.clear;
sql.add('insert into table1 values(.....................)');
ExecSQL;
end;
tapi perintah diatas harus ditambahin apa supaya bisa menyimpan file ke table1 yang mempunyai filed dgn type graphic

more 19 years ago
doditali
saya pake source ini utk database MySQL, saya kurang tahu juga apakah bisa source ini digunakan utk database PARADOX.
Silahkan mencoba
tapi tambahkan komponen openpicturedialog1
if (Tdasar.FieldByName('gambar').IsBlob)then
begin
ExtS :=copy(AnsiUpperCase(ExtractFileExt(OpenPictureDialog1.FileName)),2,MaxLongInt);
if (ExtS = 'JPEG') then ExtS := 'JPG'
if (ExtS = 'JPG') then
begin
try
TBlobField(Tdasar.FieldByName('gambar')).LoadFromFile(openpicturedialog1.filename);
image1.Picture.LoadFromFile(openpicturedialog1.filename);
except
showMessage('Error during BlobOperation');
end;
end;
end;

more 19 years ago
doditali
ato dengan cara ini
dari http://www.swissdelphicenter.ch/en/showcode.php?id=1883
procedure TForm1.Button1Click(Sender: TObject);
var
ms: TMemoryStream;
begin
if OpenPictureDialog1.Execute then
begin
ms := TMemoryStream.Create;
try
ms.LoadFromFile(OpenPictureDialog1.FileName);
with Query1 do
begin
with SQL do
begin
Clear;
Add('INSERT INTO "ImageTbl.db" (ImageFld)');
Add('VALUES (:param0 )');
end;
Query1.ParamByName('param0').SetBlobData(ms.Memory, ms.Size);
ExecSQL;
end;
finally
ms.Free;
end;
end;
end;
Silahkan mencoba

more 19 years ago
delphy
waahh.... kereeeennnn.....
berguna sekali nih..
ntar tak submit masuk ke artikel

more 18 years ago
dakocan
saya pake source utk menginsert gambar bertipe blob di MySQL dan berhasil.
trus gimana sich sourcenya utk menampilkan hasil gambarnya, gimana yah ?????
gambarnya bertipekan *.jpg
help me please

more 18 years ago
dermawan
Saya coba cara kedua doditali yang menggunakan :param0 itu pada ADOQuery. Sepertinya ADOQuery tidak bisa pakai cara itu yah? Karena gak ada method SetBlobData. Saya kesulitan nih, mohon bantuannya :)
Thanx,
Dermawan

more 18 years ago
lord_kimm
procedure TFrmDataGuru.BitBtn1Click(Sender: TObject);
var
FileStream: TFileStream;
BlobStream: TStream;
begin
//Ngesave Foto kedalam BLOB nya database/Table
if (OpenDialog1.Execute) then
begin
Table1.Edit;
try
BlobStream := table1.CreateBlobStream(Table1.FieldByName('NAMAFIELD'),bmWrite);
FileStream := TFileStream.Create(OpenDialog1.FileName,fmOpenRead or fmShareDenyNone);
BlobStream.CopyFrom(FileStream,FileStream.Size);
FileStream.Free;
BlobStream.Free;
Table1.Post;
except
Table1.Cancel;
end;
end;
end;
Kompatibel dengan database : Interbase,Firebird,Paradox,Absolute,Advantage
+ BTW di klause use jangan lupa make jpeg (kalau gak salah lho)
+ NamaField Jangan Harus BLOB
+ Kode ini menggunakan OpenDialog buat nyari File JPEG nya
Good Luck
more 18 years ago
dermawan
Thanx atas replynya, lord_kimm :)
Tapi saya tidak mau menggunakan Tabel, soalnya tabel yang isinya foto itu ada banyak sekali, dan waktu table di buka, lamanya minta ampun deh, dan pemakaian memori sangat boros.
Tabel Photo saya hanya berisi sebuah integer dan sebuah longblob pada MySQL.
Jadi, kalau bisa saya tidak mau pakai tabel. Bisa bantu saya?
Thanx :)
Dermawan

more 18 years ago
lord_kimm
wah maaf banget kurang tau seeh kalau lewat Query!
Dulu pernah dikasih contekan masalah nyolok JPEG lewat Query dengan kompresasi ZLIB biar cepet nyampek ke Database cuman source codenya hilang atau keapus gitu tapi ntar aku usahain bisa deh nyari.
Aku jarang banget nyolok JPEG ke DB lewat Query cuz maennya database sebatas LAN atau Lokal maklum kegiatannya sebatas dilingkungan sekolah :oops:

more 18 years ago
grounders
Bukannya hal ini pernah dibahas sebelumnya, baik yang menggunakan Query atau Table. Memang lebih baik menggunakan Query (Fetch On Demand) karena tidak membebani memori dan aplikasi menjadi lebih ringan.
Saya pernah membuat yg untuk ADO baik dengan Query atau Table, tolong dicari terlebih dahulu, nanti kalo tidak ada insyaAllah akan saya postingkan, saya tunggu konfirmasinya
more ...
- Pages:
- 1
- 2
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
- Managemen Mikrotik via Delphi
by $tring in Games more 15 years ago - Create menu Item di Delphi IDE [problem: cannot dropdown..]
by wongdee2t in Enginering more 19 years ago - to Cyber_hacker
by grounders in Hal umum tentang Pascal Indonesia more 19 years ago - Stored Procedure + Parameters
by zones in Tip n Trik Pemrograman more 16 years ago - MyISAM dengan InnoDB
by onsir in MySQL more 17 years ago - Import DBF ke Access
by xmbohx in Tip n Trik Pemrograman more 17 years ago - membuat report yang berisi data gambar
by asepolin in Hal umum tentang Pascal Indonesia more 15 years ago - Membuat Laporan Dengan QReport
by xproof in Tip n Trik Pemrograman more 16 years ago - Ada yang pernah coba Zeos + SQLite3 + Delphi 2010?
by mambamaestro in Hal umum tentang Pascal Indonesia more 14 years ago - Bagaimana ngeprint 1/2 HVS ?
by userdelphi in Lain-lain more 15 years ago