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);
}
查看全文
相关阅读:
virtualBox中有线和无线两种情况下centos虚拟机和本地机互ping的方案
微信小程序支付Java服务端开发源码,及那些你不知道的坑(一)
SpringCloud微服务项目实战
SpringCloud微服务项目实战
SpringCloud微服务项目实战,服务注册与发现(附面试题)
Spring Cloud微服务项目实战--Eureka服务搭建
SpringBoot+SpringCloud面试总结都在这里
SpringBoot 实现系统控制并发登录人数
Java中大量if...else语句的消除替代方案
SpringBoot基于数据库的定时任务实现
原文地址:https://www.cnblogs.com/oisiv/p/179633.html
最新文章
连接WCF报EntityFramework.SqlServer 错误的解决方法
vb 中recordset提示对象关闭时不允许操作
在Windows 2008上安装Windows Mobile设备中心
条件注释判断浏览器版本<!--[if lt IE 9]>
将当前数据库里所有存储过程的内容进行批量替换方案
SQL SERVER C#数据库操作类(连接、执行SQL)
sql 循环语句几种方式(变量循环,游标循环,事务)
如何把应用程序添加到系统服务
mysql 1045 access denied for user 解决方法
在线反编译
热门文章
解决Tomcat6解压版在64位windows系统上无法启动服务的问题
Unity3d 常用代码
《Code Complete》(1-4)学习
iOS学习-《iOS编程(第四版)》
通过Jvisualvm简单分析一下Java字符串创建
前端关于单元格拖拽
关于JPA动态SQL查询
Java小数中的四舍五入
JAVA日期格式转换---让人不得不说的故事
图的最小生成树(java实现)
Copyright © 2011-2022 走看看