kbmmw 的HTTPSmartService中的跨域访问

简介: 有同学在使用kbmmw 与extjs 结合的时候,涉及到了跨域访问,这个在 kbmmw 里面已经完全解决。 extjs 在访问跨域的时候,首先会使用OPIONS  调用,服务端要根据浏览器请求的 head 来回应客户端,如果正确,则客户端再调用GET 方式访问服务器。

有同学在使用kbmmw 与extjs 结合的时候,涉及到了跨域访问,这个在

kbmmw 里面已经完全解决。

extjs 在访问跨域的时候,首先会使用OPIONS  调用,服务端要根据浏览器请求的

head 来回应客户端,如果正确,则客户端再调用GET 方式访问服务器。

像不像我们地下党接头一样,首先要对一下暗号,暗号正确,开始交出城防图,不正确,对不起,开枪!

服务器端的代码,kbmmw 已经替大家处理了,很简单,只是设置允许访问的信息。

 [kbmMW_Method]
     [kbmMW_Rest('method:get, path: "itemlist/{query}"')]
     function GetItemlist([kbmMW_Rest('value: "{query}"')] const aQuery:string;
                          [kbmMW_Rest('value: "$ph", required: true')] const ph:string;
                          [kbmMW_Rest('value: "$pm", required: true')] const pm:string;
                          [kbmMW_Rest('value: "$xh", required: true')] const xh:string;
                          [kbmMW_Rest('value: "$gg", required: true')] const gg:string;
                          [kbmMW_Rest('value: "$th", required: true')] const th:string;
                          [kbmMW_Rest('value: "$jbm", required: true')] const jbm:string;
                          [kbmMW_Rest('value: "$gc", required: true')] const gc:string;
                          [kbmMW_Rest('value: "$limit", required: true')] const pagesize:string;
                          [kbmMW_Rest('value: "$page", required: true')] const pageindex:string;
                          [kbmMW_Rest('value: "$callback", required: true')] const callback:string):string;
  end;

implementation

uses kbmMWExceptions, Unit1;

{$R *.dfm}

{ TdgwRestService }

function TdgwRestService.GetItemlist(const aQuery, ph, pm, xh, gg, th, jbm,
  gc,pagesize, pageindex,callback: string): string;
begin
    ProcessCORSRequest;
    result := '{"result":"1","sumcount":1,"data":[{"PH":"ph001","PM":"pm001","XH":"xh001"},'
      + '{"PH":"ph002","PM":"pm002","XH":"xh002"}]}';
    if callback<>'' then
      Result:= callback + '(' + Result + ');';

end;

procedure TdgwRestService.kbmMWCustomHTTPSmartServiceCORS(Sender: TObject;
  const ARequestHelper, AResponseHelper: TkbmMWHTTPTransportStreamHelper;
  const AOrigin: string; var AAllowedOrigins, AAllowedMethods,
  AAllowedHeaders: string);
begin
  AAllowedMethods:='GET' ;
 AAllowedOrigins:='http://127.0.0.1';
  AAllowedHeaders:= 'x-requested-with';
 
end;

 

运行截图

网站的源地址是http://127.0.0.1

跨域访问的地址是http://127.0.0.1:81

下面一图顶万言。

还是很简单的。

 

目录
相关文章
Go字节数组与字符串相互转换
Go字节数组与字符串相互转换
245 3
使用kbmmw smart service 属性时的一个注意事项
kbmmw 5.0 以后支持smart service, 这个用起来非常方便,kbmmw 通过 定制属性来简化编程,可以参考我以前的文章。但是这个意味着使用单元引用一定要小心, 否则出了问题,都不知道怎么回事?浪费大量的时间。
1436 0
|
数据库 网络架构
kbmmw 的HTTPSmartService入门
前面介绍过kbmmw 中的smartservice. 这个既可以用于kbmmw 的客户端,也可以使用http 访问。 在新版的kbmmw里面,作者加强了http 的支持,我们可以只使用HTTPSmartService ,这样可以省去很多代码,可以更方便、简单的实现REST 服务。
1895 0
|
SQL JSON JavaScript
kbmmw 中JSON 中使用SQL 查询
前面讲到了kbmmw 的JSON 对象操作,如何快速的查找JSON 中的值? 一种办法就是通过遍历的方法,其实在kbmmw 还有一种灵活的查询方式, 就是通过SQL 方式查询JSON 中的值。也就是说用TKbmmwmemSQL 控件来实现。
1265 0
|
JavaScript 关系型数据库 MySQL
kbmmw 与extjs 的初次结合
前面写了extjs 的安装,今天写一下kbmmw 与extjs 的结合,参照delphi 产品经理marco文章 。 由于extjs 设计时要读取服务器端的数据,所以先要做一个rest 服务器。 先要用kbmmw 建一个web 服务器,可以参照我以前写的例子。
1362 0
|
JSON 数据格式 XML
kbmmw 中JSON 操作入门
现在各种系统中JSON 用的越来越多。delphi 也自身支持JSON 处理。 今天简要说一下kbmmw 内部如何使用和操作JSON。 kbmmw 中json的操作是以TkbmMWJSONStreamer 为基础,要导入、导出JSON字符串, 首先要创建TkbmMWJSONStreamer.  然后是 TkbmMWJSONObject和 TkbmMWJSONArray。
1302 0
|
Web App开发 网络协议 数据库
KbmMW 服务器架构简介
kbmmw 由于文档比较少,很多同学开始用时很难理解。一直准备写一个关于kbmmw 架构的东西。 这几天与红鱼儿(blog)   研究服务器线程时,整理了一下,大概画了一下kbmmw (版本4.5)服务器的架构图,这里未涉及消息传输。
1255 0
|
SQL
unidac 访问sql server 字符查询参数失效问题及解决办法
在帮朋友调试kbmmw 服务器的时候,发现用uindac 访问sql server作为后台时,碰见一个问题。 具体如下: cx.Close; cx.sql.add('select * from T where id=:id'); // 这里id 是整数字段 cx.Prepare; cx.ParamByName('id').AsString:='1475'; cx.Open; 这一句运行时不出现错误,但是返回结果为空,很是奇怪。
1081 0
|
Web App开发 数据库 开发工具
推荐一款pascal 语言的web 开发工具
这几天仔细研究了一款使用Pascal 语言开发web 的工具 具体介绍可以参照这里。 先上几张他开发的页面照。 这是他的开发页面 经过几天的摸索,基本上了解了他的工作原理: 1.使用类似delphi界面编辑器,绘出所见即所得的页面。
1418 0
|
JSON 数据格式 数据库
[转载红鱼儿]kbmmw 开发点滴:kbmMW:Unknown property:indexes
利用kbmMW的QueryServices,对数据集进行提交,当改用JSON格式时,客户端提交时,会产生这个错误,明明已经更新数据库,也产生这个错误!如果换成Bin格式,则正常。 能过查看kbmMWJSONStreamFormat单元,问题产生在这行代码:nIndexDefs:=nDefs.AsArray['indexes']; 可以这样理解: 客户端提交数据后,服务器会返回一个错误结果数据集,不管有无错误,都要返回这个结果集。
984 0