VB代码转为DELPHI,在线急等 ( 积分: 300 )

monkeyboys · 2005-06-23

Attribute VB_Name = "comsubs" Option Explicit Type CardStruct    cardtype     As Byte      HotelID(2)   As Byte    AreaID       As Byte    FloorID      As Byte    roomid       As Byte    CardID       As Byte    OffOn        As Byte    SDate(4)     As Byte    EDate(4)     As Byte    STiem(1)     As Byte    ETime(1)     As Byte    FloorCot     As Byte End Type Public Const INVALID_HANDLE_VALUE = -1 Public commhandle As Long Public FKQstatus  As Boolean Public Const CardOk   As Integer = 0 Public Const CardErr  As Integer = 1 Public RdCard      As CardStruct Public icdev As Long     Dim st As Integer   Public Declare Function auto_init Lib "comdll.dll" (ByVal CommPort As Long, ByVal Baud As Long) As Long   Public Declare Function ic_exit Lib "comdll.dll" (ByRef commhandle As Long) As Long         Public Declare Function csc4150hex Lib "comdll.dll" (ByVal commhandle As Long, ByRef keystr As Byte) As Long Public Declare Function RDKEYRF Lib "comdll.dll" (ByVal commhandle As Long, ByRef keyinfo As Byte) As Long Public Declare Function WRKEYRF Lib "comdll.dll" (ByVal commhandle As Long, ByRef keyinfo As Byte) As Long Function OpenIcDev(port As Integer) As Integer Dim temp As Integer    icdev = auto_init(port, 9600) End Function Function CloseIcDev()    st = ic_exit(icdev) End Function Function PassIcDev() As Integer Dim keystr(3) As Byte keystr(0) = &H1 keystr(1) = &H2 keystr(2) = &H2 keystr(3) = &H24 st = csc4150hex(icdev, keystr(0)) Exit Function End Function Function WtCardICdev(CardIn As CardStruct) As Integer Dim offset    As Integer Dim length    As Integer Dim i    As Integer st = WRKEYRF(icdev, CardIn.cardtype) If st <> 0 Then   WtCardICdev = CardErr Else   WtCardICdev = CardOk End If End Function Function RdCardICdev() As Integer Dim offset    As Integer Dim length    As Integer st = RDKEYRF(icdev, RdCard.cardtype) If st <> 0 Then   RdCardICdev = CardErr   Exit Function Else   RdCardICdev = CardOk End If End Function 本人对VB确实不懂,有劳各位高手将以上代码转译为DELPHI 测试通过,立即给分.

monkeyboys · 2005-06-23

Attribute VB_Name = "comsubs" Option Explicit Type CardStruct    cardtype     As Byte      HotelID(2)   As Byte    AreaID       As Byte    FloorID      As Byte    roomid       As Byte    CardID       As Byte    OffOn        As Byte    SDate(4)     As Byte    EDate(4)     As Byte    STiem(1)     As Byte    ETime(1)     As Byte    FloorCot     As Byte End Type Public Const INVALID_HANDLE_VALUE = -1 Public commhandle As Long Public FKQstatus  As Boolean Public Const CardOk   As Integer = 0 Public Const CardErr  As Integer = 1 Public RdCard      As CardStruct Public icdev As Long     Dim st As Integer   Public Declare Function auto_init Lib "comdll.dll" (ByVal CommPort As Long, ByVal Baud As Long) As Long   Public Declare Function ic_exit Lib "comdll.dll" (ByRef commhandle As Long) As Long         Public Declare Function csc4150hex Lib "comdll.dll" (ByVal commhandle As Long, ByRef keystr As Byte) As Long Public Declare Function RDKEYRF Lib "comdll.dll" (ByVal commhandle As Long, ByRef keyinfo As Byte) As Long Public Declare Function WRKEYRF Lib "comdll.dll" (ByVal commhandle As Long, ByRef keyinfo As Byte) As Long Function OpenIcDev(port As Integer) As Integer Dim temp As Integer    icdev = auto_init(port, 9600) End Function Function CloseIcDev()    st = ic_exit(icdev) End Function Function PassIcDev() As Integer Dim keystr(3) As Byte keystr(0) = &H1 keystr(1) = &H2 keystr(2) = &H2 keystr(3) = &H24 st = csc4150hex(icdev, keystr(0)) Exit Function End Function Function WtCardICdev(CardIn As CardStruct) As Integer Dim offset    As Integer Dim length    As Integer Dim i    As Integer st = WRKEYRF(icdev, CardIn.cardtype) If st <> 0 Then   WtCardICdev = CardErr Else   WtCardICdev = CardOk End If End Function Function RdCardICdev() As Integer Dim offset    As Integer Dim length    As Integer st = RDKEYRF(icdev, RdCard.cardtype) If st <> 0 Then   RdCardICdev = CardErr   Exit Function Else   RdCardICdev = CardOk End If End Function 本人对VB确实不懂,有劳各位高手将以上代码转译为DELPHI 测试通过,立即给分.

monkeyboys · 2005-06-23

自己顶一下

monkeyboys · 2005-06-23

再顶一下

chenshaizi · 2005-06-23

想帮你,但代码太长了.其它代码很简单

czcn · 2005-06-23

