mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-13 21:05:12 -05:00
39 lines
714 B
ObjectPascal
39 lines
714 B
ObjectPascal
|
|
||
|
|
unit uPSComponent_COM;
|
||
|
|
|
||
|
|
interface
|
||
|
|
uses
|
||
|
|
SysUtils, Classes, uPSComponent, uPSCompiler, uPSRuntime;
|
||
|
|
type
|
||
|
|
|
||
|
|
TPSImport_ComObj = class(TPSPlugin)
|
||
|
|
private
|
||
|
|
public
|
||
|
|
procedure CompileImport1(CompExec: TPSScript); override;
|
||
|
|
procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
|
||
|
|
end;
|
||
|
|
|
||
|
|
TIFPS3CE_ComObj = class(TPSImport_ComObj);
|
||
|
|
|
||
|
|
implementation
|
||
|
|
uses
|
||
|
|
uPSC_comobj,
|
||
|
|
uPSR_comobj;
|
||
|
|
|
||
|
|
|
||
|
|
{ TPSImport_ComObj }
|
||
|
|
|
||
|
|
procedure TPSImport_ComObj.CompileImport1(CompExec: TPSScript);
|
||
|
|
begin
|
||
|
|
SIRegister_ComObj(CompExec.Comp);
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
procedure TPSImport_ComObj.ExecImport1(CompExec: TPSScript;
|
||
|
|
const ri: TPSRuntimeClassImporter);
|
||
|
|
begin
|
||
|
|
RIRegister_ComObj(CompExec.Exec);
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|