Delphi的结构体传值转成vb的写法问题

2012-04-01 11:05:49 222 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

关于esp32蓝牙模块的使用——esp32学习笔记关于esp32蓝牙模块的使用——esp32学习笔记零、前言 esp32自带蓝牙模块可以让我们进行蓝牙连接并进行数据交换一、经典蓝牙BT 首先来编写代码，经典蓝牙的使用非常简单，首先声明使用了BluetoothSerial这个库，然后使用SerialBT.begin函数设置蓝牙的名字，再然后就是设置配对码，由于这里没有用到配对码，所以我将注释掉。当配对成功我们就使用printf函数打印出蓝牙配对成功。 #include <Arduino.h> #include <BluetoothSer 阅读详情

//发依时利690消费卡
function WriteER690Card(aSectorNo: ShortInt; PwdA: PChar; ER690CardInfo: TER690CardInfo): Boolean; stdcall; external ERTransDLL;
//读依时利690消费卡
function ReadER690Card(aSectorNo: ShortInt; PwdA: PChar; var ER690CardInfo: TER690CardInfo): Boolean; stdcall; external ERTransDLL;

读卡的转vb没有问题，写卡的因是对结构体传值的，vb的结构体只允许传址，该如何声明呢。

我是这样写的：
Private Declare Function YSL_WriteER690Card Lib "YSL_ERTrans.dll" Alias "WriteER690Card" (ByVal aSectorNo As Byte, ByVal PwdA As String, ByRef ER690CardInfo As YSL_TER690CardInfo) As Byte

...全文

GIS小白也能看懂的实战：5步教你将ArcGIS里的等高线和水系完美导入CAD做规划图本文详细介绍了如何将ArcGIS中的等高线和水系数据高效导入CAD，制作专业规划底图的5个关键步骤。从数据准备、ArcGIS处理到CAD优化，涵盖坐标系设置、数据裁剪、格式转换等实用技巧，特别适合设计规划领域的新手快速掌握GIS与CAD协同工作流程。阅读详情

大帮手软件

API 1,488 成员 23,270 内容

+ 关注 + 加入社区

切换为时间正序

Tiger_Zhao 2012-04-02

打赏
举报

如果没理解错的话，“结构体传值” 的意思是将整个 TER690CardInfo 结构都压入参数堆栈吧！
这是相同的问题
　　http://topic.csdn.net/u/20080410/10/85235b13-0af8-4938-8974-9b5e3687d548.html
需要将所有结构的成员全部用通过变通的方式声明在 VB 中，supergreenbean 还给出了合并 4 字节的方法。

总之这样的函数原型是不适合 API 调用的；常用的 API 传结构的方式，总是传指针的。

无·法 2012-04-02

打赏
举报

[Quote=引用 1 楼的回复:]

完整VB代码如下，麻烦帮看下是什么原因导致出现错误“DLL调用约定错误”

Private Type YSL_TER690CardInfo
cardno As Long '卡号
CardName As String * 8 '姓名
CardBalance As Integer '卡余额(单位分)……
[/Quote]为什么你的Private Type YSL_TER690CardInfo2下声明的都是byte呢，明显的不可能啊，至少有integer还有string类型吧，你自己对照delphi的做类型修改

大帮手软件 2012-04-02

打赏
举报

完整VB代码如下，麻烦帮看下是什么原因导致出现错误“DLL调用约定错误”

Private Type YSL_TER690CardInfo
cardno As Long '卡号
CardName As String * 8 '姓名
CardBalance As Integer '卡余额(单位分)
ChargeTimes As Integer '充值次数
OverPwd As Long '超额密码
DayMoney As Integer '日累计
Period As Byte '消费时段
PeriodCount As Byte '时段次数
MonthDay As Integer '消费月日
OrderGroup As Integer '订餐分组（0-15组）
OrderMonth As Byte '订餐月
OrderDay As Byte '订餐日
OrderListType As Byte '订餐表类型
CycleMealFlag As Byte '重复消费标志
OrderList(0 To 7) As Byte '订餐表
'V1.35新增
ReservedFlag As Byte '保留，补贴批次
Privillege As Byte '权限
EnterpriseID As Long '企业ID，按BCD格式存储
End Type

