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?

[Garby]

Hallo,

ich machs so:TBlobField(DataSet.FieldByName('BILD')).SaveToFile(FileName);

[jonny]

Danke jetzt klappts bei mir auch.

[hacki]

Hi,

dein erster Ansatz hätte auch gefunzt, du hättest die streams nur initialisieren müssen. Die Datenbank brauchst du übrigens nur im READ-Modus öffnen:

Code:

    Table1.Open;

    MyStream := TStream.Create;

    MessageDlg('MyStream.Create.', mtInformation,  [mbOk], 0);

    MyStream:=Table1.CreateBlobStream(table1.FieldByName('pdf'),bmRead);

    // FileStream erzeugen
    MyFileStream := TFileStream.Create('C:\transfer\12345.pdf',fmCreate );

    MyFileStream.CopyFrom(MyStream, 0);

    MyStream.Free;
    MyFileStream.Free;

    Table1.Close;

Grüsse, Hacki