The use of TfrxOLEView

Pierot

Hello,

In using TfrxOLEView, I have the following error message


I use this method like this :


Why this error ?

Cordially
Pierrot

gpi

Modify frxOLERTTI.pas

uses
  Windows, Classes, Types, SysUtils, Forms, fs_iinterpreter, frxOLE, frxClassRTTI, Variants, OLECtnrs; //change
...
  TFunctions = class(TfsRTTIModule)
  private
    function CallMethod(Instance: TObject; ClassType: TClass;  //add
      const MethodName: String; Caller: TfsMethodHelper): Variant;  //add
    function GetProp(Instance: TObject; ClassType: TClass;
...

constructor TFunctions.Create(AScript: TfsScript);
begin
 ...
    AddEnum('TfrxSizeMode', 'fsmClip, fsmScale');
    with AddClass(TOLEContainer, 'TOLEContainer') do  //add
      AddMethod('procedure CreateObjectFromFile(const Filename: String; Iconic: Boolean)', CallMethod); //add
...
//add begin

function TFunctions.CallMethod(Instance: TObject; ClassType: TClass;
  const MethodName: String; Caller: TfsMethodHelper): Variant;
begin
  Result := 0;

  if ClassType = TOLEContainer then
  begin
    if MethodName = 'CREATEOBJECTFROMFILE' then
      TOleContainer(Instance).CreateObjectFromFile(Caller.Params[0], Caller.Params[1]);
  end
end;
//add end

Pierot

Hello,

Thank you for your reply, but I have no file frxOLERTTI.pas files in the C: \ Program Files (x86) \ FastReports \ FastReport 4 \ LibD19 \

Cordially
Pierrot

gpi

Sorry, but you can't to add this feature if you don't have a FR's sources. Try to move your code to Delphi's code

Pierot

I have the standard version of FR, but the component is however present in FR.
I do not understand how I can use this component.
If I move the code to Delphi, it does not recognize this component either.

gpi

Use TfrxReport.OnBeforePrint event

Pierot

Thanks very much for your help.
I could not watch this before 1 week.
cordially