How to save a report FR4 into a firebird blob field?

Comments

• OlegK

  December 2009 edited 11:25PM

  wrote:

  How to save a report FR4 into a firebird blob field?
  
  At Fr2.5 was a function 'savetoblobfield' a it was very easy to save the report in a blob field in the firebird database.
  At Fr4 I have not found a function to do this .

  At Fr4 you can use function SaveToStream.
• jsp

  December 2009 edited 11:25PM

  OlegK wrote: »

  OlegK wrote: »

  How to save a report FR4 into a firebird blob field?
  
  At Fr2.5 was a function 'savetoblobfield' a it was very easy to save the report in a blob field in the firebird database.
  At Fr4 I have not found a function to do this .

  At Fr4 you can use function SaveToStream.

  
  Is available a code examble for Delphi ??
• gordk St.Catherines On. Canada.

  December 2009 edited 11:25PM

  look in the binaries news group
• ferit kaya

  January 2010 edited 11:25PM

  did u solve your problem?
• FernandoCardia

  January 2010 edited 11:25PM

  jsp wrote: »

  How to save a report FR4 into a firebird blob field?
  
  At Fr2.5 was a function 'savetoblobfield' a it was very easy to save the report in a blob field in the firebird database.
  At Fr4 I have not found a function to do this . Can anyone tell me how to implement a 'savetoblod' in Fr4 because I cannot upgrade my reports from 2,5 to 4 since I cannot save them in blob
  
  Thanks

  
  To save:
  

  var 
    f: TFileStream;
  begin
    f := TFileStream.Create(fileName, fmOpenRead);
    ...
    ParamByName('YOUR_BLOB_FIELD').LoadFromStream(f);
    ExecSQL;
    ...
    f.Free;
  end;
  

  
  To load:
  

  var 
    report_blob: TBlobField;
    report_stream: TStream;
  begin
    //After querying
    ...
    //In case you use TClientDataSet
    report_blob := yourClientDataSet.FieldByName('YOUR_BLOB_FIELD') as TBlobField;
  
    report_stream := TStream.Create;
    report_stream := yourClientDataSet.CreateBlobStream(report_blob, bmRead);
    
    frxReport.LoadFromStream(report_stream);
    ...  
  end;
  

  
  It works fine for me.