RealICQClient/COM/RealOAMessenger/RealOAMessenger_TLB.pas

unit RealOAMessenger_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-6-29 21:36:03 from Type Library described below.

// ************************************************************************  //
// Type Lib: E:\RealICQ Projects For Win32\COM\RealOAMessenger\RealOAMessenger.tlb (1)
// LIBID: {073821AC-394D-42D2-BCA8-302A10C0ED3F}
// LCID: 0
// Helpfile: 
// HelpString: RealOAMessenger Library
// DepndLst: 
//   (1) 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, 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
  RealOAMessengerMajorVersion = 1;
  RealOAMessengerMinorVersion = 0;

  LIBID_RealOAMessenger: TGUID = '{073821AC-394D-42D2-BCA8-302A10C0ED3F}';

  IID_IMessageSender: TGUID = '{2F15F50A-8B00-4E45-9FEA-348444426289}';
  DIID_IMessageSenderEvents: TGUID = '{C11DF95E-32ED-40A2-AC1A-AA1CC4F2F29A}';
  CLASS_MessageSender: TGUID = '{496943DC-E2AB-4DE5-A8FC-7A11A1CF654D}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IMessageSender = interface;
  IMessageSenderDisp = dispinterface;
  IMessageSenderEvents = dispinterface;

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


// *********************************************************************//
// Interface: IMessageSender
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {2F15F50A-8B00-4E45-9FEA-348444426289}
// *********************************************************************//
  IMessageSender = interface(IDispatch)
    ['{2F15F50A-8B00-4E45-9FEA-348444426289}']
    function Get_ServerAddress: OleVariant; safecall;
    procedure Set_ServerAddress(Value: OleVariant); safecall;
    function Get_ServerPort: OleVariant; safecall;
    procedure Set_ServerPort(Value: OleVariant); safecall;
    function Get_ProxyType: OleVariant; safecall;
    procedure Set_ProxyType(Value: OleVariant); safecall;
    function Get_ProxyAddress: OleVariant; safecall;
    procedure Set_ProxyAddress(Value: OleVariant); safecall;
    function Get_ProxyPort: OleVariant; safecall;
    procedure Set_ProxyPort(Value: OleVariant); safecall;
    function Get_ProxyUsername: OleVariant; safecall;
    procedure Set_ProxyUsername(Value: OleVariant); safecall;
    function Get_ProxyPassword: OleVariant; safecall;
    procedure Set_ProxyPassword(Value: OleVariant); safecall;
    function Get_ProxyDomain: OleVariant; safecall;
    procedure Set_ProxyDomain(Value: OleVariant); safecall;
    function Get_Username: OleVariant; safecall;
    procedure Set_Username(Value: OleVariant); safecall;
    function Get_Password: OleVariant; safecall;
    procedure Set_Password(Value: OleVariant); safecall;
    procedure SendSystemMessage(MessageType: OleVariant; AutoOpenWindow: OleVariant; 
                                Position: OleVariant; Left: OleVariant; Top: OleVariant; 
                                Width: OleVariant; Height: OleVariant; Title: OleVariant; 
                                Content: OleVariant; Url: OleVariant; AutoCloseTime: OleVariant; 
                                Users: OleVariant); safecall;
    property ServerAddress: OleVariant read Get_ServerAddress write Set_ServerAddress;
    property ServerPort: OleVariant read Get_ServerPort write Set_ServerPort;
    property ProxyType: OleVariant read Get_ProxyType write Set_ProxyType;
    property ProxyAddress: OleVariant read Get_ProxyAddress write Set_ProxyAddress;
    property ProxyPort: OleVariant read Get_ProxyPort write Set_ProxyPort;
    property ProxyUsername: OleVariant read Get_ProxyUsername write Set_ProxyUsername;
    property ProxyPassword: OleVariant read Get_ProxyPassword write Set_ProxyPassword;
    property ProxyDomain: OleVariant read Get_ProxyDomain write Set_ProxyDomain;
    property Username: OleVariant read Get_Username write Set_Username;
    property Password: OleVariant read Get_Password write Set_Password;

    procedure OnStartPage(const unk: IUnknown); safecall;
    procedure OnEndPage; safecall;
  end;

// *********************************************************************//
// DispIntf:  IMessageSenderDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {2F15F50A-8B00-4E45-9FEA-348444426289}
// *********************************************************************//
  IMessageSenderDisp = dispinterface
    ['{2F15F50A-8B00-4E45-9FEA-348444426289}']
    property ServerAddress: OleVariant dispid 201;
    property ServerPort: OleVariant dispid 202;
    property ProxyType: OleVariant dispid 203;
    property ProxyAddress: OleVariant dispid 204;
    property ProxyPort: OleVariant dispid 205;
    property ProxyUsername: OleVariant dispid 206;
    property ProxyPassword: OleVariant dispid 207;
    property ProxyDomain: OleVariant dispid 208;
    property Username: OleVariant dispid 209;
    property Password: OleVariant dispid 210;
    procedure SendSystemMessage(MessageType: OleVariant; AutoOpenWindow: OleVariant; 
                                Position: OleVariant; Left: OleVariant; Top: OleVariant; 
                                Width: OleVariant; Height: OleVariant; Title: OleVariant; 
                                Content: OleVariant; Url: OleVariant; AutoCloseTime: OleVariant; 
                                Users: OleVariant); dispid 211;
                                
    procedure OnStartPage(const unk: IUnknown); dispid 212;
    procedure OnEndPage; dispid 213;
    
  end;

// *********************************************************************//
// DispIntf:  IMessageSenderEvents
// Flags:     (4096) Dispatchable
// GUID:      {C11DF95E-32ED-40A2-AC1A-AA1CC4F2F29A}
// *********************************************************************//
  IMessageSenderEvents = dispinterface
    ['{C11DF95E-32ED-40A2-AC1A-AA1CC4F2F29A}']
  end;

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

implementation

uses ComObj;

class function CoMessageSender.Create: IMessageSender;
begin
  Result := CreateComObject(CLASS_MessageSender) as IMessageSender;
end;

class function CoMessageSender.CreateRemote(const MachineName: string): IMessageSender;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_MessageSender) as IMessageSender;
end;

end.