DataSnap与JSON序列化（2）

最新推荐文章于 2021-08-06 08:59:20 发布

火星牛

最新推荐文章于 2021-08-06 08:59:20 发布

阅读量2.4k

点赞数

分类专栏： delphi开发文章标签： json function server 服务器

本文链接：https://blog.csdn.net/acrodelphi/article/details/5936345

版权

delphi开发专栏收录该内容

73 篇文章

订阅专栏

本文探讨了DataSnap服务器方法中对OLEVariant类型的支持情况，并通过一个具体的示例展示了如何在客户端正确调用并获取返回的Variant数组。当尝试通过HTTP GET方式调用时遇到了类型转换错误。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Server Method可以支持OLEVariant类型，但不支持Variant类型，呵呵，都一样的东西，可能笔误吧。查看DSReflect.pas的这个函数

function TDSClass.GetDBXDataType(AllowUnknown: Boolean; Parameter: TDBXParameter): Integer; begin ..... else if FTypeData.ClassType.ClassNameIs(SOleVariant) then begin Result := TDBXDataTypes.VariantType; end ......

里面只列举了OLEVariant。

写一个函数试试：

function TERP_Order.TestVariantArray: OLEVariant; begin Result:=VarArrayOf(['wxh',34,True,Now]); end;

客户端调用：

procedure TForm1.Button5Click(Sender: TObject); var vC:TDBXCommand; P:TDBXParameter; V:OLEVariant; begin SQLConnection1.Params.Values['CommunicationProtocol'] := 'http'; SQLConnection1.Params.Values['HostName'] := edDSServer.Text; SQLConnection1.Params.Values['Port'] := edDSPort.Text; SQLConnection1.Params.Values['DSAuthenticationUser'] := edUserName.Text; SQLConnection1.Params.Values['DSAuthenticationPassword'] := edPassowrd.Text; SQLConnection1.Open; vC:=SQLConnection1.DBXConnection.CreateCommand; vC.CommandType:= TDBXCommandTypes.DSServerMethod; vC.Text:='TERP_Order.TestVariantArray' vC.Prepare; vC.ExecuteUpdate; V:=vC.Parameters[0].Value.asVariant; Edit1.Text:=VarToStr(V[0]); vC.Free; end;

可以得到正确的结果。但是如果用http get调用，就会报错：

服务器错误信息：Cannot convert DBX type TDBXTypes.Variant into a JSON value

客户端错误信息：HTTP/1.1 500 Internal Server Error.

难道DataSnap自己没有使用JSON格式编码？？