Arsip: simpan jpg

more 15 years ago
lela
gima sih caranya menyimpan foto dalam format jpg ke MYSQL, saya disini menggunakan komponen DB Express, dibantu dengan ClientDataSet,

more 15 years ago
ZeAL
Yang simpel sih buka pake DBImage, trus pake perintah SaveToFile(NamaFile) dari komponen itu...
Lupa syntax penuhnya.. sekarang lagi diwarnet.. (mana ada warnet yang install delphi.. paling warnet yang ditongkrongin si CH)

more 15 years ago
.
lho emangnya bisa format jpg disimpan tanpa komponen tambahan ?
cyber_hecker
paling warnet yang ditongkrongin si CHwakakakak... wah sama, diwarnet sini juga gak ada. tapi kan tamagochi ku udah ku install delphi, jadi bisa main delphi dimana aja. kekekekek


more 15 years ago
ZeAL
oia.. lupa.. jpg yah...
hmm... simpen dulu ke bmp trus convert jadiin jpg.. beresssss.....
cara convertnya nantyi dulu... nyari dulu di gudang... lupa.. :D :D

more 15 years ago
octavian1972
Maksud pertanyaan nya bukan nya dari JPG di simpan ke MySql khan?? bukan dari dbImage ke JPG?? aku juga butuh jawaban nya neeh, soalnya selama ini aku pake TImage -> picture.CopyToClipboard trus dbImage -> Picture.PasteFromClipboard. ada yg lebih simple lagi gak yah

more 15 years ago
saysansay
Wew...males diriku jawab kalau ada hubungannya dengan gambar...perasaan gambar nga penting2 amat wakakakaakak ya uda..kasihan yang blum tau...pertama...untuk menyimpan JPEG Ke dalam database..Cari dulu TJPEGIMAGE..freware...usaha dulu ya klu nga ada baru minta ke ana...klu lom usaha ana nga mau ngasih,..nah untuk sorce codenya...
cari gambar yang mau disave...kedatabase...
procedure TForm1.btnSelectImageClick(Sender: TObject);
var
Strm : TMemoryStream;
begin
{ Database : Ms SQL Server 7.0 }
{ InfoImage : Type field di SQL Server - Image }
{ InfoImage : BlobType di Delphi - ftBlob (default)}
if OpenPictureDialog1.Execute then
begin
with Table1 do
begin
Open;
Append;
Table1ImageName.AsString := OpenPictureDialog1.FileName;
Strm := TMemoryStream.Create;
try
Strm.LoadFromFile(OpenPictureDialog1.FileName);
Table1ImageInfo.LoadFromStream(Strm);
finally
Strm.Free;
end;
Post;
end;
end;
end;
Untuk yang selanjutnya didatabase...
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
Strm : TMemoryStream;
JPEGImage : TJPEGImage;
begin
Strm := TMemoryStream.Create;
JPEGImage := TJPEGImage.Create;
try
Table1ImageInfo.SaveToStream(Strm);
Strm.Position := 0;
JPEGImage.LoadFromStream(Strm);
Image1.Picture.Assign(JPEGImage);
finally
Strm.Free;
JPEGImage.Free;
end;
end;
Abis ini ana nga mau jawab lagi yang berhubungan dengan image..bosan oiii..
wassalam
Nb : Moga membantu..MYSQL...Ana lom coba..coz MYSQl ana Erorr...
more 15 years ago
LuriDarmawan
bagi yang ga pingin cari2 komponen tambahan lain,
jika ingin menyimpan file image tanpa perlu menampilkannnya dulu, bisa dengan cara ini juga.
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" (ImageFld)');
Add('VALUES (:param0 )');
end;
Query1.ParamByName('param0').SetBlobData(ms.Memory, ms.Size);
ExecSQL;
end;
finally
ms.Free;
end;
end;
end;
lumayan lah..
btw,
jgn lupa, tipe field adalah blob
more 15 years ago
ZeAL
Maksud pertanyaan nya bukan nya dari JPG di simpan ke MySql khan?? bukan dari dbImage ke JPG??o iya yah... baru ngeh sekarang... ah, gilaaaaa... gue mulai streesssss... aaaaaarrgggghhhhh...

more 15 years ago
saysansay
o iya yah... baru ngeh sekarang... ah, gilaaaaa... gue mulai streesssss... aaaaaarrgggghhhhh...nah akhi Zeal coba dech..jalan2 www.myquran.com mudah2an stressnya bisa ilang....

more 15 years ago
LuriDarmawan
rekan,
cara kode yg sy tuliskan tidak hanya berlaku untuk file jpg saja,
tapi bisa untuk sembarang file.
pokoknya mentah2-an masukin ke database, ga peduli file image, binary, ato apapun.
soal menampilkannnya ke dalam aplikasi,
itu masalah lain.
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
Last Articles
- Lazarus Release 2.0.12
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 7 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- Debet, Kredit & Saldo
by AndyK in Tip n Trik Pemrograman more 12 years ago - Tanya Cara Compact And Repair DiFireBird
by bendot20 in FireBird more 12 years ago - list index out of bound
by rizu in Tip n Trik Pemrograman more 12 years ago - convert string 10,000 ke integer 10000
by oncom in Tip n Trik Pemrograman more 12 years ago - Gimana melakuan pencarian di MySQL denganODBC
by hak3nd3n in Tip n Trik Pemrograman more 13 years ago - tmainmenu dari database
by alfian in Enginering more 15 years ago - software pengukur kecepatan akses database
by mbahdien in Hal umum tentang Pascal Indonesia more 13 years ago - Paradox & Rich Edit
by clark in Paradox more 15 years ago - Random Table paradox
by Pontiac in Enginering more 15 years ago - program login delphi mysql dengan ado
by adhisyanda in MySQL more 11 years ago