你搞得定吗？dll

[sensory]

VB下的dll文件调用申明如下：请问DELPHI下因该怎样声明???3x

Declare Function read_ch_data Lib "k800.dll" (ByVal nPort As Integer, ByVal ch As Byte, ByVal d1 As Long, ByVal d2 As Long) As Integer
Declare Sub out_port Lib "k800.dll" (ByVal nPort As Integer, ByVal cValue As Byte)
Declare Function in_port Lib "k800.dll" (ByVal nPort As Integer) As Byte

[firetoucher]

function read_ch_data (var nPort:integer;var ch:Byte;var d1,s2:LONG;):Integer;stdcall extern "k800.dll"
其他雷同

[jerrymousenet2]

unit Unit2;

interface

function read_ch_data(nPort: Integer; ch: Byte; d1: Integer; d2: Integer): Integer;

procedure out_port(nPort: Integer; cValue: Byte);

function in_port(nPort: Integer): Byte;

implementation

function read_ch_data; external 'k800.dll' name 'read_ch_data';

procedure out_port(nPort: Integer; cValue: Byte); external 'k800.dll' name 'out_port';

function in_port(nPort: Integer): Byte; external 'k800.dll' name 'in_port';


end.

[jerrymousenet2]

firetoucher(风焱) 说的有些不太对，VB中的byValu是传值方式，byRef才是按传引用的方式传参的。在delphi中byRef对应得加个var,byvalue的话不用加var.

[qiume]

ouyang75928(Thinking in Pascal)
说的没错,这回又晚了