1、打开你的中间层程序
2、执行View|Type library
3、在出现的窗口中,选择左边的Interface图标,按“New Method”按钮(在上面)。然后选择你新增的Method,将名字改为GetMaxString,在Parameters页填写你的参数,注意不要改动上面的Return type。你的返回值也要设置为一个参数,该参数名字任意,type为BSTR *,Modifier为out,retval。
4、然后在Remote datamodule(如果用MIDAS)对应的单元会看到增加了一个名字为GetMaxString的函数,将你的代码拷贝到该函数中。客户端:
如果你用SocketConnection连接,用这样的代码调用:
SocketConnection.Connected:=true;
v_orderNo:=SocketConnection.Appserver.GetMaxString;

解决方案 »

  1.   

    为什么转换后出现很多未定义的东西?如:TstoredProc,ftInteger,ptResult等等
    另:string,char对应的参数类型是什么(我暂时用的IStrings *和unsigned char)?
      

  2.   

    你的中间服务器中的remote datamodule中没有引用db单元(或者是dbquery单元?),你在remote datamodule上放一个TStoredprocs应该可以解决问题。string对应的类型是BSTR,如果需要返回值是BSTR *(*号要自己加)。我以后可能有两个星期不能上网,祝你好运。