Wie speichere ich ein DB-Blob in ein TImage

[Perlsau]

Delphi-Quellcode:

Function TDatMod.BlobFeldInStream(Strom: TMemoryStream; Feld: TField): Boolean;
Var
   S : TStream;
begin
   Result := False;
   If Not Feld.IsBlob Then Exit;
   If Feld.IsNull     Then Exit;
   S := Feld.DataSet.CreateBlobStream(Feld, bmRead);
   Try
     Strom.Clear;
     Strom.CopyFrom(S,S.Size);
     Result := True;
   Finally
     S.Free;
   End;
end;

Bei Jpeg-Grafiken ist die Unit JPEG einzubinden.