1) Image Access procedure TMainForm.btnYesClick (Sender: TObject); var MyJPEG: TJPEGImage; MS: TMemoryStream; begin MyJpeg: = TJpegImage.Create; try MyJpeg.Assign (image1.Picture.Graphic) Ms: = TMeMoryStream.Create; Myjpeg.savetostream (ms); ms.position: = 0;
AdoQryTest.edit; AdoQryTest ['ID']: = '1'; TBLOBField (ADOQRYTEST.FIELDBYNAME ('Picture')). LoadFromstream (MS); AdoQryTest.post; finally myjpeg.free; ms.free; end; end; 2) reading the image procedure TMainForm.FormShow (Sender: TObject); var tempStream: TStringStream; tempJpeg: TJpegImage; begin try tempStream: = TStringStream.Create ( ''); TBlobField (adoqrytest.FieldByName ( 'picture').) SaveToStream (tempStream); tempJpeg: = TJpegImage.Create; tempJpeg.LoadFromStream (tempStream); tempstream.position: = 0 DBImage1.Picture.Bitmap.Assign (tempJpeg); finally tempStream.Free; tempJpeg.Free; end; end;
