FireBird - Resim

[mikser]

forumda arama yaptim öncelik onu söyleyim. jpg kaydetme ile ilgili kodları denedim. Fakat derdime çare bulamadım.

IBDataSet
fb 1.5
C++ Builder kullanıyorum.

Firebird de dosyaya JPG resim ekleyemedim.

Kod: Tümünü seç

CREATE TABLE TEST (
    SIRA   INTEGER NOT NULL,
    ADSOYAD  VARCHAR(30),
    RESIM    BLOB SUB_TYPE 0 SEGMENT SIZE 80
);

dosya bu sekilde.


bu konuda yardıcı olabilecek arkadaslara simdiden tesekkurler.

[Turki]

Jpeg için Kodlarla falan Uğraşma JEDI'nın Componentlerini (Ücretsiz)indir isteğine göre Jvİmage,JvDBİmage'ler var Onlarla çok kolay jpeg Resim ekleyebilirsin.

Uses'e Jpeg Ekle

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 yol:AnsiString;
begin
 OpenPictureDialog1.Title:='Resim Seç';
 OpenPictureDialog1.Filter:='JPEG Dosyalari|*.jpg|ico Dosyalari|*.ico|Bmp Dosyalari|*.bmp';
 if OpenPictureDialog1.Execute Then
   begin
    yol:=OpenPictureDialog1.FileName;
    IBDataSet1.Edit;//değişme moduna al
    JvDBImage1.Picture.LoadFromFile(yol);
   end;
end;