|
|
unit t_main_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.130.1.0.1.0.1.6 $
|
|
|
// File generated on 2011-2-16 16:15:46 from Type Library described below.
|
|
|
|
|
|
// ************************************************************************ //
|
|
|
// Type Lib: F:\WORK6.08\HUODAI\¶«Ê¤öκ£´ï»õ´úÆóÒµ°æADO6.0\t_main\t_main.tlb (1)
|
|
|
// LIBID: {F4CEC27B-F222-4599-B01B-05770302B68D}
|
|
|
// LCID: 0
|
|
|
// Helpfile:
|
|
|
// DepndLst:
|
|
|
// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
|
|
|
// (2) v4.0 StdVCL, (C:\WINDOWS\system32\stdvcl40.dll)
|
|
|
// ************************************************************************ //
|
|
|
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
|
|
|
{$WARN SYMBOL_PLATFORM OFF}
|
|
|
{$WRITEABLECONST ON}
|
|
|
{$VARPROPSETTER ON}
|
|
|
interface
|
|
|
|
|
|
uses Windows, ActiveX, Classes, Graphics, 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
|
|
|
t_mainMajorVersion = 1;
|
|
|
t_mainMinorVersion = 0;
|
|
|
|
|
|
LIBID_t_main: TGUID = '{F4CEC27B-F222-4599-B01B-05770302B68D}';
|
|
|
|
|
|
IID_Icorsvmsg: TGUID = '{9CB480F4-C5DD-489C-87C5-7CC1AC9A4376}';
|
|
|
CLASS_corsvmsg: TGUID = '{C9D6A8A2-D9D6-45DC-A811-772550433D8B}';
|
|
|
DIID_IcorsvmsgDisp: TGUID = '{BA560685-08D8-4455-ADA6-F097B8DBABA6}';
|
|
|
type
|
|
|
|
|
|
// *********************************************************************//
|
|
|
// Forward declaration of types defined in TypeLibrary
|
|
|
// *********************************************************************//
|
|
|
Icorsvmsg = interface;
|
|
|
IcorsvmsgDisp = dispinterface;
|
|
|
|
|
|
// *********************************************************************//
|
|
|
// Declaration of CoClasses defined in Type Library
|
|
|
// (NOTE: Here we map each CoClass to its Default Interface)
|
|
|
// *********************************************************************//
|
|
|
corsvmsg = Icorsvmsg;
|
|
|
|
|
|
|
|
|
// *********************************************************************//
|
|
|
// Interface: Icorsvmsg
|
|
|
// Flags: (256) OleAutomation
|
|
|
// GUID: {9CB480F4-C5DD-489C-87C5-7CC1AC9A4376}
|
|
|
// *********************************************************************//
|
|
|
Icorsvmsg = interface(IUnknown)
|
|
|
['{9CB480F4-C5DD-489C-87C5-7CC1AC9A4376}']
|
|
|
function rsvmsg(const msg: WideString): HResult; stdcall;
|
|
|
end;
|
|
|
|
|
|
// *********************************************************************//
|
|
|
// DispIntf: IcorsvmsgDisp
|
|
|
// Flags: (4096) Dispatchable
|
|
|
// GUID: {BA560685-08D8-4455-ADA6-F097B8DBABA6}
|
|
|
// *********************************************************************//
|
|
|
IcorsvmsgDisp = dispinterface
|
|
|
['{BA560685-08D8-4455-ADA6-F097B8DBABA6}']
|
|
|
end;
|
|
|
|
|
|
// *********************************************************************//
|
|
|
// The Class Cocorsvmsg provides a Create and CreateRemote method to
|
|
|
// create instances of the default interface Icorsvmsg exposed by
|
|
|
// the CoClass corsvmsg. The functions are intended to be used by
|
|
|
// clients wishing to automate the CoClass objects exposed by the
|
|
|
// server of this typelibrary.
|
|
|
// *********************************************************************//
|
|
|
Cocorsvmsg = class
|
|
|
class function Create: Icorsvmsg;
|
|
|
class function CreateRemote(const MachineName: string): Icorsvmsg;
|
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses ComObj;
|
|
|
|
|
|
class function Cocorsvmsg.Create: Icorsvmsg;
|
|
|
begin
|
|
|
Result := CreateComObject(CLASS_corsvmsg) as Icorsvmsg;
|
|
|
end;
|
|
|
|
|
|
class function Cocorsvmsg.CreateRemote(const MachineName: string): Icorsvmsg;
|
|
|
begin
|
|
|
Result := CreateRemoteComObject(MachineName, CLASS_corsvmsg) as Icorsvmsg;
|
|
|
end;
|
|
|
|
|
|
end.
|