Problem SaveToString / LoadFromString

I need to write/read PDF files into/from a database (Interbase/Firebird).

The best way I see with quicPDF is to convert the PDF into a string (SaveToString), then write this into a BLOB. With LoadFromString it should be possible to recreate the PDF.

The first step was no problem (I created a text file as output, and this really contained the content of the PDF). But when I try to load the "text-PDF", the LoadFromString functions returns an error and the TiSEDQuickPDF is empty.

Where is my mistake?

Hello Jan!

My project exported and saved the original PDF to an ASCII string. This file is accessible with Acrobat/Acrobat Reader (both are complaining the 'file is damaged', but they do open correctly).

I think I found another (WORKING) way saving PDFs into database (RenderDocumentToFile -> JPG and ExtractFilePageText -> TXT); when reading the "PDF", the JPG will be displayed instead...

Main problem is increase of file size (PDF 4kb, JPG 135kb with 150dpi).
__________________
Best Regards,
Volker

Why don't you save the pdf as a BLOB in your database with SaveToStream.

code for reading and writing the pdf to and from the database

/code

procedure TMydbase.read_datasheet(indexnummer:integer);
var  blob : tstream;
begin
query_open('select * from Table where indexnummer = '+ ''''+inttostr(indexnummer)+'''');
blob:=query.createblobstream(query.Fieldbyname('datasheet'),bmread);
blob.seek(0,sofrombeginning);  //I always save the current pdf to my HD but you cal load it in your quickpdf object as well
with tfilestream.create('c:\default.pdf',fmcreate) do
     try
     copyfrom(blob,blob.size);
     finally
     free;
     end;
blob.free;
query.Close;
end;

procedure TMydbase.write_datasheet(type_meting,tekeningnr,operator,datum,tijd,bewerking,kommentaar:string;pijp_nr,array_nr,indexnummer_meting:integer);
var sql_:string;
begin
sql_:='insert into Tabel(indexnummer,datasheet) ';
sql_:=sql_+'values(:indexnummer,:datasheet)';
Query.SQL.Clear;
query.sql.add(sql_);
query.prepare;
query.parambyname('indexnummer_meting').value:=indexnummer;
Query.ParamByName('datasheet').LoadFromFile('c:\default.pdf',ftblob); //you should use load fromstream instead
execute_sql;
end;

code

Hello Christian!

The importing with "SaveToStream"/"LoadFromStream" did NOT work at all, but I sneaked through Interbase/FireBird/IBO documentation and found another possibility...
Now I don't need QuickPDF for writing/saving; I can do this like

with IB_QWORK do
TRY
   active := FALSE;
   ParamByName('aID').AsInteger := IDX;
   ParamByName('aFNAME').AsString := ExtractFileName(sTMP);
   ParamByName('aDATA').LoadFromFile(sTMP);
   execSQL;
   ...
EXCEPT
   ...
END;

For loading the PDF I can act similar ( FieldByName('DATA').SaveToFile(...))

But Your idea was the final solution (writing BLOB directly)!
THANKS!

Hello

ParamByName('Data').LoadFormFile works great but I can't find the function FieldByName('Data').SaveToFile.

am I missing something. I'm using the standard Interbase components

ok

It's a pitty the standard interbase components from borland don't support the function. But the methode I use works fine

Thanks anyway

Hi swb1,

of course I could. But inside our BLOBs there are/can be german special characters and with IBO I'm sure (has been tested!) the input and output is correct without additional work.

Besides: IBO is very stable, quick and well supported!!!

We have been using the "BDE" for some (horrible) years and since we have (mostly) replced BDE with IBO, things have become much better!