Diğer kodları inceledim fakat hepsi resimleri dosyadan alıyordu. Bu benim geliştirdiğim kod ise hey yerden alabilir image nesnesinden de.
veritabanından okumak için;
Kod: Tümünü seç
'var bloğunda tanımlanacaklar'
var
jpgresim:Tjpegimage;
blobalan:Tadoblobstream;
if not FieldByName('resim').Isnull then
begin
blobalan:=TADOBlobStream.Create(TGraphicField(FieldByName('resim')), bmread);
jpgresim:=tjpegimage.create;
jpgresim.LoadFromStream(blobalan);
Image1.Picture.Assign(jpgresim);
jpgresim.free;
blobalan.free;
end;
veritabanına yazmak için ise
Kod: Tümünü seç
var
jpgresim: Tjpegimage;
blobalan: Tadoblobstream;
hafiza: Tmemorystream;
;
with adresdefteriset do
begin
Append;
FieldValues['adi']:=edit1.text;
FieldValues['soyadi']:=edit2.text;
jpgresim:=TJpegImage.Create;
jpgresim.assign(Image1.Picture.Bitmap);
hafiza:=TMemoryStream.Create;
jpgresim.savetostream(hafiza);
blobalan:=TADOBlobStream.Create(TGraphicField(FieldByName('resim')), bmWrite);
blobalan.copyfrom(hafiza,0);
blobalan.free;
hafiza.free;
jpgresim.free;
post;
end;
İyi günlerde kullanmanız dileği ile...
@mrmarman yazdı:TAŞIMA BİLGİSİ : Programlama formundan DİĞER VERİTABANLARI formuna taşınmıştır