本文整理自网络，侵删。
朋友有个项目，通信协议使用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 fmx 从app程序直接跳转到支付宝付款转帐页面
更多相关阅读请进入《Delphi》频道 >>
