fundcom_tlb.pas

Delphi Com编程的简单例子

    procedure UserIPAdd(const V01: WideString; const V02: WideString; var lResult: Integer); safecall;
    procedure SysLogin(const LoginName: WideString; const PWD: WideString; var lResult: Integer); safecall;
    procedure UserLogin(const LoginName: WideString; const PWD: WideString; const LabA: WideString; 
                        const ValA: WideString; const LabB: WideString; const ValB: WideString; 
                        const UCard: WideString; const IPAdd: WideString; var lResult: Integer); safecall;
    procedure SubSysLogin(const SubSysId: WideString; const LoginName: WideString; 
                          const PWD: WideString; const LabA: WideString; const ValA: WideString; 
                          const LabB: WideString; const ValB: WideString; const UCard: WideString; 
                          const IPAdd: WideString; var lResult: Integer); safecall;
    procedure QSysUser(const SysId: WideString; const cSql: WideString; var vData: OleVariant); safecall;
    procedure QNotSysUser(const SysId: WideString; const cSql: WideString; var vData: OleVariant); safecall;
    procedure UserToSys(const V01: WideString; const V02: WideString; var lResult: Integer); safecall;
    procedure Log(LogType: Smallint; const SubSysId: WideString; const UserId: WideString; 
                  const IpAddr: WideString; var lResult: Integer); safecall;
  end;

