delphi下使用http協議post方式發送xml數據到asp頁面和aspx頁面

delphi端的發送代碼

function Tverpipxinfo.postXml( const  xmlstr, url: WideString): WideString;
var
idHttp:TIdHTTP;
sends:tstrings;
IdEncoderMIME1:TIdEncoderMIME;
begin
  result: = '' ;
   try
   idHttp: =  TIdHTTP.Create(nil);
   idHttp.Request.ContentType : =   ' application/x-www-form-urlencoded ' ;
   IdEncoderMIME1: = TIdEncoderMIME.Create(nil);
   sends: = tstringlist.Create;
   sends.Add( ' xmlstr= ' + IdEncoderMIME1.Encode(xmlstr));
   result: = idhttp.Post(url,sends);
  except
   on E:Exception  do
     begin
       result: = e.Message;
     end;
  end;
  idHttp.Free;
  IdEncoderMIME1.Free;
  sends.Free;
end;

asp端接收方法

< %@ Language = VBScript % >
< % ' On Error Resume Next 
    xmlstr = Request.form( " xmlstr " )
     set  xmlobj = server. CreateObject ( " microsoft.xmldom " )    
    xmlobj.loadXML xmlstr
    Response.ContentType = " text/xml " % >
     < ?xml version = " 1.0 "  encoding = " big5 " ? >
     < %
    Response.Write xmlobj.xml
     set  xmlobj = nothing
% >

aspx端接收方法

private   void  Page_Load( object  sender, System.EventArgs e)
{
    string str = "";
    string reqstr="";
    try
    {
        XmlDocument doc = new XmlDocument();
        //doc.Load(Request.InputStream);
        reqstr=Request.Form["xmlstr"];
        reqstr =Encoding.GetEncoding("big5").GetString(Convert.FromBase64String(reqstr)); 
        doc.LoadXml(reqstr);
        doc.Save("d:/test.xml");
        Response.Write("How are you..");
    }
    catch(Exception e1)
    {
        str = e1.Message;
    }
    Response.Write("str ==" + str);
}

转载于:https://www.cnblogs.com/oisiv/archive/2005/06/23/179633.html