Hallo zusammen,
so kann ich ja ein Bild auslesen und auf der Festplatte speichern:
Delphi-Quellcode:
var blob:TStream;
begin
//Datei auslesen
blob:=mainform.IBtesttabelle.CreateBlobStream(IBtesttabelle.FieldByName('blobdata'),bmRead);
try
blob.Seek(0,soFromBeginning);
with TFileStream.Create('C:\testdatei.jpg',fmCreate) do
try
CopyFrom(blob,blob.Size);
finally
Free;
end;
finally
blob.Free;
end;
end;
Wie kann ich das Bild aus der
DB direkt in einem TImage anzeigen ohne es vorher auf der Festplatte zu speichern ?