看板Programming
标 题Re: [问题] 两个 VB6.0 与 .NET 沟通的问题
发信站HiNetNews (Fri Jun 6 02:34:46 2008)
转信站ptt!ctu-reader!ctu-gate!news.nctu!ccnews.nchu!news.cmu!news.cis.nctu!c
我不懂vb 也不懂 .net , 不过何不把你要传输的内容先转base64 ?
"..." <
[email protected]> 撰写於邮件新闻:
[email protected]...
>※ [本文转录自 C_Sharp 看板]
>
> 作者: 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
>
> --
>
※ 发信站: 批踢踢实业坊(ptt.cc)
> ◆ From: 60.250.192.34
>