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.