Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Zilog_ © (2006-07-24 10:00:00)
Есть 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:04:00) [1]
http://www.babarnazmi.citril.com/iaxcontrol/webTelefone.zip
Рабочий вариант на PHP и JavaScript!

Zilog_ (2006-07-24 10:04:00) [2]
http://www.babarnazmi.citril.com/iaxcontrol/webTelefone.zip
Рабочий вариант на PHP и JavaScript!

Zilog_ (2006-07-24 10:02:00) [3]
Как минимум сообщение об успешной или неуспешной регистрации должно выпасть, а его нет, но есть испольщование этого компанента JavaScript'ом, там вроде все работает?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »