netimsserver_tlb.pas

计量功能 事件记录 购电提醒 欠费报警 负荷控制 自检功能 显示功能 用户插卡错误信息显示

unit NetImsServer_TLB;

// ************************************************************************ //
// WARNING                                                                  //
// -------                                                                  //
// The types declared in this file were generated from data read from a     //
// Type Library. If this type library is explicitly or indirectly (via      //
// another type library referring to this type library) re-imported, or the //
// 'Refresh' command of the Type Library Editor activated while editing the //
// Type Library, the contents of this file will be regenerated and all      //
// manual modifications will be lost.                                       //
// ************************************************************************ //

// PASTLWTR : $Revision:   1.11.1.62  $
// File generated on 00-3-18 15:18:01 from Type Library described below.

// ************************************************************************ //
// Type Lib: E:\Delphi\Prj_NetIms\Code\NIMSServer\NetImsServer.tlb
// IID\LCID: {9542C82E-AE43-11D3-B9F9-0080C8D6FC46}\0
// Helpfile: 
// HelpString: NetImsServer Library
// Version:    1.0
// ************************************************************************ //

interface

uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;

// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:      //
//   Type Libraries     : LIBID_xxxx                                    //
//   CoClasses          : CLASS_xxxx                                    //
//   DISPInterfaces     : DIID_xxxx                                     //
//   Non-DISP interfaces: IID_xxxx                                      //
// *********************************************************************//
const
  LIBID_NetImsServer: TGUID = '{9542C82E-AE43-11D3-B9F9-0080C8D6FC46}';
  IID_INImsSrv: TGUID = '{9542C82F-AE43-11D3-B9F9-0080C8D6FC46}';
  CLASS_NImsSrv: TGUID = '{9542C831-AE43-11D3-B9F9-0080C8D6FC46}';
type

// *********************************************************************//
// Forward declaration of interfaces defined in Type Library            //
// *********************************************************************//
  INImsSrv = interface;
  INImsSrvDisp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                     //
// (NOTE: Here we map each CoClass to its Default Interface)            //
// *********************************************************************//
  NImsSrv = INImsSrv;


