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);
}
查看全文
相关阅读:
vue指令(3)v-html
vue指令(2)v-text
vue基础(2)模板语法
Struts2中在Action里面向前端页面传值的方法总结
MySQL之字符串函数
搜索关键字描红
点击超链接执行js代码实现确认操作
Java之线程同步的三种方法
Java之线程的控制
Java之线程的生命周期
原文地址:https://www.cnblogs.com/oisiv/p/179633.html
最新文章
Mysql字符集设置
mysql数据库默认编码配置
android开发时程序出现崩溃问题
jQuery中animate设置属性的一个问题
1.引入jQuery
PHP函数addslashes和mysql_real_escape_string的区别
PHP之冒号、endif、endwhile、endfor 是什么鬼?f
如何在ubuntu上搭建服务器并且可以使用ftp上传
【转】Android编程判断手机or平板
Android中手机号、车牌号正则表达式
热门文章
Android分步注册,Activity由B返回A修改再前往B,B中已填项不变
本地数据下,radiobutton和图片组合,利用adapter+listview进行单选
Android中Spanner获取选中内容和选中位置,根据位置选择对象
vue基础(3)样式绑定
vue指令(8)v-bind
form表单button按钮,未成功跳转,自动刷新页面。
vue指令(7)v-on
vue指令(6)v-model
vue指令(5)v-once
vue指令(4)v-pre
Copyright © 2011-2022 走看看