使用delphi 开发多层应用(十二)使用kbmMW webserver 返回JSON

  1. 云栖社区>
  2. 博客>
  3. 正文

使用delphi 开发多层应用(十二)使用kbmMW webserver 返回JSON

xalion 2012-03-27 18:28:00 浏览809
展开阅读全文

     由于kbmMW 服务器与客户端交互是使用它的专用数据格式,因此与其它语言及平台相互访问的话就会有兼容问题,

为了最大化的利用kbmMW 服务器,从kbmMW 4.0 以后,其开始支持JSON 格式传递数据,其实就是可以通过

Webserver根据客户端的request 来返回对应的JSON串.

    继续利用上次的webserver 的例子,在webservice 里面加一个TkbmMWIBDACQuery和TkbmMWJSONStreamFormat,

如图:

同时在代码里面添加以下代码
function Twebsrv.Performget(ClientIdent:TkbmMWClientIdentity; const Args:array of Variant):Variant;
var
mystringstream:Tstringstream;
MimeType:string;
Charset:string;


begin

// Enter code here to perform function get
if length(Args)<1 then
kbmMWRaiseException(KBMMW_ERR_SERVICE_HTTP_URLMISSING,'Missing URL.');

if args[0]='/getdata' then
begin
cx.SQL.Clear;
cx.SQL.Add('select XH,XM,RQ from rssj');
cx.Open;
mystringstream:=TstringStream.Create('',TEncoding.UTF8); //设置为UTF8格式

try
cx.SaveToStreamViaFormat(mystringstream,kbmMWJSONStreamFormat1);
Result:=mystringstream.DataString;
finally
mystringstream.Free;
end;
Exit;
end;



result:=HTTPResponseFromFile(Args[0],MimeType,Charset);

SetResponseMimeType(MimeType);
SetResponsecharset(Charset);
end;
运行就可以显示以下效果
剩下的就是客户端自己随便解释了。

网友评论

登录后评论
0/500
评论
xalion
+ 关注