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

  1. 客户端代码：
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  8.   IdHTTP, StdCtrls;
  10. type
  11.   TForm1 = class(TForm)
  12.     IdHTTP1: TIdHTTP;
  13.     Button1: TButton;
  14.     Button2: TButton;
  15.     Memo1: TMemo;
  16.     procedure Button2Click(Sender: TObject);
  17.   private
  18.     { Private declarations }
  19.   public
  20.     { Public declarations }
  21.   end;
  23. var
  24.   Form1: TForm1;
  26. implementation
  28. {$R *.dfm}
  30. procedure TForm1.Button2Click(Sender: TObject);
  31. var
  32.   respsm:TStringStream;
  33.   AList:TStrings;
  34.   uri:string;
  35. begin
  36.   uri:='http://localhost:4983/WebSite3/Default.aspx';//这个地址换成自己的响应地址
  37.   AList:=TStringList.Create;
  38.   {中文乱码问题解决方法：发送过去之前先转码UTF8Encode,接收的时候再解码UTF8Decode}
  39.   AList.Add(UTF8Encode(Memo1.Text));
  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.   try
  45.     IdHTTP1.Post(uri,AList,respsm);
  46.   finally
  47.     ShowMessage(UTF8Decode(respsm.DataString));//respsm.DataString为中间层返回的数据
  48.   end;
  50.   respsm.Free;
  51.   AList.Free;
  53. end;
  55. end.

客户端memo1.Text的内容为(在设计界面直接编辑memo1.lines,输入以下内容)：

  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <erp>
  3. <head>
  4. </head>
  5. <body>
  6. <client job="RoleInfo_New">
  7. <main job="New" ID="" Name="测试角色3" />
  8. </client>
  9. </body>
  10. </erp>

中间层代码：（Default.aspx.cs）

  1. using System;
  2. using System.Data;
  3. using System.Configuration;
  4. using System.Web;
  5. using System.Web.Security;
  6. using System.Web.UI;
  7. using System.Web.UI.WebControls;
  8. using System.Web.UI.WebControls.WebParts;
  9. using System.Web.UI.HtmlControls;
  10. //添加以下命名空间
  11. using System.Xml;
  12. using System.Data.Sql;
  13. using System.Data.SqlClient;
  14. using System.IO;
  15. using System.Text;
  17. public partial class _Default : System.Web.UI.Page 
  18. {
  19.     protected void Page_Load(object sender, EventArgs e)
  20.     {
  22.         Stream sm = Request.InputStream;
  23.         sm.Position = 0;
  24.         byte[] buff = new byte[sm.Length];
  25.         //char[] buff = new char[sm.Length];
  26.         int len = (int)sm.Length;
  27.         sm.Read(buff, 0, len);
  28.         //StreamReader sr = new StreamReader(sm);
  29.         //sr.Read(buff, 0, len);
  30.         string str = Encoding.UTF8.GetString(buff);
  32.         str = Server.UrlDecode(str);
  34.         string ID = null;
  35.         string[] AttrList = new string[2];
  37.         XmlDocument dom = new XmlDocument();
  38.         dom.LoadXml(str);
  39.         XmlNodeList xnl = dom.GetElementsByTagName("client");
  40.         if (xnl[0].Attributes[0].Value.ToString().StartsWith("RoleInfo_"))
  41.         {
  42.             if (xnl[0].Attributes[0].Value.ToString().EndsWith("New"))
  43.             {
  44.                 for (int i = 0; i < AttrList.Length; i++)
  45.                 {
  46.                     AttrList[i] = xnl[0].ChildNodes[0].Attributes[i + 1].Value;
  47.                 }
  48.                 SqlConnection conn = new SqlConnection("server=.;database=test;uid=xj;pwd=123456");
  49.                 conn.Open();
  50.                 SqlCommand comm = new SqlCommand();
  51.                 comm.Connection = conn;
  52.                 comm.CommandText = "insert into RoleInfo(Name) values(@Name);select  @@identity as id;";
  53.                 comm.Prepare();
  54.                 
  55.                 comm.Parameters.Add("@Name", SqlDbType.VarChar, 50);
  56.                 comm.Parameters[0].Direction = ParameterDirection.Input;
  57.                 comm.Parameters[0].Value = AttrList[1];
  58.                 //取刚插入数据库的记录的ID
  59.                 DataSet ds = new DataSet();
  60.                 SqlDataAdapter sda = new SqlDataAdapter(comm);
  61.                 sda.Fill(ds);
  63.                 comm.Dispose();
  64.                 conn.Close();
  65.                 conn.Dispose();
  67.                 ID = ds.Tables[0].Rows[0][0].ToString();
  68.                 //插入成功将ID返回给客户端
  69.                 Response.Clear();
  70.                 Response.ContentType = "text/xml";
  71.                 Response.Write("<?xml version=/"1.0/" encoding=/"utf-8/" ?>");
  72.                 Response.Write("<erp>");
  73.                 Response.Write("<head />");
  74.                 Response.Write("<body>");
  75.                 Response.Write("<server>");
  76.                 Response.Write("<main job=/"New/" ID=/"" + ID.ToString() + "/" />");
  77.                 Response.Write("</server>");
  78.                 Response.Write("</body>");
  79.                 Response.Write("</erp>");
  80.                     
  81.             }
  82.         }        
  83.     }
  84. }
posted @ 2011-10-27 15:32  许明吉博客  阅读(2195)  评论(0)  编辑  收藏  举报