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

Ok glad you worked it out.

I will try the SaveToFile as well. It takes less code and memory

So thanks for the tip

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

I have never used the interbase components… so I ignorantly ask… Couldn’t you just cast the field component as TBlobfield? i.e.:

Table.FieldByName(‘xyz’) as TBlobField.SaveToFile(FileName);