blob alan delphi xe

[burakb44]

arkadaşlar firebird ve delphi xe kullanarak resimleri database yüklemeye çalıştım sitedeki örnekleri de dün bütün gün inceledim denedim ama nafile sonuç alamadım, database yüklüyor fakat database den okutup tekrar image aktarmaya çalıştığımda acces violation hatası veriyor,

delhi xe için yazılmış örnek kod varsa gönderebilirseniz sevinirim .

[mkysoft]

siz kayıt ve okuma kodlarınızı paylaşırsanız daha kolay olabilir.

[burakb44]

çok ilginçtir cuma günü uğraşdığım iki konu blob alana resim kaydetme ve dll içinden fonksiyonları çağırma, her ikisindede sürekli hata veriyordu yada çalışmıyordu fakat bu sabah gelip kodları tekrar çalıştırdığımda hatasız çalıştı !!!

database yazmak için aşağıdaki kodlar yeterli delphi xe + firebird veritabanı

öncelikle ünitin uses kısmına db ve jpeg i ekliyoruz daha sonra aşağıdaki kodları kullanıyoruz

Kod: Tümünü seç

var
fs : TFileStream;
bs : TStream;
Begin
  datamodule5.stok.Append;
  fs := TFileStream.Create(resimac.FileName, fmOpenRead);
  bs := TStream(datamodule5.stok.CreateBlobStream(datamodule5.stok.FieldByName('RESIM'), bmread));
  bs.CopyFrom(fs, 0);
  bs.Free;
  fs.Free;
  datamodule5.stok.Post;
End;

aynı şekilde databaseden okumak içinde aşağıdaki kod yeterli

Kod: Tümünü seç

var
jpg:TJpegImage;
begin
  jpg := TJpegImage.Create;
  jpg.LoadFromStream(datamodule5.stok.CreateBlobStream(datamodule5.stok.FieldByName('resim'), bmRead));
  Image1.Picture.Graphic:=jpg;
  jpg.Free;
end;