unit comsubs; interface type  CardStruct = record    cardtype: Byte;    HotelID: array[0..2] of Byte;    AreaID: Byte;    FloorID: Byte;    roomid: Byte;    CardID: Byte;    OffOn: Byte;    SDate: array[0..4] of Byte;    EDate: array[0..4] of Byte;    STiem: array[0..1] of Byte;    ETime: array[0..1] of Byte;    FloorCot: Byte;  end; Const  INVALID_HANDLE_VALUE = -1;  CardOk = 0;  CardErr = 1; var  commhandle: LongInt;  FKQstatus: Boolean;  RdCard: CardStruct;  icdev: LongInt;  st: Integer;  function auto_init(const CommPort: LongInt; const Baud: LongInt):LongInt; stdcall; external 'comdll.dll';  function ic_exit(var commhandle: LongInt): LongInt; stdcall;  external 'comdll.dll';  function csc4150hex(const commhandle: LongInt; var keystr: Byte): LongInt; stdcall; external 'comdll.dll';  function RDKEYRF(const commhandle: LongInt; var keyinfo: Byte): LongInt; stdcall;  external 'comdll.dll';  function WRKEYRF(const commhandle: LongInt; var keyinfo: Byte): LongInt; stdcall;  external 'comdll.dll'; implementation function OpenIcDev(port: Integer): Integer; var  temp: Integer; begin  icdev := auto_init(port, 9600); end; procedure CloseIcDev; begin  st := ic_exit(icdev); end; function PassIcDev: Integer; var  keystr: array[0..3] of Byte; begin  keystr[0] := $1;  keystr[1] := $2;  keystr[2] := $2;  keystr[3] := $24;  st := csc4150hex(icdev, keystr[0]); end; function WtCardICdev(CardIn: CardStruct): Integer; var  offset: Integer;  length: Integer;  i: Integer; begin  st := WRKEYRF(icdev, CardIn.cardtype);  if st <> 0 Then    Result := CardErr  else    Result := CardOk; end; function RdCardICdev: Integer; var  offset: Integer;  length: Integer; begin  st := RDKEYRF(icdev, RdCard.cardtype);  If st <> 0 Then  begin   Result := CardErr;   Exit;  end  else   Result := CardOk; end; end.

monkeyboys · 2005-06-23

谢谢czcn, 待我测试一下,通过后立即发分

monkeyboys · 2005-06-23

to czcn: st := csc4150hex(icdev, keystr[0]); 当程序执行到这一句的时候报错

wzwcn · 2005-06-23

这里是一个把VB代码转成Delphi代码的工具，你下看看吧： http://www.lbbsoftware.com/free/vb2delphiv1.3.zip

monkeyboys · 2005-06-23

to wzwcn : 有病毒,无法打开

brown0432 · 2005-06-23

仔细看看这句。。 function csc4150hex(const commhandle: LongInt; const keystr: Byte): LongInt; stdcall; stdcall;  external 'comdll.dll'; 你说的错误可能是类型不匹配。。 st := csc4150hex(icdev, keystr[0]);

czcn · 2005-06-23

>> st := csc4150hex(icdev, keystr[0]); >> 当程序执行到这一句的时候报错 把错误贴出来看一看.不过上面确实多打了一个stdcall;,删掉试试

monkeyboys · 2005-06-23

我把function csc4150hex(const commhandle: LongInt; const keystr: Byte): LongInt; stdcall; stdcall;  external 'comdll.dll'定义改为: function csc4150hex(const commhandle: LongInt; var keystr: Byte): LongInt; stdcall; stdcall;  external 'comdll.dll'; 就不报错了.但是现在我用DELPHI调用后,得不到正确结果.

brown0432 · 2005-06-23

function csc4150hex 得不到正确的结果吗？？ vb 调用的结果你知道吗？？

czcn · 2005-06-23

这句多了一个stdcall你删了吗? ByVal和ByRef是不一样.不过我也记不清了. 不过我看上面的函数都没更改参数的值,所以我都加了const;

monkeyboys · 2005-06-23

多出的 stdcall 开始我就删掉了. 现在就是搞不明白我应该传什么样的参数进去才是正确的. 是传地址还是传值进去 VB的东西我实在搞不清楚

czcn · 2005-06-23

应该ByVal是值,ByRef是地址 如果结果不正确.会不会是 st是integer; csc4150hex返回的是LongInt; 的关系?

monkeyboys · 2005-06-24

多人接受答案了。

VB代码转为DELPHI,在线急等 ( 积分: 300 )

monkeyboys

Unregistered / Unconfirmed

monkeyboys

Unregistered / Unconfirmed

monkeyboys

Unregistered / Unconfirmed

monkeyboys

Unregistered / Unconfirmed

chenshaizi

Unregistered / Unconfirmed

czcn

Unregistered / Unconfirmed

monkeyboys

Unregistered / Unconfirmed

monkeyboys

Unregistered / Unconfirmed

wzwcn

Unregistered / Unconfirmed

monkeyboys

Unregistered / Unconfirmed

brown0432

Unregistered / Unconfirmed

czcn

Unregistered / Unconfirmed

monkeyboys

Unregistered / Unconfirmed

brown0432

Unregistered / Unconfirmed

czcn

Unregistered / Unconfirmed

monkeyboys

Unregistered / Unconfirmed

czcn

Unregistered / Unconfirmed

monkeyboys

Unregistered / Unconfirmed

Similar threads