OLE сервер:
function TMP_DataInt.UniMessage(ParamIn1, ParamIn2: OleVariant): OleVariant;
begin
Result:=UniMessageHandler(ParamIn1, ParamIn2);
end;
OLE клиент:
function TMBData.UniMessage(const Command: string; const Parameters: OleVariant): OleVariant;
begin
Result:=DataInt.UniMessage(Command,Parameters); // <-- тут изредка падает, без возможности обработать ошибку.
end;
Как забороть Stack Overflow в клиенте на этой строке?
Какие причины могут быть?