IdHttpServer实现webservice

Posted 朝闻道

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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

以上是关于IdHttpServer实现webservice的主要内容,如果未能解决你的问题,请参考以下文章

IdHTTPServer(indy10)开发REST中间件

indy10的idhttpServer应答字符串

用IdHTTPServer搞个简单的WEB服务器下载文件

Delphi idHttpServer接收Http Get请求解码问题

delphi中的idhttpserver如何才能收到idhttp发送来的exe\rar文件呢

如何调用webservice