PHP DM Gate v0.9 » События в интерфейсе COM сервера

Дмитрий Белькевич (25.05.11 19:02) [0]

Добрый день. Пытаюсь сделать два события в интерфейсе COM сервера.

На клиенте вызываю события так:

FEvents.OnTestGUI(Param1);
FEvents.OnTestGUI2(Param1);

На COM сервере оба события приходят, но у них одинаковый DispID. Соответственно - вызывается одно и то же событие:

procedure TTestGUI.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
begin
case DispID of
-1: Exit; // DISPID_UNKNOWN
201: if Assigned(FOnTestGUI) then
FOnTestGUI(Self, Params[0] {const WideString});
202: if Assigned(FOnTestGUI2) then
FOnTestGUI2(Self, Params[0] {const WideString});
end; {case DispID}
end;

Вопрос - что я не так делаю?

<Цитата>
Дмитрий Белькевич (26.05.11 13:24) [1]

У себя косяк нашел таки... Всё нормально работает.

<Цитата>