whats wrong with the following pass-through
I've created a function, and installed a package which contains
this module.
When i double click on my report, go to RAP and then to Functions,
i have Delphi IDE Error: Could not compile program: InsertPipeline.
And there are no functions loaded in CodeToolbox window.
Please suggest whats wrong. Basically i need to be able to do
Insert/Post operations on pipeline from RAP...
Thanx alot.
unit uRAPFunc2;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, raFunc, ppRTTI, ppDB, ppDBPipe;
type
TraPipelineFunction = class(TraSystemFunction)
public
class function Category: String; override;
end;
TraInsertFunction = class(TraPipelineFunction)
public
procedure ExecuteFunction(aParams: TraParamList); override;
class function GetSignature: String; override;
class function IsFunction: Boolean; override;
end;
implementation
class function TraPipelineFunction.Category: String;
begin
Result := 'Pipeline';
end;
class function TraInsertFunction.GetSignature: String;
begin
Result := 'procedure InsertPipeline(aPipeline: TppDBPipeLine)';
end;
procedure TraInsertFunction.ExecuteFunction(aParams: TraParamList);
var
aPipeLine: TppDBPipeLine;
begin
GetParamValue(0, aPipeLine);
aPipeLine.Insert
end;
class function TraInsertFunction.IsFunction: Boolean;
begin
Result := False;
end;
initialization
raRegisterFunction('InsertPipeline', TraInsertFunction);
finalization
raUnRegisterFunction('InsertPipeline');
end.
this module.
When i double click on my report, go to RAP and then to Functions,
i have Delphi IDE Error: Could not compile program: InsertPipeline.
And there are no functions loaded in CodeToolbox window.
Please suggest whats wrong. Basically i need to be able to do
Insert/Post operations on pipeline from RAP...
Thanx alot.
unit uRAPFunc2;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, raFunc, ppRTTI, ppDB, ppDBPipe;
type
TraPipelineFunction = class(TraSystemFunction)
public
class function Category: String; override;
end;
TraInsertFunction = class(TraPipelineFunction)
public
procedure ExecuteFunction(aParams: TraParamList); override;
class function GetSignature: String; override;
class function IsFunction: Boolean; override;
end;
implementation
class function TraPipelineFunction.Category: String;
begin
Result := 'Pipeline';
end;
class function TraInsertFunction.GetSignature: String;
begin
Result := 'procedure InsertPipeline(aPipeline: TppDBPipeLine)';
end;
procedure TraInsertFunction.ExecuteFunction(aParams: TraParamList);
var
aPipeLine: TppDBPipeLine;
begin
GetParamValue(0, aPipeLine);
aPipeLine.Insert
end;
class function TraInsertFunction.IsFunction: Boolean;
begin
Result := False;
end;
initialization
raRegisterFunction('InsertPipeline', TraInsertFunction);
finalization
raUnRegisterFunction('InsertPipeline');
end.
This discussion has been closed.
Comments