// *********************************************************************//
// DispIntf:  IFundServerDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {62DDA884-8C68-4CA8-96B0-6785A0068A84}
// *********************************************************************//
  IFundServerDisp = dispinterface
    ['{62DDA884-8C68-4CA8-96B0-6785A0068A84}']
    procedure FreeQuery(const cSqlStr: WideString; var vData: OleVariant); dispid 1;
    procedure ExeSqlCmd(const cSqlStr: WideString; var lResult: Integer); dispid 2;
    procedure LogAdd(V02: Smallint; const V04: WideString; const V05: WideString; 
                     const V06: WideString; const V07: WideString; var lResult: Integer); dispid 3;
    procedure LogDel(const V01: WideString; var lResult: Integer); dispid 4;
    procedure ReConnect(var lResult: Integer); dispid 5;
    procedure UserGrpAdd(var V01: WideString; const V02: WideString; const V03: WideString; 
                         V04: Smallint; var lResult: Integer); dispid 10;
    procedure UserGrpDel(const V01: WideString; var lResult: Integer); dispid 11;
    procedure UserGrpUpd(const V01: WideString; const V02: WideString; const V05: WideString; 
                         var lResult: Integer); dispid 12;
    procedure UserAdd(var V01: WideString; const V02: WideString; const V03: WideString; 
                      const V04: WideString; V08: Smallint; V09: Smallint; const V10: WideString; 
                      const V11: WideString; V12: Smallint; V13: Smallint; V14: Smallint; 
                      V16: Smallint; const V17: WideString; V18: Smallint; V19: Smallint; 
                      const V20: WideString; var lResult: Integer); dispid 13;
    procedure UserDel(const V01: WideString; var lResult: Integer); dispid 14;
    procedure UserUpd(const V01: WideString; const V02: WideString; const V03: WideString; 
                      const V04: WideString; V08: Smallint; V09: Smallint; const V10: WideString; 
                      const V11: WideString; V12: Smallint; V13: Smallint; V14: Smallint; 
                      V16: Smallint; const V17: WideString; V18: Smallint; V19: Smallint; 
                      const V20: WideString; var lResult: Integer); dispid 15;
    procedure SubSysDel(const V01: WideString; var lResult: Integer); dispid 16;
    procedure SubModDel(const V01: WideString; const V02: WideString; var lResult: Integer); dispid 17;
    procedure SubRightAdd(const V01: WideString; V03: Smallint; V04: Smallint; V05: Smallint; 
                          V06: Smallint; V07: Smallint; V08: Smallint; var lResult: Integer); dispid 18;
    procedure SubRightChg(const V01: WideString; const V02: WideString; const V021: WideString; 
                          var lResult: Integer); dispid 19;
    procedure RightGrpDel(const V01: WideString; var lResult: Integer); dispid 20;
    procedure GrpRightAdd(const V01: WideString; const V02: WideString; const V03: WideString; 
                          var lResult: Integer); dispid 21;
    procedure GrpRightDel(const V01: WideString; var lResult: Integer); dispid 22;
    procedure UserRightAdd(const V01: WideString; const V02: WideString; const V03: WideString; 
                           var lResult: Integer); dispid 23;
    procedure UserRightDel(const V01: WideString; var lResult: Integer); dispid 24;
    procedure GrpRightChg(const V01: WideString; var lResult: Integer); dispid 25;
    procedure UserRightChg(const V01: WideString; var lResult: Integer); dispid 26;
    procedure UserToGrp(const V01: WideString; const V02: WideString; var lResult: Integer); dispid 27;
    procedure GrpUserDel(const V02: WideString; var lResult: Integer); dispid 28;
    procedure CardGrpAdd(var V01: WideString; const V02: WideString; const V03: WideString; 
                         V04: Smallint; var lResult: Integer); dispid 29;
    procedure CardGrpDel(const V01: WideString; var lResult: Integer); dispid 30;
    procedure CardGrpUpd(const V01: WideString; const V02: WideString; const V05: WideString; 
                         var lResult: Integer); dispid 31;
    procedure CardAdd(var V01: WideString; const V02: WideString; var lResult: Integer); dispid 32;
    procedure CardDel(const V01: WideString; var lResult: Integer); dispid 33;
    procedure CardUpd(const V01: WideString; const V02: WideString; const V03: WideString; 
                      const V04: WideString; const V05: WideString; V06: Smallint; V07: Smallint; 
                      const V08: WideString; var lResult: Integer); dispid 34;
    procedure CardValAdd(const V01: WideString; const V02: WideString; const V03: WideString; 
                         const V04: WideString; var lResult: Integer); dispid 35;
    procedure CardValDel(const V01: WideString; var lResult: Integer); dispid 36;
    procedure UserIPDel(const V01: WideString; var lResult: Integer); dispid 38;
    procedure UserIPAdd(const V01: WideString; const V02: WideString; var lResult: Integer); dispid 37;
    procedure SysLogin(const LoginName: WideString; const PWD: WideString; var lResult: Integer); dispid 39;
    procedure UserLogin(const LoginName: WideString; const PWD: WideString; const LabA: WideString; 
                        const ValA: WideString; const LabB: WideString; const ValB: WideString; 
                        const UCard: WideString; const IPAdd: WideString; var lResult: Integer); dispid 40;
    procedure SubSysLogin(const SubSysId: WideString; const LoginName: WideString; 
                          const PWD: WideString; const LabA: WideString; const ValA: WideString; 
                          const LabB: WideString; const ValB: WideString; const UCard: WideString; 
                          const IPAdd: WideString; var lResult: Integer); dispid 41;
    procedure QSysUser(const SysId: WideString; const cSql: WideString; var vData: OleVariant); dispid 42;
    procedure QNotSysUser(const SysId: WideString; const cSql: WideString; var vData: OleVariant); dispid 43;
    procedure UserToSys(const V01: WideString; const V02: WideString; var lResult: Integer); dispid 44;
    procedure Log(LogType: Smallint; const SubSysId: WideString; const UserId: WideString; 
                  const IpAddr: WideString; var lResult: Integer); dispid 45;
    function AS_ApplyUpdates(const ProviderName: WideString; Delta: OleVariant; MaxErrors: Integer; 
                             out ErrorCount: Integer; var OwnerData: OleVariant): OleVariant; dispid 20000000;
    function AS_GetRecords(const ProviderName: WideString; Count: Integer; out RecsOut: Integer; 
                           Options: Integer; const CommandText: WideString; var Params: OleVariant; 
                           var OwnerData: OleVariant): OleVariant; dispid 20000001;
    function AS_DataRequest(const ProviderName: WideString; Data: OleVariant): OleVariant; dispid 20000002;
    function AS_GetProviderNames: OleVariant; dispid 20000003;
    function AS_GetParams(const ProviderName: WideString; var OwnerData: OleVariant): OleVariant; dispid 20000004;
    function AS_RowRequest(const ProviderName: WideString; Row: OleVariant; RequestType: Integer; 
                           var OwnerData: OleVariant): OleVariant; dispid 20000005;
    procedure AS_Execute(const ProviderName: WideString; const CommandText: WideString; 
                         var Params: OleVariant; var OwnerData: OleVariant); dispid 20000006;
  end;

// *********************************************************************//
// The Class CoFundServer provides a Create and CreateRemote method to          
// create instances of the default interface IFundServer exposed by              
// the CoClass FundServer. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoFundServer = class
    class function Create: IFundServer;
    class function CreateRemote(const MachineName: string): IFundServer;
  end;

implementation

uses ComObj;

class function CoFundServer.Create: IFundServer;
begin
  Result := CreateComObject(CLASS_FundServer) as IFundServer;
end;

class function CoFundServer.CreateRemote(const MachineName: string): IFundServer;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_FundServer) as IFundServer;
end;

end.