嗨，哪位仁兄能为我提供以VB6为Client上传附件到WebService的原代码，这件事郁闷了我三四天了！！！！！！

Question

帮帮我吧！！！！

Answer 1

单靠客户机是不行的
需要服务器配合写个ActiveX dll
装上服务器用Winsock控件建立连接
自己处理数据流写入相应文件

Answer 2

你用什么调用的WebService？
如果用SoapClient可以直接传递字节数组
如果是自己构件xml就要对二进制数据进行编码编码：
    Dim s As Stream
    Dim dom As DOMDocument
    Dim eFile As IXMLDOMElement
    
    Set s = New Stream
    s.Type = adTypeBinary
    s.Mode = adModeReadWrite
    s.Open
    s.LoadFromFile "c:\google.zip"
    
    Set dom = New DOMDocument
    Set dom.documentElement = dom.createElement("root")
    dom.documentElement.setAttribute "xmlns:dt", "urn:schemas-microsoft-com:datatypes"
    
    Set eFile = dom.createElement("file")
    eFile.dataType = "bin.base64"
    eFile.nodeTypedValue = s.Read
    dom.documentElement.appendChild eFile
    Set eFile = Nothing
    
    s.Close
    Set s = Nothing
    
    dom.Save "c:\x.xml"
    Set dom = Nothing解码:
    Dim dom As DOMDocument
    Dim s As Stream
    
    Set dom = New DOMDocument
    dom.async = False
    dom.Load "c:\x.xml"
    
    Set s = New Stream
    s.Type = adTypeBinary
    s.Mode = adModeReadWrite
    s.Open
    s.Write dom.documentElement.selectSingleNode("file").nodeTypedValue
    Set dom = Nothing
    
    s.SaveToFile "c:\f.zip"
    s.Close
    Set s = Nothing