zoukankan      html  css  js  c++  java
  • 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);
    }
  • 相关阅读:
    类变量、成员变量、实例变量、局部变量、静态变量、全局变量的解释
    String的属性和方法
    数组的扩容
    以下实例演示了如何通过 List 类的 Arrays.toString () 方法和 List 类的 list.Addall(array1.asList(array2) 方法将两个数组合并为一个数组
    数组获取最大值和最小值
    Java字符串反转
    IO-3
    IO-2
    IO流
    泛型、MAP集合
  • 原文地址:https://www.cnblogs.com/oisiv/p/179633.html
Copyright © 2011-2022 走看看