Wie speichere ich das JPG-Bild in der Datenbank und lade es dann in Delphi mit FIBplus und TImage?

Question

Wie speichere ich ein JPG-Bild in der Datenbank und lade es dann in Delphi mit FIBplus und TImage?

Answer 1

Take a look here. Ich denke, Sie müssen es in einen Stream konvertieren, speichern Sie es und umgekehrt.

Answer 2

This page erklärt es. Verwenden Sie SaveToStream und einen TMemoryStream anstelle von SaveToFile, wenn Sie keine temporären Dateien wünschen. TImage.Picture hat einen LoadFromStream, der das Bild aus dem Stream zur Anzeige in das TImage lädt.

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; 

, wenn Sie JPEG-Bilder verwenden, fügen Sie JPG Einheit Klausel Ihrer Unit-Datei verwendet.

Answer 4

Delphi 7 paradox Tabelle

Einsatz DBImage

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; 

Fehler JPEG "Bitmap-Bild ist nat valid"