Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » ElevateDB Technical Support » Incident Reports » Incident Reports Addressed for Version 2.02 » View Incident Report |
Serious |
Reported By: Rick Wheeler Reported On: 2/25/2009 For: Version 2.02 Build 8 |
procedure TForm1.Button2Click(Sender: TObject); var TempStream: TMemoryStream; begin TempStream := TMemoryStream.Create; try Image1.Picture.Graphic.SaveToStream(TempStream); EDBQuery1.SQL.Clear; EDBQuery1.SQL.Add('INSERT INTO images (image) VALUES (:image)'); EDBQuery1.Prepare; EDBQuery1.ParamByName('image').LoadFromStream(TempStream, ftBlob); EDBQuery1.ExecSQL; ShowMessage(Format('Saved image with %d bytes', [TempStream.Size])); EDBTable1.Refresh; finally FreeAndNil(TempStream); end; end;
This web page was last updated on Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |