unit MidServer_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 : 1.2

// File generated on 2012-01-11 23:08:49 from Type Library described below.

// ************************************************************************  //

// Type Lib: C:\Documents and Settings\Administrator\桌面\MadisSvr\server\MidServer.tlb (1)

// LIBID: {FB361C3B-65CD-4D88-B531-D554770F557A}

// LCID: 0

// Helpfile:

// HelpString: MidServer Library

// DepndLst:

//   (1) v1.0 Midas, (C:\WINDOWS\system32\midas.dll)

//   (2) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)

// ************************************************************************ //

{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.

{$WARN SYMBOL_PLATFORM OFF}

{$WRITEABLECONST ON}

{$VARPROPSETTER ON}

interface

uses Windows, ActiveX, Classes, Graphics, Midas, StdVCL, Variants;

 

// *********************************************************************//

// 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

  // TypeLibrary Major and minor versions

  MidServerMajorVersion = 1;

  MidServerMinorVersion = 0;

  LIBID_MidServer: TGUID = '{FB361C3B-65CD-4D88-B531-D554770F557A}';

  IID_ITest: TGUID = '{9A4E798C-321F-441D-BA84-7DBA23D5B369}';

  CLASS_Test: TGUID = '{24FF8621-2B81-4F7F-B657-0B33F7139B9F}';

type

// *********************************************************************//

// Forward declaration of types defined in TypeLibrary                   

// *********************************************************************//

  ITest = interface;

  ITestDisp = dispinterface;

// *********************************************************************//

// Declaration of CoClasses defined in Type Library                      

// (NOTE: Here we map each CoClass to its Default Interface)             

// *********************************************************************//

  Test = ITest;

// *********************************************************************//

// Interface: ITest

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {9A4E798C-321F-441D-BA84-7DBA23D5B369}

// *********************************************************************//

  ITest = interface(IAppServer)

    ['{9A4E798C-321F-441D-BA84-7DBA23D5B369}']

    function GetDateTime: TDateTime; safecall;

    function QryData(const ModuleId: WideString; SqlId: Shortint; Params: OleVariant): OleVariant; safecall;

    function ExecSQL(const ModuleId: WideString; SqlId: Shortint; Params: OleVariant): Shortint; safecall;

    function GetStoredData(const ModuleId: WideString; SqlId: Shortint; Params: OleVariant): OleVariant; safecall;

    function ExecStored(const ModuleId: WideString; SqlId: Shortint; Params: OleVariant): Shortint; safecall;

    function ApplyUpdate(const ModuleId: WideString; SqlId: Shortint; Delta: OleVariant): Shortint; safecall;

    function DownloadFile(const FileName: WideString): OleVariant; safecall;

    function GetDate: TDateTime; safecall;

    function GetFieldsDef(const ModuleId: WideString; SqlId: Shortint): OleVariant; safecall;

    function GetCaptions(const ModuleId: WideString): OleVariant; safecall;

    function ApplyUpdates(const ModuleId: WideString; SqlId: Shortint; Delta0: OleVariant;

                          Delta1: OleVariant; Delta2: OleVariant; Delta3: OleVariant): Shortint; safecall;

    function ChangePassword(const UserId: WideString; const OldPassword: WideString;

                            const NewPassword: WideString): Shortint; safecall;

    function CheckUser(const UserId: WideString; const Password: WideString): Shortint; safecall;

    function GetRights(const UserId: WideString; const ModuleId: WideString): OleVariant; safecall;

  end;

// *********************************************************************//

// DispIntf:  ITestDisp

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {9A4E798C-321F-441D-BA84-7DBA23D5B369}

// *********************************************************************//

  ITestDisp = dispinterface

    ['{9A4E798C-321F-441D-BA84-7DBA23D5B369}']

    function GetDateTime: TDateTime; dispid 304;

    function QryData(const ModuleId: WideString; SqlId: {??Shortint}OleVariant; Params: OleVariant): OleVariant; dispid 305;

    function ExecSQL(const ModuleId: WideString; SqlId: {??Shortint}OleVariant; Params: OleVariant): {??Shortint}OleVariant; dispid 306;

    function GetStoredData(const ModuleId: WideString; SqlId: {??Shortint}OleVariant;

                           Params: OleVariant): OleVariant; dispid 309;

    function ExecStored(const ModuleId: WideString; SqlId: {??Shortint}OleVariant;

                        Params: OleVariant): {??Shortint}OleVariant; dispid 310;

    function ApplyUpdate(const ModuleId: WideString; SqlId: {??Shortint}OleVariant;

                         Delta: OleVariant): {??Shortint}OleVariant; dispid 312;

    function DownloadFile(const FileName: WideString): OleVariant; dispid 314;

    function GetDate: TDateTime; dispid 315;

    function GetFieldsDef(const ModuleId: WideString; SqlId: {??Shortint}OleVariant): OleVariant; dispid 316;

    function GetCaptions(const ModuleId: WideString): OleVariant; dispid 301;

    function ApplyUpdates(const ModuleId: WideString; SqlId: {??Shortint}OleVariant;

                          Delta0: OleVariant; Delta1: OleVariant; Delta2: OleVariant;

                          Delta3: OleVariant): {??Shortint}OleVariant; dispid 302;

    function ChangePassword(const UserId: WideString; const OldPassword: WideString;

                            const NewPassword: WideString): {??Shortint}OleVariant; dispid 303;

    function CheckUser(const UserId: WideString; const Password: WideString): {??Shortint}OleVariant; dispid 307;

    function GetRights(const UserId: WideString; const ModuleId: WideString): OleVariant; dispid 308;

    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 CoTest provides a Create and CreateRemote method to         

// create instances of the default interface ITest exposed by             

// the CoClass Test. The functions are intended to be used by            

// clients wishing to automate the CoClass objects exposed by the        

// server of this typelibrary.                                           

// *********************************************************************//

  CoTest = class

    class function Create: ITest;

    class function CreateRemote(const MachineName: string): ITest;

  end;

implementation

uses ComObj;

class function CoTest.Create: ITest;

begin

  Result := CreateComObject(CLASS_Test) as ITest;

end;

class function CoTest.CreateRemote(const MachineName: string): ITest;

begin

  Result := CreateRemoteComObject(MachineName, CLASS_Test) as ITest;

end;

end.