VB控制XML post数据问题

2011-06-12 11:01:30 108 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

WebService接口开发最近有一个项目可能需要用到WebService技术，提前学习一下。 WebService WebService是一种跨编程语言和跨操作系统平台的远程调用技术。相关概念 XML,SOAP和WSDL就是构成WebService平台的三大技术。 XML 扩展性标记语言（Extensible Markup Language）用于传输格式化的数据，是Web服务的基础。 SOAP 简单对象访... 阅读详情

这个发送XML示例示例是使用JAVA语言编写的，哪位高手能否帮转成VB。
String xmlString = " ";

//
byte[] xmlData = xmlString.getBytes("utf8");
String urlStr =
"http://www.zzgsc.gov.cn/jsxm2/upload/XMLUpload/510100002/?pwd=cdfdadmin";
DataInputStream input = null;
java.io.ByteArrayOutputStream out = null;
try {
URL url = new URL(urlStr);
HttpURLConnection urlCon = (HttpURLConnection) url.openConnection();

urlCon.setRequestMethod("POST");

urlCon.setDoOutput(true);
urlCon.setDoInput(true);
urlCon.setUseCaches(false);
urlCon.setRequestProperty("Content-Type", "text/xml; charset=utf8");
//提交表单格式数据
urlCon.setRequestProperty("Content-length", String.valueOf(xmlData.length));
DataOutputStream printout = new DataOutputStream(urlCon.getOutputStream());
printout.write(xmlData);
//表单格式数据内容
printout.flush();
printout.close();

input = new DataInputStream(urlCon.getInputStream());
byte[] rResult;
out = new java.io.ByteArrayOutputStream();
byte[] bufferByte = new byte[256];
int l = -1;
int downloadSize = 0;
while ((l = input.read(bufferByte)) > -1) {
downloadSize += l;
out.write(bufferByte, 0, l);
out.flush();
}
rResult = out.toByteArray();
String reXML = new String(rResult,"utf8");
System.out.println(reXML);

}
catch (Exception e) {
e.printStackTrace();
}
finally {
try {
out.close();
input.close();
}catch (Exception ex) {

}
}

...全文