Blob To File

[jonny]

Hallo ich habe folgendes Problem also ich schafe es dateien in ein BlobFeld des ClientDataSet zu speichern aber es nicch wieder auszulesen.

Hier ist meine Speichern procdur:

Delphi-Quellcode:

procedure TForm1.SaveFileToBlob(FileName: String; DataSet: TDataSet);
var
  MyStream : TStream;
  MyFileStream: TFileStream;
begin
  DataSet.edit;
  MyFileStream:=TFileStream.Create(FileName, fmOpenRead);
  MyStream:=DataSet.CreateBlobStream(DataSet.FieldByName('BILD'),bmReadWrite);
  MyStream.CopyFrom(MyFileStream, 0);
  MyStream.Free;
  MyFileStream.Free;
  DataSet.Post;
end;

Kann mir jemand sage wie den wieder auslesen kann und da es bei den Dateien die darin gespeichert werden um Bilder handelt wie ich die ohne zu speichern in einen Image anzeigen kann?