VB6 http post 发送与返回内容处理
2015-12-05 14:52
393 查看
今天帮同事做另一家公司的Web系统数据对接,我方发送请求,对方返回一些数据,用的是客户端用的是VB6,代码记录如下:
下面是发送内容的编码部分:
效果:
VB6比较老了,没有Java和C#那么完备,也没什么插件可以实现特定功能,但任然可以用原始的语句写出很多功能。
Dim postData As String Dim url As String url = "http://111.11.11.11/services/getQuickInfoService" postData = TextContent.Text '--- post Dim HttpClient As Object Set HttpClient = CreateObject("Microsoft.XMLHTTP") HttpClient.Open "POST", url, False HttpClient.setRequestHeader "Content-Type", "text/xml; charset=UTF-8" HttpClient.Send pvToByteArray(postData) Do While HttpClient.readyState <> 4 DoEvents Loop TextResponse.Text = HttpClient.responseText MsgBox "发送完毕"
下面是发送内容的编码部分:
' 下面是两个转换函数 Private Function pvToByteArray(sText As String) As Byte() pvToByteArray = GB2312ToUTF8(sText) End Function Public Function GB2312ToUTF8(strIn As String, Optional ByVal ReturnValueType As VbVarType = vbString) As Variant Dim adoStream As Object Set adoStream = CreateObject("ADODB.Stream") adoStream.Charset = "utf-8" adoStream.Type = 2 'adTypeText adoStream.Open adoStream.WriteText strIn adoStream.Position = 0 adoStream.Type = 1 'adTypeBinary GB2312ToUTF8 = adoStream.Read() adoStream.Close If ReturnValueType = vbString Then GB2312ToUTF8 = Mid(GB2312ToUTF8, 1) End Function
效果:
VB6比较老了,没有Java和C#那么完备,也没什么插件可以实现特定功能,但任然可以用原始的语句写出很多功能。
相关文章推荐
- win10解决无法连接到此网络
- 数字签名
- http和servlet输出
- PostThreadMessage http://www.cppblog.com/sandy/archive/2005/12/31/2320.html
- 使用Windows API PostThreadMessage进行线程间消息 http://www.cnblogs.com/pugang/archive/2012/08/24/2654278.html
- Linux下线程的挂起和恢复 http://blog.chinaunix.net/uid-21765995-id-1815655.html
- 浅析TCP字节流与UDP数据报的区别
- android(21)(使用HttpURLConnection,HttpClient和AsyncHttpClient分别实现post和get请求数据)
- Android中Socket通信之TCP与UDP传输原理
- adb的一些使用
- cisco 交换机设置时区、时间、同步日志本地时间等操作
- Cisco交换机密码初始化
- groovy servlet java.lang.NoSuchMethodError: javax.servlet.http.HttpServletResponse.getStatus()I
- http请求和数据安全
- iOS美丽约网络请求分析
- 深入了解HTTP协议
- 第五章IP基本原理
- android webview无网络情况下的处理
- 郭文军讲解“微博”如何与【微商城】进行绑定?
- android(20)(从网络抓取html显示在本地,把流转换成String,请求网络,简单的消息处理机制,编码问题)