以前是用Delphi7调用WSRTPortt.dll文件,现在我想用VB2010.net 调用,以下是WSRTPortt.dll的接口说明
WSRTPortt.dll文件不能重新封装。
接口说明
1. 类型说明
=========================================================================
// WSRT体检仪设备中的数据
TwsrtData = record
Weight: double; //体重
Height: double; //身高
Head: double; //头围
Chest: double; //胸围
Body: double; //坐高
end;
PwsrtData = ^TwsrtData;
// WSRT体检仪数据回调函数
TwsrtCallBack = procedure(AData: PwsrtData);
2. 接口说明
=========================================================================
// 创建WSRT设备端口
function CreateWSRTPort(ACallBack: TwsrtCallBack): THandle; stdcall;
// 设置连接的端口号
procedure SetWSRTPort(AHandle: THandle; APort: PChar); stdcall;
// 打开端口
function OpenWSRTPort(AHandle: THandle): BOOL; stdcall;
// 关闭端口
procedure CloseWSRTPort(AHandle: THandle); stdcall;
// 释放端口
procedure FreeWSRTPort(AHandle: THandle); stdcall;