Midas client

← →
OlegL © (2003-08-12 15:48) [0]

Help! Создал Midas сервера и клиента (RemoteDataModule - всё как пологается). На стороне сервера сделал метод которого хочу вызвать, дела ю так:
var ICom : IRevTehSrv; a : string; .... DataModule.DCOMConnection.Connected := true; ICom := IRevTehSrv(IDispatch(DataModule.DCOMConnection.AppServer)); a := ICom.First("a", "s"); DataModule.DCOMConnection.Connected := false;
появляется ошибка типа "Exception EAccesViolation in module RPCRT4.DLL at....." (всё везде зарегистрированно).
что я упустил?

← →
clickmaker © (2003-08-12 17:17) [1]

А если так

ICom := (DataModule.DCOMConnection.GetServer as IRevTehSrv);

← →
OlegL © (2003-08-13 10:01) [2]

Та же самая ошибка. Может кто-то знает что это за dll-ка, или где об этом написанно.

← →
OlegL © (2003-08-13 15:18) [3]

:-))) Дело совсем в другом. Если сделать First не функцией а процедурой с выходным параметром: ICom.First(InParam, InParam, OutParam) то работает.

← →
clickmaker © (2003-08-13 15:35) [4]

Странно... А тип возвращаемого First значения какой ?

← →
OlegL © (2003-08-14 13:47) [5]

WideString. Я не знаю, но у меня не получается делать функции как метод интерфейса. Процедуры делаю и работает всё прекрасно.

Чтобы твоя процедура стала функцией, нужно задать в ней параметр - [out, retval].

Спасибо

Midas client Найти похожие ветки