// *********************************************************************//
// Interface: INImsSrv
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9542C82F-AE43-11D3-B9F9-0080C8D6FC46}
// *********************************************************************//
  INImsSrv = interface(IDataBroker)
    ['{9542C82F-AE43-11D3-B9F9-0080C8D6FC46}']
    //===============================================================================//
    function Get_ProviderInfo: IProvider; safecall;
    //===============================================================================//
    function btFunRmtCnt(const wsHostName: WideString; btSum1: Byte; btSum2: Byte; btSum3: Byte;
                         btSum4: Byte; btSum5: Byte): Byte; safecall;
    function btFunAnswer(btAsk: Byte): Byte; safecall;
    function btFunGetEMeter(iEKind: Integer; var iEConst: Integer; var wsEMemDT: WideString;
                            var wsEMark: WideString): Byte; safecall;
    function btFunGetEPrice(iEPriceKind: Integer; var wsEPriceName: WideString;
                            var fEPrice: Double; var wsEPriceMark: WideString): Byte; safecall;
    //===============================================================================//
    function Get_ProviderLog: IProvider; safecall;
    //===============================================================================//
    function btFunRmtLogIn(const wsAccount: WideString; const wsPsw: WideString; var btClass: Byte;
                           var wsName: WideString; var wsMark: WideString): Byte; safecall;
    function btFunRmtLogOff(const wsAccount: WideString; btClass: Byte): Byte; safecall;
    function btFunRmtAllLogOff: Byte; safecall;
    function btFunRmtChgPsw(const wsAccount: WideString; const wsPsw: WideString;
                            const wsNewPsw: WideString): Byte; safecall;
    //===============================================================================//
    function Get_ProviderCust: IProvider; safecall;
    //===============================================================================//
    function btFunAddNewCust(var iCustNo: Integer; const wsCustName: WideString;
                             const wsIDNo: WideString; const wsICSC: WideString;
                             const wsMark: WideString): Byte; safecall;
    function btFunGetDefCust(iCustNo: Integer; var wsCustName: WideString; var wsIDNo: WideString;
                             var wsICSC: WideString; var wsMark: WideString): Byte; safecall;
    function btFunSetDefCust(iCustNo: Integer; const wsMark: WideString): Byte; safecall;
    function btFunClearDefCust(iCustNo: Integer): Byte; safecall;
    function btFunFindLikeCust(var iCustNo: Integer; var wsName: WideString;
                               var wsIDNo: WideString; var iRecNo: Integer): Byte; safecall;
    function btFunAddNewEMeterInfo(iCustNo: Integer; const wsENo: WideString;
                                   var dtEDate: TDateTime; iEDegree: Integer; iEConstKind: Integer;
                                   iEConst: Integer; iEBuyLmt: Integer; iERemind: Integer;
                                   iEWarn: Integer; iESum: Integer; iTotalNum: Integer): Byte; safecall;
    function btFunGetDefEMeterInfo(iCustNo: Integer; var wsENo: WideString; var dtEDate: TDateTime;
                                   var iEDegree: Integer; var iEConstKind: Integer;
                                   var iEConst: Integer; var iEBuyLmt: Integer;
                                   var iERemind: Integer; var iEWarn: Integer; var iESum: Integer;
                                   var iTotalNum: Integer): Byte; safecall;
    function btFunSetDefEMeterInfo(iCustNo: Integer; iEBuyLmt: Integer; iERemind: Integer;
                                   iEWarn: Integer; iESum: Integer; iTotalNum: Integer): Byte; safecall;
    function btFunClearDefEMeterInfo(iCustNo: Integer): Byte; safecall;
    function btFunAddBuyRecord(iCustNo: Integer; iBuyNum: Integer; var dtBuyDate: TDateTime;
                               iECurBuy: Integer; iEPriceKind: Integer; fEPrice: Double;
                               const wsOpName: WideString; const wsHostName: WideString): Byte; safecall;
    function btFunGetDefBuyRecord(iCustNo: Integer; iBuyNum: Integer; var dtBuyDate: TDateTime;
                                  var iECurBuy: Integer; var iEPriceKind: Integer;
                                  var fEPrice: Double; var wsOpName: WideString;
                                  var wsHostName: WideString): Byte; safecall;
    function btFunClearDefBuyRecord(iCustNo: Integer; iBuyNum: Integer): Byte; safecall;
    //===============================================================================//
    property ProviderInfo: IProvider read Get_ProviderInfo;
    property ProviderLog: IProvider read Get_ProviderLog;
    property ProviderCust: IProvider read Get_ProviderCust;
    //===============================================================================//
  end;

