www.pudn.com > mycomdatamodule.rar > server_TLB.pas

unit server_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 2006-04-10 15:46:28 from Type Library described below. 
 
// ************************************************************************  // 
// Type Lib: E:\develop\delphi7\Projects\mydemos\mycomdatamodule\server.tlb (1) 
// LIBID: {BE9F3D94-DBE9-47E3-8555-62F90072A2C5} 
// LCID: 0 
// Helpfile:  
// HelpString: server 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 
  serverMajorVersion = 1; 
  serverMinorVersion = 0; 
 
  LIBID_server: TGUID = '{BE9F3D94-DBE9-47E3-8555-62F90072A2C5}'; 
 
  IID_Imycomdatamodule: TGUID = '{65E31EB5-19A3-47E0-B634-0F4DBA2ADDB7}'; 
  CLASS_mycomdatamodule: TGUID = '{43CB9D93-EAF6-4A89-83E6-7B5EFE0133FF}'; 
type 
 
// *********************************************************************// 
// Forward declaration of types defined in TypeLibrary                     
// *********************************************************************// 
  Imycomdatamodule = interface; 
  ImycomdatamoduleDisp = dispinterface; 
 
// *********************************************************************// 
// Declaration of CoClasses defined in Type Library                        
// (NOTE: Here we map each CoClass to its Default Interface)               
// *********************************************************************// 
  mycomdatamodule = Imycomdatamodule; 
 
 
// *********************************************************************// 
// Interface: Imycomdatamodule 
// Flags:     (4416) Dual OleAutomation Dispatchable 
// GUID:      {65E31EB5-19A3-47E0-B634-0F4DBA2ADDB7} 
// *********************************************************************// 
  Imycomdatamodule = interface(IAppServer) 
    ['{65E31EB5-19A3-47E0-B634-0F4DBA2ADDB7}'] 
  end; 
 
// *********************************************************************// 
// DispIntf:  ImycomdatamoduleDisp 
// Flags:     (4416) Dual OleAutomation Dispatchable 
// GUID:      {65E31EB5-19A3-47E0-B634-0F4DBA2ADDB7} 
// *********************************************************************// 
  ImycomdatamoduleDisp = dispinterface 
    ['{65E31EB5-19A3-47E0-B634-0F4DBA2ADDB7}'] 
    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 Comycomdatamodule provides a Create and CreateRemote method to           
// create instances of the default interface Imycomdatamodule exposed by               
// the CoClass mycomdatamodule. The functions are intended to be used by              
// clients wishing to automate the CoClass objects exposed by the          
// server of this typelibrary.                                             
// *********************************************************************// 
  Comycomdatamodule = class 
    class function Create: Imycomdatamodule; 
    class function CreateRemote(const MachineName: string): Imycomdatamodule; 
  end; 
 
implementation 
 
uses ComObj; 
 
class function Comycomdatamodule.Create: Imycomdatamodule; 
begin 
  Result := CreateComObject(CLASS_mycomdatamodule) as Imycomdatamodule; 
end; 
 
class function Comycomdatamodule.CreateRemote(const MachineName: string): Imycomdatamodule; 
begin 
  Result := CreateRemoteComObject(MachineName, CLASS_mycomdatamodule) as Imycomdatamodule; 
end; 
 
end.