Архив форумов ЦИТФорума

[Сергей Харыбин]

Вопрос спецам по мидасу.
Есть Билдер 5.0 на нем написана трехзвенка. Проблема вот в чем. Хочу передать от клиента на сервер приложений (middleware) сообщение в виде строки текста и имя компа с которого это было отправлено. Определил в type library свой метод WriteEvent, там 2 параметра типа BSTR.
Вызов метода на клиенте :
Socket->AppServer.OleProcedure("WriteEvent",(Variant)CompName, (Variant)Message);

Обработка на сервере :
STDMETHODIMP TRDMNorthWindImpl::WriteEvent(BSTR USER_BY_EVENT, BSTR MSG_EVENT)
{
ShowMessage(USER_BY_EVENT); // пользователь
ShowMessage(MSG_EVENT); // сообщение
return 0;
}

Выводит просто диалог без строки (нет ни имени пользователя ни сообщения). Я даже не знаю, передается ли что-нибудь, может в USER_BY_EVENT, BSTR MSG_EVENT ничего не попадает ?
Заранее спасибо за помощь.