// *********************************************************************//
// DispIntf:  INImsSrvDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9542C82F-AE43-11D3-B9F9-0080C8D6FC46}
// *********************************************************************//
  INImsSrvDisp = dispinterface
    ['{9542C82F-AE43-11D3-B9F9-0080C8D6FC46}']
    property ProviderInfo: IProvider readonly dispid 1;
    function btFunRmtCnt(const wsHostName: WideString; btSum1: Byte; btSum2: Byte; btSum3: Byte; 
                         btSum4: Byte; btSum5: Byte): Byte; dispid 2;
    function btFunAnswer(btAsk: Byte): Byte; dispid 3;
    function btFunGetEMeter(iEKind: Integer; var iEConst: Integer; var wsEMemDT: WideString; 
                            var wsEMark: WideString): Byte; dispid 4;
    function btFunGetEPrice(iEPriceKind: Integer; var wsEPriceName: WideString; 
                            var fEPrice: Double; var wsEPriceMark: WideString): Byte; dispid 5;
    property ProviderLog: IProvider readonly dispid 6;
    function btFunRmtLogIn(const wsAccount: WideString; const wsPsw: WideString; var btClass: Byte; 
                           var wsName: WideString; var wsMark: WideString): Byte; dispid 7;
    function btFunRmtLogOff(const wsAccount: WideString; btClass: Byte): Byte; dispid 8;
    function btFunRmtAllLogOff: Byte; dispid 9;
    function btFunRmtChgPsw(const wsAccount: WideString; const wsPsw: WideString; 
                            const wsNewPsw: WideString): Byte; dispid 10;
    property ProviderCust: IProvider readonly dispid 15;
    function btFunAddNewCust(var iCustNo: Integer; const wsCustName: WideString; 
                             const wsIDNo: WideString; const wsICSC: WideString; 
                             const wsMark: WideString): Byte; dispid 20;
    function btFunGetDefCust(iCustNo: Integer; var wsCustName: WideString; var wsIDNo: WideString; 
                             var wsICSC: WideString; var wsMark: WideString): Byte; dispid 21;
    function btFunSetDefCust(iCustNo: Integer; const wsMark: WideString): Byte; dispid 22;
    function btFunClearDefCust(iCustNo: Integer): Byte; dispid 23;
    function btFunFindLikeCust(var iCustNo: Integer; var wsName: WideString; 
                               var wsIDNo: WideString; var iRecNo: Integer): Byte; dispid 24;
    function btFunAddNewEMeterInfo(iCustNo: Integer; const wsENo: WideString; 
                                   var dtEDate: TDateTime; iEDegree: Integer; iEConstKind: Integer; 
                                   iEConst: Integer; iEBuyLmt: Integer; iERemind: Integer; 
                                   iEWarn: Integer; iESum: Integer; iTotalNum: Integer): Byte; dispid 30;
    function btFunGetDefEMeterInfo(iCustNo: Integer; var wsENo: WideString; var dtEDate: TDateTime; 
                                   var iEDegree: Integer; var iEConstKind: Integer; 
                                   var iEConst: Integer; var iEBuyLmt: Integer; 
                                   var iERemind: Integer; var iEWarn: Integer; var iESum: Integer; 
                                   var iTotalNum: Integer): Byte; dispid 31;
    function btFunSetDefEMeterInfo(iCustNo: Integer; iEBuyLmt: Integer; iERemind: Integer; 
                                   iEWarn: Integer; iESum: Integer; iTotalNum: Integer): Byte; dispid 32;
    function btFunClearDefEMeterInfo(iCustNo: Integer): Byte; dispid 33;
    function btFunAddBuyRecord(iCustNo: Integer; iBuyNum: Integer; var dtBuyDate: TDateTime; 
                               iECurBuy: Integer; iEPriceKind: Integer; fEPrice: Double; 
                               const wsOpName: WideString; const wsHostName: WideString): Byte; dispid 40;
    function btFunGetDefBuyRecord(iCustNo: Integer; iBuyNum: Integer; var dtBuyDate: TDateTime; 
                                  var iECurBuy: Integer; var iEPriceKind: Integer; 
                                  var fEPrice: Double; var wsOpName: WideString; 
                                  var wsHostName: WideString): Byte; dispid 41;
    function btFunClearDefBuyRecord(iCustNo: Integer; iBuyNum: Integer): Byte; dispid 43;
    function GetProviderNames: OleVariant; dispid 22929905;
  end;

  CoNImsSrv = class
    class function Create: INImsSrv;
    class function CreateRemote(const MachineName: string): INImsSrv;
  end;

implementation

uses ComObj;

class function CoNImsSrv.Create: INImsSrv;
begin
  Result := CreateComObject(CLASS_NImsSrv) as INImsSrv;
end;

class function CoNImsSrv.CreateRemote(const MachineName: string): INImsSrv;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_NImsSrv) as INImsSrv;
end;

end.