Вызов CallBack

← →
Erik © (2002-10-23 18:56) [0]

Я работаю с Socket connection. Создаю интерфейс на клиенте
FClient := CoCallBack.Create; в CreateForm
После соеденения передяю серверу rs.AppServer.SetCallBack(FClient);
Все работает, но если сделать Disconect и опять законектится то финиш!
Пробова создать FClient := MyFactory.CreateComObject(MyFactory) as ICallBack;
Тотже эфект, но даже создать второй раз немогу.
Как решить эту проблему, какие требуются уточнения.

← →
Romkin © (2002-10-24 12:59) [1]

Ну и где хотя-бы какое-нибудь описание методов?
Так догадываться, где какой тип?

← →
Romkin © (2002-10-24 13:03) [2]

И, кстати, ты после повторного соединения передаешь на сервер интерфейс снова?
Обращаться к методам сервера, кстати, рекомендую через dispinterface, импортировав библиотеку типов на клиент

← →
Erik © (2002-10-24 17:59) [3]

Да передаю снова интерфейс. Библиотеку типов я всегда импортирую.
А реализовано это так
На клиенте:
TCallBack = class(TRemoteDataModule, ICallBack)
.... protected
function DoOperation(AValue: OleVariant): OleVariant; safecall;
При создании формы вызывается метод сервера
procedure SetCallBack(AValue: OleVariant); safecall;
rs.AppServer.SetCallBack(FClient);

В сервере:
procedure TCallBackServer.SetCallBack(AValue: OleVariant);
begin
FCallBack := AValue; //FCallBack: IDispatch;
FMarshaler.Unknown := IUnknown(IDispatch(FCallBack));
//FMarshaler: TInterThreadMarshaler;
end;
Но ошибка происходит на клиенте! На сервере все нормально.

Что-то я не понимаю, что делает TRemoteDataModule на клиентской части? Зачем? Должен быть TAutoObject или TAutoIntfObject
И какая ошибка на клиенте?

Вызов CallBack Найти похожие ветки