Web services 将ZIP文件从vb6发送到web服务SOAP
我在Visual Basic 6.0（vb6）中开发了以下代码，其中已成功连接到web服务，但当我将ZIP文件发送到字节数组时，返回一个错误，告诉我ZIP文件已损坏，显然我没有正确发送ZIP文件，这就是错误的原因 下面是我使用的代码Web services 将ZIP文件从vb6发送到web服务SOAP,web-services,soap,vb6,Web Services,Soap,Vb6,我在Visual Basic 6.0（vb6）中开发了以下代码，其中已成功连接到web服务，但当我将ZIP文件发送到字节数组时，返回一个错误，告诉我ZIP文件已损坏，显然我没有正确发送ZIP文件，这就是错误的原因 下面是我使用的代码 Dim strFileName2 As String Dim nFile As Integer Dim strImage As String Dim strBoundary As String Dim AsmxUrl As String Dim SoapAction
Dim strFileName2 As String
Dim nFile As Integer
Dim strImage As String
Dim strBoundary As String
Dim AsmxUrl As String
Dim SoapActionUrl As String
Dim filebytes() As Byte
Dim Attachment() As Byte
SoapActionUrl = "https://www.sat.gob.mx/ol-ti-itcpgem-beta/billService"
AsmxUrl = "https://www.sat.gob.mx/ol-ti-itcpgem-beta/billService?wsdl"
strBoundary = "----=_Part_23_1578679283.1448552263862"
strFileName2 = "C:\20502264096-01-F001-9672.zip"
nFile = FreeFile()
Dim adostream As Object
adostream = CreateObject("ADODB.Stream")
adostream.Open()
adostream.Type = 1
adostream.LoadFromFile strFileName2
filebytes = adostream.Read
adostream.Close()
Open strFileName2 For Binary As #nFile
strImage = String(LOF(nFile), " ")
Get #nFile, , strImage
Close #nFile
'message head SOAP
Xml = "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' " & _
"xmlns:ser='http://service.sat.gob.mx' " & _
"xmlns:wsse='http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd'> " & _
" <soapenv:Header> " & _
" <wsse:Security> " & _
" <wsse:UsernameToken> " & _
" <wsse:Username>USUSARIO</wsse:Username> " & _
" <wsse:Password>CONTRASENA</wsse:Password> " & _
" </wsse:UsernameToken> " & _
" </wsse:Security> " & _
" </soapenv:Header> " & _
" <soapenv:Body> " & _
" <ser:sendBill> " & _
" <!--Optional:--> " & _
" <fileName>20502264096-01-F001-9672.zip</fileName> " & _
" <!--Optional:--> " & _
" <contentFile><inc:Include href=""cid:20502264096-01-F001-9672.zip"" xmlns:inc=""http://www.w3.org/2004/08/xop/include""/></contentFile>" & _
" </ser:sendBill> " & _
" </soapenv:Body> " & _
"</soapenv:Envelope> "
'" <contentFile>cid:20502264096-01-F001-9672.zip</contentFile> " & _
'message attachment
Attachment = filebytes
'multipart message template
SendDataS = "--$boundary$" & Chr(10) & _
"Content-Type: application/xop+xml; charset=UTF-8; type=""text/xml""" & Chr(10) & _
"Content-Transfer-Encoding: 8bit" & Chr(10) & _
"Content-ID: <rootpart@soapui.org>" & Chr(10) & _
"" & Chr(10) & _
"$xml$" & Chr(10) & _
"--$boundary$" & Chr(10) & _
"Content-Type: application/zip; name=20502264096-01-F001-9672.zip" & Chr(10) & _
"Content-Transfer-Encoding: binary" & Chr(10) & _
"Content-ID: <20502264096-01-F001-9672.zip>" & Chr(10) & _
"Content-Disposition: attachment; name=""20502264096-01-F001-9672.zip""; filename=""20502264096-01-F001-9672.zip""" & Chr(10) & _
" " & Chr(10) & _
"$Attachment$" & Chr(10) & _
"--$boundary$" & "--"
'Create objects to DOMDocument and XMLHTTP
objDom = CreateObject("MSXML2.DOMDocument")
objXmlHttp = CreateObject("MSXML2.XMLHTTP")
strXmlHead = ""
strXmlBody = ""
'Load XMLHead
objDom.async = False
objDom.LoadXml Xml 'aqui carga el XML armado antes
strXmlHead = objDom.xml 'aqui lee el XML
MsgBox(objDom.xml)
'Load XMLbody
'objDom.async = False
'objDom.LoadXml Attachment
MsgBox(Attachment)
'strXmlBody = objDom.LoadXml
strXmlBody = Attachment
strXml = Replace(SendDataS, "$xml$", strXmlHead)
strXml = Replace(strXml, "$Attachment$", strXmlBody)
strXml = Replace(strXml, "$boundary$", strBoundary)
MsgBox(strXml)
Me.Text1.Text = strXml
'Open the webservice
objXmlHttp.Open("POST", AsmxUrl, False)
'Create headings
objXmlHttp.setRequestHeader("MIME-Version", "1.0")
objXmlHttp.setRequestHeader("Content-Type", "multipart/related; boundary=""" & strBoundary & """")
objXmlHttp.setRequestHeader("Accept", "application/soap+xml, application/dime, multipart/related, text/*")
objXmlHttp.setRequestHeader("SOAPAction", """" & SoapActionUrl & """")
objXmlHttp.setRequestHeader("Content-Length", Len(strXml))
objXmlHttp.setRequestHeader("Connection", "Close")
'Send XML command
objXmlHttp.send CStr(strXml) 'objDom.xml
'Get all response text from webservice
strRet = objXmlHttp.responseText
MsgBox(strRet)
Dim strFileName2作为字符串
将文件设置为整数
像线一样模糊的条纹
字串
作为字符串的Dim AsmxUrl
将SoapActionUrl设置为字符串
Dim filebytes（）作为字节
Dim Attachment（）作为字节
SoapActionUrl=”https://www.sat.gob.mx/ol-ti-itcpgem-beta/billService"
AsmxUrl=”https://www.sat.gob.mx/ol-ti-itcpgem-beta/billService?wsdl"
strBoundary=“---=\u第23部分\u 1578679283.1448552263862”
strFileName2=“C:\20502264096-01-F001-9672.zip”
nFile=FreeFile（）
以流为对象
adostream=CreateObject（“ADODB.Stream”）
adostream.Open（）
adostream.Type=1
adostream.LoadFromFile strFileName2
filebytes=adostream.Read
adostream.Close（）
打开二进制文件的strFileName2作为#n文件
strImage=String（LOF（nFile），“”）
抓紧，抓紧
关闭文件
“消息头SOAP
Xml=”“&_
" " & _
" " & _
" " & _
“USUSARIO”和_
“CONTRASENA”和_
" " & _
" " & _
" " & _
" " & _
" " & _
" " & _
“20502264096-01-F001-9672.zip”和_
" " & _
" " & _
" " & _
" " & _
" "
“cid:20502264096-01-F001-9672.zip”和_
'邮件附件
附件=文件字节
'多部分消息模板
SendDataS=“--$boundary$”&Chr（10）和_
“内容类型：application/xop+xml；charset=UTF-8；Type=”“text/xml”“”&Chr（10）和_
“内容传输编码：8位”&Chr（10）和_
“内容ID:”&Chr（10）和_
“&Chr（10）&_
“$xml$”&Chr（10）和_
“--$boundary$”&Chr（10）和_
“内容类型：application/zip；name=20502264096-01-F001-9672.zip”&Chr（10）和_
“内容传输编码：二进制”&Chr（10）和_
“内容ID:”&Chr（10）和_
“内容处置：附件；名称=”“20502264096-01-F001-9672.zip”“；文件名=”“20502264096-01-F001-9672.zip”“”&Chr（10）和_
“&Chr（10）&_
“$Attachment$”&Chr（10）和_
“--$boundary$”&--”
'为DOMDocument和XMLHTTP创建对象
objDom=CreateObject（“MSXML2.DOMDocument”）
objXmlHttp=CreateObject（“MSXML2.XMLHTTP”）
strXmlHead=“”
strXmlBody=“”
“加载XMLHead
objDom.async=False
objDom.LoadXml'aqui carga el-Xml armado antes
strXmlHead=objDom.xml'aqui-lee el-xml
MsgBox（objDom.xml）
'加载XMLbody
'objDom.async=False
'objDom.LoadXml附件
MsgBox（附件）
'strXmlBody=objDom.LoadXml
strXmlBody=附件
strXml=Replace（SendDataS，“$xml$”，strXmlHead）
strXml=Replace（strXml，“$Attachment$”，strXmlBody）
strXml=Replace（strXml，“$boundary$”，strBoundary）
MsgBox（strXml）
Me.Text1.Text=strXml
'打开Web服务
Open（“POST”，AsmxUrl，False）
'创建标题
setRequestHeader（“MIME版本”、“1.0”）
objXmlHttp.setRequestHeader（“内容类型”、“多部分/相关；边界=”“”&strBoundary&“”）
setRequestHeader（“接受”，“应用程序/soap+xml，应用程序/dime，多部分/相关，文本/*”）
objXmlHttp.setRequestHeader（“SOAPAction”、“SoapActionUrl&”）
setRequestHeader（“内容长度”，Len（strXml））
setRequestHeader（“连接”，“关闭”）
'发送XML命令
objXmlHttp.send CStr（strXml）'objDom.xml
'从webservice获取所有响应文本
strRet=objXmlHttp.responseText
MsgBox（strRet）
Private Function mbPostFile(sRequest As String, sFileName As String, sExpectedNode As String, ByRef oNode As IXMLDOMNode) As Boolean
Const STR_BOUNDARY As String = "3fbd04f5-b1ed-4060-99b9-fca7ff59c113"
Dim sPostData As String
Dim oStream As Object
On Error GoTo ErrorHandler
If Not mbCheckSession Then
Exit Function
End If
Set oStream = CreateObject("ADODB.STREAM")
oStream.Type = 1 'binary
Call oStream.Open
Call oStream.LoadFromFile(sFileName)
sPostData = "--" & STR_BOUNDARY & vbCrLf & _
"Content-Disposition: form-data; name=""uploadfile""; filename=""" & Mid$(sFileName, InStrRev(sFileName, "\") + 1) & """" & vbCrLf & _
"Content-Type: application/octet-stream" & vbCrLf & vbCrLf & _
StrConv(oStream.Read, vbUnicode) & vbCrLf & _
"--" & STR_BOUNDARY & "--"
With moGetHttp
Call .Open("POST", msPortalUrl & sRequest & "&session=" & msSession, False)
Call .setRequestHeader("Content-Type", "multipart/form-data; boundary=" & STR_BOUNDARY)
Call .send(pvToByteArray(sPostData))
mbPostFile = mbCheckResult(.responseXML, sExpectedNode, oNode, True)
End With
Exit Function
ErrorHandler:
Call mShowError("mbPostFile")
End Function
Private Function pvToByteArray(sText As String) As Byte()
pvToByteArray = StrConv(sText, vbFromUnicode)
End Function
下面是我用来发布到web服务器的代码。也许你可以给你买点东西
Private Function mbPostFile(sRequest As String, sFileName As String, sExpectedNode As String, ByRef oNode As IXMLDOMNode) As Boolean
Const STR_BOUNDARY As String = "3fbd04f5-b1ed-4060-99b9-fca7ff59c113"
Dim sPostData As String
Dim oStream As Object
On Error GoTo ErrorHandler
If Not mbCheckSession Then
Exit Function
End If
Set oStream = CreateObject("ADODB.STREAM")
oStream.Type = 1 'binary
Call oStream.Open
Call oStream.LoadFromFile(sFileName)
sPostData = "--" & STR_BOUNDARY & vbCrLf & _
"Content-Disposition: form-data; name=""uploadfile""; filename=""" & Mid$(sFileName, InStrRev(sFileName, "\") + 1) & """" & vbCrLf & _
"Content-Type: application/octet-stream" & vbCrLf & vbCrLf & _
StrConv(oStream.Read, vbUnicode) & vbCrLf & _
"--" & STR_BOUNDARY & "--"
With moGetHttp
Call .Open("POST", msPortalUrl & sRequest & "&session=" & msSession, False)
Call .setRequestHeader("Content-Type", "multipart/form-data; boundary=" & STR_BOUNDARY)
Call .send(pvToByteArray(sPostData))
mbPostFile = mbCheckResult(.responseXML, sExpectedNode, oNode, True)
End With
Exit Function
ErrorHandler:
Call mShowError("mbPostFile")
End Function
Private Function pvToByteArray(sText As String) As Byte()
pvToByteArray = StrConv(sText, vbFromUnicode)
End Function
我不确定，但你不应该读取字节数组而不是字符串吗？我不确定，但你不应该读取字节数组而不是字符串吗？谢谢你的输入，但即使是我也有问题：（谢谢你的输入，但即使是我也有问题：(