mobileagent_tlb.pas

来自「FMA is a free1 powerful phone editing to」· PAS 代码 · 共 324 行 · 第 1/2 页

unit MobileAgent_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 27.01.2007 19:43:45 from Type Library described below.

// ************************************************************************  //
// Type Lib: C:\Projects\FMA\fma\trunk\MobileAgent.tlb (1)
// LIBID: {6D3D646F-A801-4FE4-8610-F209E33D0D6E}
// LCID: 0
// Helpfile: 
// HelpString: MobileAgent 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
  MobileAgentMajorVersion = 1;
  MobileAgentMinorVersion = 0;

  LIBID_MobileAgent: TGUID = '{6D3D646F-A801-4FE4-8610-F209E33D0D6E}';

  IID_IMobileAgentApp: TGUID = '{85984EEC-577C-424F-8823-210985DD844B}';
  CLASS_MobileAgentApp: TGUID = '{FD31E34D-CB7A-4896-ACA1-6276F345E34F}';
  IID_IAccessoriesMenu: TGUID = '{BD3C5F9C-AB43-4121-B44D-E3AD940E3C90}';
  CLASS_AccessoriesMenu: TGUID = '{6399EFF0-639D-4CB5-91B5-7F8D48640D1B}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IMobileAgentApp = interface;
  IMobileAgentAppDisp = dispinterface;
  IAccessoriesMenu = interface;
  IAccessoriesMenuDisp = dispinterface;

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


// *********************************************************************//
// Interface: IMobileAgentApp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {85984EEC-577C-424F-8823-210985DD844B}
// *********************************************************************//
  IMobileAgentApp = interface(IDispatch)
    ['{85984EEC-577C-424F-8823-210985DD844B}']
    procedure AddCmd(const alabel: WideString; const event: WideString); safecall;
    procedure Connect; safecall;
    procedure Disconnect; safecall;
    procedure Exit; safecall;
    function Get_KeyPress: WideString; safecall;
    function Get_PopKey: WideString; safecall;
    procedure EnableKeyMonitor; safecall;
    procedure Debug(const Str: WideString); safecall;
    procedure ClearKey; safecall;
    procedure Status(const Str: WideString); safecall;
    procedure Minimize; safecall;
    procedure Restore; safecall;
    procedure Set_KeyInActivityTimeout(Param1: Integer); safecall;
    procedure Transmit(const Cmd: WideString); safecall;
    function Get_Connected: Integer; safecall;
    function Get_LookupByNumber(const Number: WideString): WideString; safecall;
    function Get_Received: WideString; safecall;
    procedure SentMessage(const Msg: WideString; const DestNo: WideString; ReqReply: Smallint; 
                          Flash: Smallint; StatusReq: Smallint); safecall;
    procedure ObexPut(const filename: WideString); safecall;
    procedure VoiceCall(const Number: WideString); safecall;
    procedure VoiceAnswer; safecall;
    procedure VoiceHangUp; safecall;
    function ObexGetObj(const filename: WideString; const objecturl: WideString): HResult; safecall;
    function ObexPutObj(const filename: WideString; const objecturl: WideString): HResult; safecall;
    function ObexGet(const filename: WideString; const objectname: WideString): HResult; safecall;
    procedure ObexDelete(const objectname: WideString); safecall;
    function ObexCut(const filename: WideString; const objectname: WideString): HResult; safecall;
    procedure AddTimer(msec: Integer; const event: WideString); safecall;
    procedure DeleteTimer(const event: WideString); safecall;
    procedure DisableKeyMonitor; safecall;
    procedure ScriptCall(const Code: WideString); safecall;
    procedure Sleep(msec: Integer); safecall;
    function Get_PhoneType(const Number: WideString): WideString; safecall;
    procedure DisconnectTemporary; safecall;
    function dGetText(const Domain: WideString; const szMsgId: WideString): WideString; safecall;
    function dnGetText(const Domain: WideString; const Singular: WideString; 
                       const Plural: WideString; Number: Integer): WideString; safecall;
    function GetCurrentLocale: WideString; safecall;
    function Get_PhoneModel: WideString; safecall;
    procedure AddTip(const atip: WideString; atimeoutsecs: Integer; ashownow: Smallint); safecall;
    procedure ClearTips; safecall;
    procedure AddBaloon(const atext: WideString; atimeoutsecs: Integer); safecall;
    procedure HideBaloon; safecall;
    function Get_MobileAgentFolder: WideString; safecall;
    function Get_ScriptFolder: WideString; safecall;
    function PhoneEncode(const atext: WideString): OleVariant; safecall;
    function PhoneDecode(atext: OleVariant): WideString; safecall;
    function Get_isT610clone: WordBool; safecall;
    function Get_isK750clone: WordBool; safecall;
    function Get_isK750orBetter: WordBool; safecall;
    property KeyPress: WideString read Get_KeyPress;
    property PopKey: WideString read Get_PopKey;
    property KeyInActivityTimeout: Integer write Set_KeyInActivityTimeout;
    property Connected: Integer read Get_Connected;
    property LookupByNumber[const Number: WideString]: WideString read Get_LookupByNumber;
    property Received: WideString read Get_Received;
    property PhoneType[const Number: WideString]: WideString read Get_PhoneType;
    property PhoneModel: WideString read Get_PhoneModel;
    property MobileAgentFolder: WideString read Get_MobileAgentFolder;
    property ScriptFolder: WideString read Get_ScriptFolder;
    property isT610clone: WordBool read Get_isT610clone;
    property isK750clone: WordBool read Get_isK750clone;
    property isK750orBetter: WordBool read Get_isK750orBetter;
  end;

// *********************************************************************//
// DispIntf:  IMobileAgentAppDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {85984EEC-577C-424F-8823-210985DD844B}
// *********************************************************************//
  IMobileAgentAppDisp = dispinterface
    ['{85984EEC-577C-424F-8823-210985DD844B}']
    procedure AddCmd(const alabel: WideString; const event: WideString); dispid 1;
    procedure Connect; dispid 2;
    procedure Disconnect; dispid 3;
    procedure Exit; dispid 4;
    property KeyPress: WideString readonly dispid 5;
    property PopKey: WideString readonly dispid 7;
    procedure EnableKeyMonitor; dispid 8;
    procedure Debug(const Str: WideString); dispid 9;
    procedure ClearKey; dispid 10;
    procedure Status(const Str: WideString); dispid 11;
    procedure Minimize; dispid 12;
    procedure Restore; dispid 13;