Bild aus Blob Feld laden und in TImageEnDBView anzeigen

[Walter Landwehr]

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.

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.

[mkinzler]

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

[Walter Landwehr]

Danke habe den Fehler gefunden.

Fehler lag hier:

Delphi-Quellcode:

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