sopc_tlb.pas

delphi 开发OPc工业通讯 delphi 开发OPc工业通讯

unit sOPC_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.88.1.0.1.0  $
// File generated on 30/06/2001 23:59:54 from Type Library described below.

// ************************************************************************ //
// Type Lib: sopc\demo\DataAccess20Demo.tlb (1)
// IID\LCID: {118921D1-0703-11D5-962A-00A024AEBA44}\0
// Helpfile:
// DepndLst:
//   (1) v2.0 stdole, (G:\WINNT\System32\stdole2.tlb)
//   (2) v4.0 StdVCL, (G:\WINNT\System32\stdvcl40.dll)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
interface

uses Windows, ActiveX, Classes, Graphics, OleServer, 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
  // TypeLibrary Major and minor versions
  sOPCMajorVersion = 1;
  sOPCMinorVersion = 0;

  LIBID_sOPC: TGUID = '{118921D1-0703-11D5-962A-00A024AEBA44}';

  IID_IOPCDataAccess20: TGUID = '{118921D2-0703-11D5-962A-00A024AEBA44}';
  IID_IOPCGroup: TGUID = '{118921D4-0703-11D5-962A-00A024AEBA44}';
  CLASS_OPCGroup: TGUID = '{118921D6-0703-11D5-962A-00A024AEBA44}';
  CLASS_OPCDataAccess20: TGUID = '{118921D8-0703-11D5-962A-00A024AEBA44}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
  IOPCDataAccess20 = interface;
  IOPCDataAccess20Disp = dispinterface;
  IOPCGroup = interface;

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


// *********************************************************************//
// Interface: IOPCDataAccess20
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {118921D2-0703-11D5-962A-00A024AEBA44}
// *********************************************************************//
  IOPCDataAccess20 = interface(IDispatch)
    ['{118921D2-0703-11D5-962A-00A024AEBA44}']
  end;

// *********************************************************************//
// DispIntf:  IOPCDataAccess20Disp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {118921D2-0703-11D5-962A-00A024AEBA44}
// *********************************************************************//
  IOPCDataAccess20Disp = dispinterface
    ['{118921D2-0703-11D5-962A-00A024AEBA44}']
  end;

// *********************************************************************//
// Interface: IOPCGroup
// Flags:     (0)
// GUID:      {118921D4-0703-11D5-962A-00A024AEBA44}
// *********************************************************************//
  IOPCGroup = interface(IUnknown)
    ['{118921D4-0703-11D5-962A-00A024AEBA44}']
  end;

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

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

implementation

uses ComObj;

class function CoOPCGroup.Create: IOPCGroup;
begin
  Result := CreateComObject(CLASS_OPCGroup) as IOPCGroup;
end;

class function CoOPCGroup.CreateRemote(const MachineName: string): IOPCGroup;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_OPCGroup) as IOPCGroup;
end;

class function CoOPCDataAccess20.Create: IOPCDataAccess20;
begin
  Result := CreateComObject(CLASS_OPCDataAccess20) as IOPCDataAccess20;
end;

class function CoOPCDataAccess20.CreateRemote(const MachineName: string): IOPCDataAccess20;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_OPCDataAccess20) as IOPCDataAccess20;
end;

end.