当前位置:编程学习 > VB >>

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

一,引用动态库文件WSDLL.dll
二,方法UploadFiles(user,pwd:string;buffer:TByteDynArray)
   方法说明:
   user,pwd为药监所分配的用户名及密码。
   buffer为上包数据电子表压缩文件,格式为zip。
那位老师请点一下. --------------------编程问答-------------------- declare sub UploadFiles Lib "WSDLL.dll" (byval user as string ,byval pwd as string,buffer as any)
要确认该函数没有返回值,如果有则要declare function ..........() as 对应类型 --------------------编程问答-------------------- 汗,worldy,你上面这里是不是有点问题?,buffer as any)???

--------------------编程问答-------------------- as any 代表指针,难道你的buffer不是数据指针吗? --------------------编程问答-------------------- 不是,应该是二进制数组 --------------------编程问答-------------------- 试一试这个

Private Declare Sub UploadFiles Lib "WSDLL.dll" (ByVal UserName As String, ByVal PWD As String, ByRef ByteArray() As Byte)
--------------------编程问答-------------------- 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())
最后这句我应该怎么写才对?
补充:VB ,  基础类
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,