这个DLL在VB中应该怎么声明和调用!!

Question

一，引用动态库文件WSDLL.dll
二，方法UploadFiles(user,pwd:string;buffer:TByteDynArray)
   方法说明：
   user,pwd为药监所分配的用户名及密码。
   buffer为上包数据电子表压缩文件，格式为zip。
那位老师请点一下.

Answer 1

declare sub UploadFiles Lib "WSDLL.dll" (byval user as string ,byval pwd as string,buffer as any)
要确认该函数没有返回值，如果有则要declare function ..........() as 对应类型

Answer 2

汗,worldy,你上面这里是不是有点问题?,buffer as any)???

Answer 3

as any 代表指针，难道你的buffer不是数据指针吗？

Answer 4

试一试这个Private Declare Sub UploadFiles Lib "WSDLL.dll" (ByVal UserName As String, ByVal PWD As String, ByRef ByteArray() As Byte)

Answer 5

Veron_04你好,我按你那声明了.你帮我看看下面代码那错了:
Private Declare Sub UploadFiles Lib "WSDLL.dll" (ByVal UserName As String, ByVal PWD As String, ByRef ByteArray() As Byte)Dim ByteArray() As Byte
Dim FileSize As Long '文件长度
Dim aa As String
Dim User As String
Dim PWD As String
User = "test"
PWD = "test"FileSize = FileLen("d:\gxyk1\20110830.zip") '获取文件长度
ReDim ByteArray(FileSize - 1) As Byte
Open "d:\gxyk1\20110830.zip" For Binary As #1
Get #1, , ByteArray
Close
aa = UploadFiles(User, PWD, ByteArray())
最后这句我应该怎么写才对?