作者Fadis (...)
看板C_Sharp
标题[问题] 两个 VB6.0 与 .NET 沟通的问题
时间Thu Jun 5 17:20:27 2008
各位前辈好，小弟有几个问题求教版上各位前辈
1. 在VB6的Binary阵列该如何透过webservice(以C#撰写)方式传递档案到Server端呢?
此webservice以.NET程式进行传档是OK的，
传递的参数为(string FileName, Byte[] FileContent)
但在VB6时，会发生传递参数格式不正确的错误，
猜想是Binary阵列被转成字串了，但不知该如何修改，还盼各位指教
VB6的程式片段如下
=======================================================================
> //呼叫webservice
Set wsObj = CreateObject("Msxml2.XMLHTTP")
Call wsObj.Open("POST", "Service 连结/含式名称", False)
Call wsObj.setRequestHeader("Content-Type",
"application/x-www-form-urlencoded")
Call wsObj.send("FileName=档案名称&FileContent=" & GetFile("档案名称"))
> //取得档案Binary阵列
Function GetFile(strFileName As String)
Dim bytFile() As Byte
nfile = FreeFile
Open strFileName For Binary As #nfile
ReDim bytFile(LOF(nfile) - 1)
Get #nfile, , bytFile
Close #nfile
GetFile2 = bytFile
End Function
======================================================================
2. VB6是否能够引用.NET开发的dll?
这问题算是绕弯子想避开问题一的解法所遭遇的另一个问题，
想说另外以.net写一个dll负责呼叫webservice的档案传递，
但产生出来的dll却无法被VB6引用 Orz
是否在.NET产生dll需做额外的设定才能被VB6引用呢？
谢谢各位的指导罗~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.250.192.34