使用delphi 开发多层应用（十二）使用kbmMW webserver 返回JSON

由于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 getif length(Args)<1 then        kbmMWRaiseException(KBMMW_ERR_SERVICE_HTTP_URLMISSING,'Missing URL.');

if args[0]='/getdata' thenbegin          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;

运行就可以显示以下效果

剩下的就是客户端自己随便解释了。

转载于:https://www.cnblogs.com/xalion/archive/2012/03/27/2420011.html

使用delphi 开发多层应用（十二）使用kbmMW webserver 返回JSON相关推荐

使用delphi 开发多层应用（二十一）使用XE5 RESTClient 直接访问kbmmw 数据库
delphi XE5 出来了,增加了android 的开发支持,另外增加了一个RESTClient 来支持访问REST 服务器. 这个功能非常强大,可以直接使用非常多的REST 服务器.同时也可以支持 ...
使用delphi 开发多层应用（二十二）使用kbmMW 的认证管理器
从kbmmw 4.4 开始,增加了认证管理器,这个比原来的简单认证提供了更多的功能.细化了很多权限操作. 今天对这一块做个介绍. 要做一个认证管理,大概分为以下5步: 1. 定义你要保护的资源,一般 ...
iOS 11开发教程（十二）iOS11应用视图始祖——UIView
iOS 11开发教程(十二)iOS11应用视图始祖--UIView 在Swift中,NSObject是所有类的根类.同样在UIKit框架(UIKit框架为iOS应用程序提供界面对象和控制器)中,也存在 ...
SAP UI5 应用开发教程之六十二 - 基于 OData V4 的 SAP UI5 表格控件使用方法介绍试读版
一套适合 SAP UI5 初学者循序渐进的学习教程教程目录 SAP UI5 本地开发环境的搭建 SAP UI5 应用开发教程之一:Hello World SAP UI5 应用开发教程之二:SAP U ...
SAP UI5 应用开发教程之四十二 - SAP UI5 自带的 Diagnostics 诊断工具使用方法介绍
一套适合 SAP UI5 初学者循序渐进的学习教程教程目录 SAP UI5 本地开发环境的搭建 SAP UI5 应用开发教程之一:Hello World SAP UI5 应用开发教程之二:SAP U ...
SAP UI5 应用开发教程之三十二 - 如何创建一个自定义 SAP UI5 控件试读版
一套适合 SAP UI5 初学者循序渐进的学习教程教程目录 SAP UI5 本地开发环境的搭建 SAP UI5 应用开发教程之一:Hello World SAP UI5 应用开发教程之二:SAP U ...
《C++游戏开发》笔记十二战争迷雾：初步实现
本系列文章由七十一雾央编写,转载请注明出处. http://blog.csdn.net/u011371356/article/details/9475979 作者:七十一雾央新浪微博:http:// ...
SAP UI5 应用开发教程之八十二 - 采用 OPA5 开发支持页面跳转的 SAP UI5 集成测试用例试读版
一套适合 SAP UI5 初学者循序渐进的学习教程教程目录 SAP UI5 本地开发环境的搭建 SAP UI5 应用开发教程之一:Hello World SAP UI5 应用开发教程之二:SAP U ...
20189200余超 2018-2019-2 移动平台应用开发实践第十二周作业
20189200余超 2018-2019-2 移动平台应用开发实践第十二周作业服务 Service的声明 Service是Android中的四大组件,使用它一定要在AndroidManifest.x ...

使用delphi 开发多层应用（十二）使用kbmMW webserver 返回JSON

使用delphi 开发多层应用（十二）使用kbmMW webserver 返回JSON相关推荐

最新文章

热门文章