how can use TBlobField value as parameter in GetParamValue ?

Comments

• ario

  June 2020

  Hi
  
  With your guidance, I did it below.

  procedure TmyunZipFunction.ExecuteFunction(aParams: TraParamList);
  var
    lsResult: String;
    lsDBPipeline: TppDBPipeline;
    lsFieldName: string;
    vBlobField: TBlobField;
  begin
  
    GetParamValue(0, lsDBPipeline);
    GetParamValue(1, lsFieldName);
    vBlobField := TBlobField(lsDBPipeline.DataSource.DataSet.FieldByName
      (lsFieldName));
    lsResult := Myblob2file(vBlobField);
    SetParamValue(1, lsResult);
    SetParamValue(2, lsResult);
  end; { procedure, ExecuteFunction }

  and call it in RAP As below.
  

  procedure Image1OnPrint;
  var
    s:string;
  begin
    s:=unZipFieldinJPGfile(Report.DataPipeline ,'Signature5' );      
    if Length(S)>0 then 
      Image1.Picture.loadfromfile(s);
  end;

  and I unzip my field in Myblob2file procedure.
  
  Thanks.
  Best Regards.
• ario

  August 2020

  Hi
  
  My preview is true.
  But after I send the report for print ,ReportBuilder shows Image1OnPrint field .... not found.
  I search the path and find the image.