Unicode with Fastreport 4.14 and Firebird

Comments

• Haegar

  March 2014 edited 8:50PM

  Hello,
  
  searching google shows me this way to get a workaround:
  - on the form add the event "OnUserFucntion" to the frxReport1-component
  - insert code (see below) in the generated function in Delphi
  - add the function to frxReport in the form-create-event
  - use the new function in report to convert UTF-8 to WideString
  
  
  Code for the frxReportUserFunction:

    if ansicomparetext('UTF8Decode', MethodName) = 0 then begin
      try
        result := UTF8Decode(params[0]);
      except
        result := 'FEHLER';
      end;
    end;
  

  Code for adding function in form.create:

    frxReport1.AddFunction('function UTF8Decode(const S: UTF8String): WideString');
  

  
  So code in Delphi looks like this:

  type
    TfrmPrint = class(TForm)
  ...
      function frxReport1UserFunction(const MethodName: string; var Params: Variant): Variant;
  ...
  end;
  
  procedure TfrmPrint.FormCreate(Sender: TObject);
  begin
    frxReport1.AddFunction('function UTF8Decode(const S: UTF8String): WideString');
  end;
  
  function TfrmPrint.frxReport1UserFunction(const MethodName: string;
    var Params: Variant): Variant;
  begin
    if ansicomparetext('UTF8Decode', MethodName) = 0 then begin
      try
        result := UTF8Decode(params[0]);
      except
        result := 'FEHLER';
      end;
    end;
  end;
  

  
  Converting UTF-8-Text in the report:

  [UTF8Decode(<IBXQuery1."TITLE">)]
  

  
  Thanks to Bj?¶rn for this post: http://www.entwickler-ecke.de/topic_Unicod...rt_65744,0.html