Thema: Delphi Blob To File

Einzelnen Beitrag anzeigen

jonny

Registriert seit: 15. Dez 2003
235 Beiträge
 
Delphi 7 Enterprise
 
#1

Blob To File

  Alt 1. Mär 2004, 15:26
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?
  Mit Zitat antworten Zitat