关于VB中Dll的调用问题,,请高手解答.

talkshwh

我现在手头有一个CommDll.dll文件,现在我想要调用这个文件里的HWin32Port CreatePort(HWND hParent_window)函数和void DestroyPort(HWin32Port myWin32Port)函数,请问在VB中应该如何调用呢?请高手详细解答,非常感谢!

函数说明:

原型：HWin32Port CreatePort(HWND hParent_window)
功能：创建一个Win32Port类的对象，同时分配两个2K内存空间作为发送和接收缓冲区；
参数：hParent_window 指定接收消息的窗口句柄，当Win32Port接收到数据时，将发送WM_GOT_DATA消息至hParent_window，此消息的WPARAM为接收到的字节数；在执行通信函数传输文件时，每发送1K字节数据，系统会发送WM_SND_ONE_KBYTES消息至hParent_window；每收到1K字节数据，系统会发送WM_RCV_ONE_KBYTES消息至hParent_window；应用程序可根据这些消息来处理通信进度的指示等；
返回值：成功返回指向创建的Win32Port对象的指针，失败返回NULL。


原型：void DestroyPort(HWin32Port myWin32Port)
功能：析构创建的Win32Port对象，并释放分配的内存空间
参数：myWin32Port为调用CreatePort的返回值
返回值：无

VC中CommDll.h头文件中的HWin32Port说明如下:
Class Win32Port;//串口通信的一个类
Win32Port *HWin32Port;

两个附件如下:

sandy_zc_1

declare function

荣誉勋章

楼主可以去看看我的程序（有全部代码）：
http://sega.okserver.com.cn/download/vbgamediy.rar

dreamerate

1、HWin32Port CreatePort(HWND hParent_window)

HWin32Port应该是一个结构指针，它指向一个Win32Port（自定的结构）内存块。

VB定义：

type Win32Port
   '包含2K的成员....
end type

declare function CreatePort lib "CommDll.dll"
   (byval hwnd as long) as long

2、void DestroyPort(HWin32Port myWin32Port)

declare sub DestroyPort lib "CommDll.dll" (byval hWinPort as long)

使用方法：

dim hWinPort32 as long
dim wp as WinPort32

hWinPort32 = CreatePort(me.hwnd)

'将指向一个winport32数据结构的指针所指向的winport32拷贝到一个结构中，很遗撼VB不能定义一个数据类型的指针，所以必须这么操作才能达到如同C/C++中的结构成员IO

CopyMemory wp, byval hWinPort32, len(wp)

‘以后你就可调用wp来操作所属成员了：）

'以下就是释放内存了：）
call DestroyPort(hWinPort)

dreamerate

我没有测试过，仅看了你发的第一贴就回了，如果有问题就找我