Blob To File

[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