DataSnap与JSON序列化（5）

一、用ASP.Net做客户端调用REST Server

 

在Delphi prism xe中使用ASP.Net做客户端，

（1）通过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;

（2）通过DataSnap Client调用

调用REST Server会出现一个错误：

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;

未能加载文件或程序集“Borland.Data.DbxClientDriver/,Version/=$ASSEMBLY_VERSION$/,Culture/=neutral/,PublicKeyToken/=91d62ebb5b0d1b1b”或它的某一个依赖项。给定程序集名称或基本代码无效。 (异常来自 HRESULT:0x80131047)

具体应该是：

'Borland.Data.DbxCommonDriver, Version=15.0.0.0, Culture=neutral, PublicKeyToken=a91a7c5705831a4f' or one of its dependencies

 

已经确认这是个bug，https://forums.embarcadero.com/message.jspa?messageID=294148#294148

 

二、Delphi prism能写REST Server吗？

 

Delphi prism xe没有直接写REST Server的project wizard，但是可以参考visual c#/Web/WCF REST Service Application的写法，然后在Prism中，建立一个Web/ASP.Net Web Application项目，然后，在Project右键，“添加”-“import c#”，选到那个Service1.cs，会自动转成Service.pas，在其中写个函数：

 

Service1 = public class public [WebGet(UriTemplate := 'Sum/{a}/{b}')] method Sum(a: System.String; b: System.String): System.Int32; implementation method Service1.Sum(a: System.String; b: System.String): System.Int32; begin Result:= Convert.ToInt32(a) * 10 + Convert.ToInt32(b); end;

方法前因为要加[WebGet(UriTemplate := 'Sum/{a}/{b}')]，按参数列举出URI的样式，所以函数参数必须是字串，定义成a:integer就编译不过。（我不确定是不是这样定死了的）

 

然后，打开global.asax.pas，在其中写上：

method Global_asax.Application_Start(sender: Object; e: EventArgs); begin // Edit the base address of Service1 by replacing the "Service1" string below RouteTable.Routes.Add(new ServiceRoute('Service1', new WebServiceHostFactory(), typeof(Service1))) end;

记得useing 这几个：

  System.ServiceModel,
  System.ServiceModel.Activation,
  System.Web.Routing,

 

然后编译，ok了。

 

在IE中执行：http://localhost:54795/Service1/Sum/3/4

出现错误：

无法显示 XML 页。 无法查看使用 样式表的 XML 输入。请更正错误然后单击 刷新 按钮，或稍后重试。 -------------------------------------------------------------------------------- XML 文档必须有一个顶层元素。处理资源 'http://localhost:54795/Service1/Sum/3/4' 时出错。

查看原文件，看到的是：

<int xmlns="http://schemas.microsoft.com/2003/10/Serialization/">34</int>

如果在函数的Attribute中加上ResponseFormat := WebMessageFormat.Json，就可以看到结果了：

[WebGet(UriTemplate := 'Sum/{a}/{b}', ResponseFormat := WebMessageFormat.Json)] method Sum(a: System.String; b: System.String): System.Int32; http://localhost:54795/Service1/Sum/3/4 结果： <int xmlns="http://schemas.microsoft.com/2003/10/Serialization/">34</int>

 

后续希望prism能直接提供这样的REST Server project wizard。或者希望Visual Studo Shell的project wizard都有一个语言选项，让不同的厂家以不同的语言来实现，如delphi,c#,vb.Net等。

 

三、REST Server的部署

 

以上是在IDE调试执行的。

在用dll部署到windows7的IIS7中，http://localhost:8084/WebApplication3.dll执行时出现了如下错误：

HTTP 错误 500.0 - Internal Server Error 无法显示页面，因为发生内部服务器错误。

将继续研究......

 

四、Delphi prism xe能用datasnap来写REST Server吗？

 

确认了在delphi prism xe中无法使用DataSnap来写REST Server，即无法使用TDSServer。