Delphi IdHttpServer实现webservice


本文整理自网络,侵删。

 

朋友有个项目,通信协议使用HTTP,数据序列使用BIN(二进制)。他不知道要选用何种技术方案。

REST webservice是http+json,SOAP webservice是http+xml,好像都不适合。

于是想到了使用INDY的TidHttpServer控件来实现。TidHttpServer是可以实现webservice中间件的。

限于篇幅,省略若干代码。

中间件代码:

//设置绑定参数
IdHTTPServer1.Bindings.Clear;
IdHTTPServer1.DefaultPort:= 8000;
IdHTTPServer1.Bindings.Add.IP := '127.0.0.1';
//启动服务器
IdHTTPServer1.Active := True;

 

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
memo1.Lines.Add(ARequestInfo.Document) ;
memo1.Lines.Add(arequestinfo.Params.Values['t1']) ;
memo1.Lines.Add(arequestinfo.Params.Values['t2']);
end;

 

IE浏览器输入:http://127.0.0.1:8000/test?t1=china&t2=cxg

 

中间件执行效果图:

上面是通过HTTP的GET方法调用中间件的方法和传递参数,同样,HTTP的POST也可以。

寥寥数行,就能实现一个超级无敌简单的WEBSERVICE 中间件。不知道诸位看出来了,这么简单的中间件却有一个灵活的地方:它的数据序列格式可以是TEXT、JSON、XML或者BIN等。

来源 http://www.cnblogs.com/hnxxcxg/p/3395524.html

相关阅读 >>

Delphi获取计算机的工作组信息和获取工作组中的计算机名称

Delphi2010 的自带的内存泄漏检测

Delphi 调出windows 系统时间设置对话框

Delphi 控制台程序获取系统信息

Delphi 以十六进制显示数据内容

Delphi 服务器与客户端的时间同步

Delphi 软件welcome窗口代码

Delphi reset 以只读方式打开文件

Delphi注册与卸载系统服务

Delphi 自动升级组件autoupgrader简单教程

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...