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等。


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM