DataSnap与JSON序列化（4）

最新推荐文章于 2025-01-21 09:36:24 发布

火星牛

最新推荐文章于 2025-01-21 09:36:24 发布

阅读量2.6k

点赞数

分类专栏： delphi开发文章标签： json textbox delphi server prism string

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

版权

delphi开发专栏收录该内容

73 篇文章

订阅专栏

delphi prism作为datasnap client可以调用delphi写的REST Server中的方法。

首先，可能是测试版的缘故，某些datasnap的组件，如TAdoDbxDatasnapConnection，在工具箱中没有安装，需要手动安装，C:/Program Files/Common Files/CodeGear Shared/Delphi Prism/Shared Assemblies/7.0/Borland.Data.AdoDBXClient.dll

datasnap调用写法：

method MainForm.button1_Click(sender: System.Object; e: System.EventArgs); var C:TAdoDbxDatasnapConnection; vC:TADODBXCommand; begin C:=new TAdoDbxDatasnapConnection(); try C.ConnectionString:= 'CommunicationProtocol=http;'+ 'HostName='+textBox_Server.Text+';'+ 'Port='+textBox_Port.Text; C.Open; vC:=C.CreateCommand as TADODBXCommand; try vC.CommandType:=System.Data.CommandType.StoredProcedure;// TDBXCommandTypes.DSServerMethod; vC.CommandText:='TServerMethods1.ReverseString'; vC.Prepare; vC.Parameters[0].Value:=textBox_RawString.Text; vC.ExecuteNonQuery; textBox_Result.Text:=vC.Parameters[1].Value.ToString; finally vC.Dispose; end; finally C.Dispose; end; end;

http get的写法是：

method MainForm.button3_Click(sender: System.Object; e: System.EventArgs); var J:TJSONObject; S:string; vURL:string; vHC:RemObjects.InternetPack.Http.HttpClient; begin vURL:='http://'+textBox_Server.Text+':'+textBox_Port.Text+'/datasnap/rest/TServerMethods1/ReverseString/'; vURL:=vURL+system.Uri.EscapeDataString(textBox_RawString.Text); vHC:=new RemObjects.InternetPack.Http.HttpClient(); S:=vHC.Get(vURL); //textBox_Result.Text:=S; J:=new Borland.Data.TJSONObject(); J.Parse(System.Text.Encoding.ASCII.GetBytes(S),0); textBox_Result.Text:=TJSONArray(J.Get(0).JsonValue).Get(0).Value; end;

注意参数的编码，需要使用函数system.Uri.EscapeDataString()来编码。

比如，参数：AB CDE上海FG、//?/，会被转义为：AB%20CDE%E4%B8%8A%E6%B5%B7FG%E3%80%81%5C%2F%3F%5C

出现一个问题，

当用localhost这样调用时，没有问题，得到：{"result":[//?/u3001GF/u6D77/u4E0AEDC BA]}

http://localhost:8080/datasnap/rest/TServerMethods1/ReverseString/AB%20CDE%E4%B8%8A%E6%B5%B7FG%E3%80%81%5C%2F%3F%5C

但是如果用外网的IP来调用时，就出现错误：

http://210.x.x.x:8080/datasnap/rest/TServerMethods1/ReverseString/AB%20CDE%E4%B8%8A%E6%B5%B7FG%E3%80%81%5C%2F%3F%5C

错误信息是： 500 Internal Server Error，The request was rejected by the HTTP filter. Contact the server administrator. (12217)

而参数换成简单的ABCD就可以：

http://210.x.x.x:8080/datasnap/rest/TServerMethods1/ReverseString/ABCD