Есть ActiveX компонент, как обработать его сообщения?

← →
Zilog_ © (2006-07-24 10:00) [0]

Есть ActiveX компонент http://www.babarnazmi.citril.com/iaxcontrol/archive/iaxWebPhone.2.0.0.70.cab.

Добавляю его как TypeLibrary, Delphi создает нанего файл, о запускается и работает, но описанные в нем сообщения я обработать не могу!

Вот кусок запуска:

hone:=TIaxClientOcx.Create(self);
phone.InitIAX;
phone.InternalCallHandler:=1;
phone.Onlevels:=levels;
phone.OnStateEvents:=StateEvents;
phone.OnStateMessages:=Messages;
phone.OnRegistrationEvent:=RegistrationEvent;
phone.ApplyFilter(1,1,0,1,1);
phone.silencethreshold:=-99;

phone.Codec:=3;
phone.SelectLine(0);
phone.UserID:="3002";
phone.Password:="";
phone.HostName:="10.0.0.112";
phone.SetCLIID("zilog", "3002");
phone.PhoneNumber:="3002";
Описание:

// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name : TIaxClientOcx
// Help String : IaxClientOcx Control
// Default Interface: _DIaxClientOcx
// Def. Intf. DISP? : Yes
// Event Interface: _DIaxClientOcxEvents
// TypeFlags : (34) CanCreate Control
// *********************************************************************//
TIaxClientOcxlevels = procedure(ASender: TObject; input: Integer; output: Integer) of object;
TIaxClientOcxGetAudioDevices = procedure(ASender: TObject; const Type_: WideString;
const DeviceName: WideString) of object;
TIaxClientOcxStateEvents = procedure(ASender: TObject; CallNo: Smallint; state: Smallint;
const sRemote: WideString;
const sRemoteName: WideString;
const sLocal: WideString;
const sLocalContext: WideString) of object;
TIaxClientOcxStateMessages = procedure(ASender: TObject; const Message: WideString) of object;
TIaxClientOcxMessages = procedure(ASender: TObject; const Message: WideString; eventType: Smallint) of object;
TIaxClientOcxVoiceMailBox = procedure(ASender: TObject; const Caller: WideString;
MsgCounts: Smallint) of object;
TIaxClientOcxRegistrationEvent = procedure(ASender: TObject; Registration_id: Smallint;
Registration_reply: Smallint) of object;

....

property Onlevels: TIaxClientOcxlevels read FOnlevels write FOnlevels;
property OnGetAudioDevices: TIaxClientOcxGetAudioDevices read FOnGetAudioDevices write FOnGetAudioDevices;
property OnStateEvents: TIaxClientOcxStateEvents read FOnStateEvents write FOnStateEvents;
property OnStateMessages: TIaxClientOcxStateMessages read FOnStateMessages write FOnStateMessages;
property OnMessages: TIaxClientOcxMessages read FOnMessages write FOnMessages;
property OnVoiceMailBox: TIaxClientOcxVoiceMailBox read FOnVoiceMailBox write FOnVoiceMailBox;
property OnRegistrationEvent: TIaxClientOcxRegistrationEvent read FOnRegistrationEvent write FOnRegistrationEvent;

Я описываю так:
procedure StateEvents(ASender: TObject; CallNo: Smallint; state: Smallint; const sRemote: WideString; const sRemoteName: WideString; const sLocal: WideString; const sLocalContext: WideString);
procedure Messages(ASender: TObject; const Message: WideString);
procedure RegistrationEvent(ASender: TObject; Registration_id: Smallint; Registration_reply: Smallint);
procedure levels(ASender: TObject; input: Integer; output: Integer);

← →
Zilog_ © (2006-07-24 10:02) [1]

Как минимум сообщение об успешной или неуспешной регистрации должно выпасть, а его нет, но есть испольщование этого компанента JavaScript"ом, там вроде все работает?

← →
Zilog_ © (2006-07-24 10:04) [2]

http://www.babarnazmi.citril.com/iaxcontrol/webTelefone.zip
Рабочий вариант на PHP и JavaScript!

Есть ActiveX компонент, как обработать его сообщения? Найти похожие ветки