IdHttpServer实现webservice
2013-10-29 22:34
218 查看
朋友有个项目,通信协议使用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等。
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等。
相关文章推荐
- Android监听WIFI网络的变化并且获得当前信号强度
- Cookie-使用HtmlUnit/HttpClient中遇到的问题
- telnet与远程登录
- 学习了《神经网络模型及其matlab仿真程序设计》总结思考
- linux实验3——网络
- HTTP
- linux实验3——网络
- NSURLConnection异步发送HTTP请求
- TCP+Socket 学习
- IPhone 网络开发之如何使用NSURLConnection(一)
- ios 从网络下载图片,保存,并用imageview从保存中显示
- ios网络开发 同步下载和异步下载
- 简单 TCP UDP server client
- XAMPP+Cacti+Nagios+Ntop实现网络监控
- 网络编程 - select、poll、epoll比较
- ASIHTTPRequest类库简介和使用说明
- 一、关于TCP-IP的一些概念
- 黑马程序员_<<TCP>>
- muduo网络库学习之Exception类、Thread 类封装中的知识点(重点讲pthread_atfork())
- Android打开WIFI或者移动网络的代码实现