如何將jpg圖像保存到數據庫，然後使用FIBplus和TImage在Delphi中加載它？

Question

如何將jpg圖像保存到數據庫，然後使用FIBplus和TImage將其加載到Delphi中？

Answer 1

Take a look here. 我認爲你必須將它轉換成流，存儲它，反之亦然。

Answer 2

This page解釋它。如果不需要臨時文件，請使用SaveToStream和TMemoryStream而不是SaveToFile。 TImage.Picture有一個LoadFromStream，它將流中的圖像加載到TImage中進行顯示。

Answer 3

var 
    S : TMemoryStream; 
begin 
    S := TMemoryStream.Create; 
    try 
    TBlobField(AdoQuery1.FieldByName('ImageField')).SaveToStream(S); 
    S.Position := 0; 
    Image1.Picture.Graphic.LoadFromStream(S); 
    finally 
    S.Free; 
    end; 
end; 

如果你正在使用JPEG圖像，添加JPG單位使用您的單位文件的條款。

Answer 4

Delphi 7中悖論表

插入數據庫圖像到jpeg

var 
    FileStream: TFileStream; 
    BlobStream: TStream; 
begin 
    if openpicturedialog1.Execute then 
    begin 
    Sicil_frm.DBNavigator1.BtnClick(nbEdit); 
    image1.Picture.LoadFromFile(openpicturedialog1.FileName); 
    try 
     BlobStream := dm.sicil.CreateBlobStream(dm.sicil.FieldByName('Resim'),bmWrite); 
     FileStream := TFileStream.Create(openpicturedialog1.FileName,fmOpenRead or fmShareDenyNone); 
     BlobStream.CopyFrom(FileStream,FileStream.Size); 
     FileStream.Free; 
     BlobStream.Free; 
     Sicil_frm.DBNavigator1.BtnClick(nbPost); 
     DM.SicilAfterScroll(dm.sicil); 
    except 
     dm.sicil.Cancel; 
    end; 
    end; 
end; 

錯誤 「位圖圖像是NAT有效」