Question

delphi datasnap 三层

请问一下：delphi 用三层的时候，比如我在服务端写一个用户登录的验证函数，如果要传4个参数，分别是用户名、密码、是否成功、错误信息等；然后我在客户端调用这个函数去验证用户的登录信息是否正确；请问服务端的函数怎么写啊，客户端怎么去调用这个函数？求这个函数的代码和调用的语句。
比如，这是我的服务端的函数：
procedure TTestServer.Test1(const Value1, Value2: WideString;var Result: OleVariant);beginif (Trim(Value1) = 'sa') and (Trim(Value2) = 'sa') thenResult := 'OK'elseResult := 'NO';end;
这是我的客户端传递的参数的类型和调用服务端的方法：
UserCode, UserPw: WideString;OMsg, isOK: OleVariant;
DataModule2.con1.AppServer.Test1(UserCode, UserPw, OMsg);
图片是所报的错误信息：

请问：这是哪儿错了啊，我传递的参数类型错了吗？

Answer 1

那就把OleVariant换成WideString试试。
为何不用DataSnap或者WebService，以后扩展到移动应用更方便。

追问

哪个地方？还有我是想返回一个 OK 或者是 NO ，这样写为什么不对啊，我看别人的例子客户端调用的方法是这样的，一模一样，就是服务端的那个赋值有点不一样，我发现只要把赋值改成这样就报错。

追答

把 OleVariant 还成 WideString，只是一种排除错误的方法。如果换了没报错，就可确定是这里的问题。

追问

是换一个还是换两个？你说的这个我早就试了的，如果把服务器中的那个函数换了，函数就通不过，无法编译；如果是把客户端的那个，PCHAR，widestring,ansistring,PAnsiChar...等我都试过了，没有用。

追答

procedure TTestServer.Test1(const Value1, Value2: WideString;var Result: WideString);

UserCode, UserPw: WideString;OMsg, isOK: WideString;
DataModule2.con1.AppServer.Test1(UserCode, UserPw, OMsg);

追问

能给个案例吗？就像我上面那样，返回一个字符串？

追答

没有做过三层的，只是刚有XE3时试过DataSnap。WebService做过。

Answer 2

是不是传的数据类型有问题，实在不行就传JSON