Einzelnen Beitrag anzeigen

hacki

Registriert seit: 15. Nov 2002
96 Beiträge
 
Delphi XE5 Professional
 
#12

Re: HowTo: PDF oder HTML Dokumente in Paradox Datenbank able

  Alt 17. Jun 2004, 21:48
Hi all,

nur zur Info, es hat nun folgendermassen gefunzt:


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
Es ist nicht gesagt, daß es besser wird, wenn es anders wird! Wenn es aber besser werden soll, muß es anders werden! ** There are 10 different types of people in this world; those who understand binary numbers and those who don’t !
  Mit Zitat antworten Zitat