Private Type YSL_TER690CardInfo2
cardno(0 To 3) As Byte '卡号
CardName(0 To 7) As Byte '姓名
CardBalance(0 To 1) As Byte '卡余额(单位分)
ChargeTimes(0 To 1) As Byte '充值次数
OverPwd(0 To 3) As Byte '超额密码
DayMoney(0 To 1) As Byte '日累计
Period As Byte '消费时段
PeriodCount As Byte '时段次数
MonthDay(0 To 1) As Byte '消费月日
OrderGroup(0 To 1) As Byte '订餐分组（0-15组）
OrderMonth As Byte '订餐月
OrderDay As Byte '订餐日
OrderListType As Byte '订餐表类型
CycleMealFlag As Byte '重复消费标志
OrderList(0 To 7) As Byte '订餐表
'V1.35新增
ReservedFlag As Byte '保留，补贴批次
Privillege As Byte '权限
EnterpriseID(0 To 3) As Byte '企业ID，按BCD格式存储
End Type

Private Declare Function YSL_OpenReaderAfterParam Lib "YSL_ERTrans.dll" Alias "OpenReaderAfterParam" (ByVal CommStyle As Integer, ByVal ClockModel As Integer, ByVal ComPort As Integer, ByVal BaudRate As Integer) As Byte

'读依时利690消费卡
Private Declare Function YSL_ReadER690Card Lib "YSL_ERTrans.dll" Alias "ReadER690Card" (ByVal aSectorNo As Byte, ByVal PwdA As String, ByRef ER690CardInfo As YSL_TER690CardInfo) As Byte

'发依时利690消费卡(即1.0消费卡)
Private Declare Function YSL_WriteER690Card Lib "YSL_ERTrans.dll" Alias "WriteER690Card" (ByVal aSectorNo As Byte, ByVal PwdA As String, ByRef ER690CardInfo As YSL_TER690CardInfo) As Boolean
Private Declare Function YSL_WriteER690Card2 Lib "YSL_ERTrans.dll" Alias "WriteER690Card" (ByVal aSectorNo As Byte, ByVal PwdA As String, ByRef ER690CardInfo As YSL_TER690CardInfo2) As Byte

Private Sub Form_Load()
Dim W_YSL_TER690CardInfo As YSL_TER690CardInfo
Dim W_YSL_TER690CardInfo2 As YSL_TER690CardInfo2
Dim W_Tmp1 As String
Dim W_A As Byte
W_A = 2
W_Tmp1 = "22222"
MsgBox YSL_OpenReaderAfterParam(0, 900, 5, 9600)
MsgBox YSL_WriteER690Card(W_A, W_Tmp1, W_YSL_TER690CardInfo) '此时会出现 DLL调用约定错误
MsgBox YSL_WriteER690Card2(W_A, W_Tmp1, W_YSL_TER690CardInfo2) '此时会出现 DLL调用约定错误
End Sub

delphi原代码：

TOrderList=packed array[0..7] of Byte;

TER690CardInfo=packed record
CardNo: DWORD; //卡号
CardName: array [0..7] of Char; //姓名
CardBalance: Word; //卡余额(单位分)
ChargeTimes: Word; //充值次数
OverPwd: DWORD; //超额密码
DayMoney: Word; //日累计
Period: Byte; //消费时段
PeriodCount: Byte; //时段次数
MonthDay: Word; //消费月日
OrderGroup: Word; //订餐分组（0-15组）
OrderMonth: Byte; //订餐月
OrderDay: Byte; //订餐日
OrderListType: Byte; //订餐表类型
CycleMealFlag: Byte; //重复消费标志
OrderList: TOrderList; //订餐表
{V1.35新增}
ReservedFlag: Byte; //保留，补贴批次
Privillege: Byte; //权限
EnterpriseID: DWORD; //企业ID，按BCD格式存储

end;

//发依时利690消费卡
function WriteER690Card(aSectorNo: ShortInt; PwdA: PChar; ER690CardInfo: TER690CardInfo): Boolean; stdcall; external ERTransDLL;
//读依时利690消费卡
function ReadER690Card(aSectorNo: ShortInt; PwdA: PChar; var ER690CardInfo: TER690CardInfo): Boolean; stdcall; external ERTransDLL;
//打开发卡器，在连接发卡器之前需要装载参数LoadCardParamV2
function OpenReaderAfterParam(CommStyle, ClockModel, ComPort, BaudRate: Integer): Boolean; stdcall; external ERTransDLL;

大帮手软件 2012-04-02