how can use TBlobField value as parameter in GetParamValue ?

Hi

Can I use TBlobField as parameter in GetParamValue ?

{ TraConfigSettingFunction }
procedure TraConfigSettingFunction.ExecuteFunction(aParams: TraParamList);
Var
MyParameterName : TBlobField ;
begin
GetParamValue (0, myParameterName);
.
.
.
end;


Best Regards.

Comments

  • 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.
Sign In or Register to comment.