Hallo,

ich benutze die Delphi Komponente TImageEnDBView. In meiner vorigen App Version benutze ich die Delphi Komponente TImage um Bilder in eine Datenbank (Firebird (Blob Field)) zu speichern. Das speichern habe im mit folgendem Code realisiert.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TPatientFrm.mnuiInsertClick(Sender: TObject);
  var MS : TMemoryStream;
begin
if not Clipboard.HasFormat(CF_BITMAP) then
        Exit;
         if (PatientPage.ActivePage = tshBilder) then begin
              PatientBild.Picture.Graphic.Assign(Clipboard);
              MS := TMemoryStream.Create;
              PatientBild.Picture.Bitmap.SaveToStream(MS);
        if BilderQry.State in [dsBrowse] then
                 BilderQry.Edit;
        BilderQry.FieldByName('BILDART').AsInteger := DBP_BITMAP;
              TBlobField(BilderQry.FieldByName('BILD')).LoadFromStream(MS);
        MS.Free;
        BilderQry.Post;
        BilderQryAfterScroll(BilderQry);
     end;
end;

Nun möchte ich das Bild in der TImageEnDBView anzeigen, was mir aber nicht gelingt. Habt Ihr eine Idee wie das zu realiesieren ist.

Laut Doku über eine DataSource in den Eigenschaften DataSource und DataField

Danke habe den Fehler gefunden.

Fehler lag hier:

markieren

Delphi-Quellcode:

Query_Ziel.ParamByName('BILD').Value := Query_Quelle.FieldByName('BILD').AsString; --> Fehler
Query_Ziel.ParamByName('BILD').Value := Query_Quelle.FieldByName('BILD').Value; --> Richtig