22-01-2015, 02:46 PM
22-01-2015, 03:20 PM
السلام عليكم مكون dbimag لا يدعم jpeg يجب ان تستخرجها الى مكون Timage
22-01-2015, 03:31 PM
هل يمكن ان تشرح لي كيفية استرجاع صورة من قاعدة المعطيات و اظهارها في timag
22-01-2015, 05:02 PM
السلام عليكم
الحفظ تقوم فقط بعكس العملية
الحفظ تقوم فقط بعكس العملية
كود :
procedure LoadFromDB;
var
MS: TMemoryStream;
JPG: TJPEGImage;
begin
MS:= TMemoryStream.Create;
JPG:= TJPEGImage.Create;
try
TBlobField(ADOQuery1.FieldByName('Image')).SaveToStream(MS);
MS.Seek(0, soFromBeginning);
JPG.LoadFromStream(MS);
Image1.Picture.Assign(JPG);
finally
MS.Free;
JPG.Free;
end;
end;