david
74d45c47af
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.SDAC@2 6f543ec7-021b-7e4c-98c9-62eafc7fb9a8
70 lines
1.6 KiB
ObjectPascal
70 lines
1.6 KiB
ObjectPascal
{******************************************}
|
|
{ }
|
|
{ FastReport v4.0 }
|
|
{ SDAC components RTTI }
|
|
{ }
|
|
|
|
// Created by: CoreLab
|
|
// E-mail: sdac@crlab.com
|
|
|
|
{ }
|
|
{******************************************}
|
|
|
|
unit frxSDACRTTI;
|
|
|
|
interface
|
|
|
|
{$I frx.inc}
|
|
|
|
implementation
|
|
|
|
uses
|
|
Windows, Classes, fs_iinterpreter, frxSDACComponents
|
|
{$IFDEF Delphi6}
|
|
, Variants
|
|
{$ENDIF};
|
|
|
|
|
|
type
|
|
TFunctions = class(TfsRTTIModule)
|
|
private
|
|
function CallMethod(Instance: TObject; ClassType: TClass;
|
|
const MethodName: String; Caller: TfsMethodHelper): Variant;
|
|
public
|
|
constructor Create(AScript: TfsScript); override;
|
|
end;
|
|
|
|
{ TFunctions }
|
|
|
|
constructor TFunctions.Create(AScript: TfsScript);
|
|
begin
|
|
inherited Create(AScript);
|
|
with AScript do
|
|
begin
|
|
AddClass(TfrxSDACDatabase, 'TfrxCustomDatabase');
|
|
AddClass(TfrxSDACTable, 'TfrxCustomTable');
|
|
with AddClass(TfrxSDACQuery, 'TfrxCustomQuery') do
|
|
AddMethod('procedure ExecSQL', CallMethod);
|
|
end;
|
|
end;
|
|
|
|
function TFunctions.CallMethod(Instance: TObject; ClassType: TClass;
|
|
const MethodName: String; Caller: TfsMethodHelper): Variant;
|
|
begin
|
|
Result := 0;
|
|
if ClassType = TfrxSDACQuery then
|
|
begin
|
|
if MethodName = 'EXECSQL' then
|
|
TfrxSDACQuery(Instance).Query.Execute;
|
|
end
|
|
end;
|
|
|
|
initialization
|
|
fsRTTIModules.Add(TFunctions);
|
|
|
|
finalization
|
|
if fsRTTIModules <> nil then
|
|
fsRTTIModules.Remove(TFunctions);
|
|
|
|
end.
|