客户端delphi使用XML与中间层C#.net通信的例子,客户端用idhttp的post发送请求.doc

客户端delphi使用XML与中间层C#.net通信的例子，客户端用idhttp的post发送请求1. 客户端代码：1. unitUnit1;2.3. interface4.5. uses6. Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,7. Dialogs,IdBaseComponent,IdComponent,IdTCPConnection,IdTCPClient,8. IdHTTP,StdCtrls;9.10. type11. TForm1=class(TForm)12. IdHTTP1:TIdHTTP;13. Button1:TButton;14. Button2:TButton;15. Memo1:TMemo;16. procedureButton2Click(Sender:TObject);17. private18. Privatedeclarations19. public20. Publicdeclarations21. end;22.23. var24. Form1:TForm1;25.26. implementation27.28. $R*.dfm29.30. procedureTForm1.Button2Click(Sender:TObject);31. var32. respsm:TStringStream;33. AList:TStrings;34. uri:string;35. begin36. uri:=http:/localhost:4983/WebSite3/Default.aspx;/这个地址换成自己的响应地址37. AList:=TStringList.Create;38. 中文乱码问题解决方法：发送过去之前先转码UTF8Encode,接收的时候再解码UTF8Decode39. AList.Add(UTF8Encode(Memo1.Text);40.41. respsm:=TStringStream.Create();42. /IdHTTP1.Get(http:/localhost:4983/WebSite3/Default.aspx?id=3,sm);43. IdHTTP1.Request.ContentType:=application/x-www-form-urlencoded;44. try45. IdHTTP1.Post(uri,AList,respsm);46. finally47. ShowMessage(UTF8Decode(respsm.DataString);/respsm.DataString为中间层返回的数据48. end;49.50. respsm.Free;51. AList.Free;52.53. end;54.55. end.客户端memo1.Text的内容为(在设计界面直接编辑memo1.lines,输入以下内容)：1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 中间层代码：（Default.aspx.cs）1. usingSystem;2. usingSystem.Data;3. usingSystem.Configuration;4. usingSystem.Web;5. usingSystem.Web.Security;6. usingSystem.Web.UI;7. usingSystem.Web.UI.WebControls;8. usingSystem.Web.UI.WebControls.WebParts;9. usingSystem.Web.UI.HtmlControls;10. /添加以下命名空间11. usingSystem.Xml;12. usingSystem.Data.Sql;13. usingSystem.Data.SqlClient;14. usingSystem.IO;15. usingSystem.Text;16.17. publicpartialclass_Default:System.Web.UI.Page18. 19. protectedvoidPage_Load(objectsender,EventArgse)20. 21.22. Streamsm=Request.InputStream;23. sm.Position=0;24. bytebuff=newbytesm.Length;25. /charbuff=newcharsm.Length;26. intlen=(int)sm.Length;27. sm.Read(buff,0,len);28. /StreamReadersr=newStreamReader(sm);29. /sr.Read(buff,0,len);30. stringstr=Encoding.UTF8.GetString(buff);31.32. str=Server.UrlDecode(str);33.34. stringID=null;35. stringAttrList=newstring2;36.37. XmlDocumentdom=newXmlDocument();38. dom.LoadXml(str);39. XmlNodeListxnl=dom.GetElementsByTagName(client);40. if(xnl0.Attributes0.Value.ToString().StartsWith(RoleInfo_)41. 42. if(xnl0.Attributes0.Value.ToString().EndsWith(New)43. 44. for(inti=0;iAttrList.Length;i+)45. 46. AttrListi=xnl0.ChildNodes0.Attributesi+1.Value;47. 48. SqlConnectionconn=newSqlConnection(server=.;database=test;uid=xj;pwd=123456);49. conn.Open();50. SqlCommandcomm=newSqlCommand();51. comm.Connection=conn;52. comm.CommandText=insertintoRoleInfo(Name)values(Name);selectidentityasid;53. comm.Prepare();54. 55. comm.Parameters.Add(Name,SqlDbType.VarChar,50);56. comm.Parameters0.Direction=ParameterDirection.Input;57. comm.Parameters0.Value=AttrList1;58. /取刚插入数据库的记录的ID59. DataSetds=newDataSet();60. SqlDataAdaptersda=newSqlDataAdapter(comm);61. sda.Fill(ds);62.63. comm.Dispose();64. conn.Close();65. conn.Dispose();66.67. ID=ds.Tables0.Rows00.ToString();68. /插入成功将ID返回给客户端69. Response.Clear();70. Response.ContentType=text/xml;71. Response.Write();72. Response.Write()