T
twk
Unregistered / Unconfirmed
GUEST, unregistred user!
我现在是这样定义的。。。但只能在窗体中使用!!!
--------------------------------------------------------------
。。
。。
。。
。。。。。。
private
{ Private declarations }
public
{ Public declarations }
end;
var
SMaster: TSMaster;
icdev: longint;
snr:longint;
nkey,wdatachar;
st,sector,block,loadmode:smallint;
status:Array[0..18]of Char;
databuff:Array[0..15]of Char;
function add_s(i: smallint): smallint; stdcall;
far;external 'mwrf32.dll' name 'add_s';
function rf_init(port: smallint;baud:longint): longint; stdcall;
far;external 'mwrf32.dll' name 'rf_init';
function rf_exit(icdev: longint):smallint;stdcall;
far;external 'mwrf32.dll'name 'rf_exit';
implementation
uses logincode。。。。。。。。。。。
{$R *.DFM}
--------------------------------------------------------------
。。
。。
。。
。。。。。。
private
{ Private declarations }
public
{ Public declarations }
end;
var
SMaster: TSMaster;
icdev: longint;
snr:longint;
nkey,wdatachar;
st,sector,block,loadmode:smallint;
status:Array[0..18]of Char;
databuff:Array[0..15]of Char;
function add_s(i: smallint): smallint; stdcall;
far;external 'mwrf32.dll' name 'add_s';
function rf_init(port: smallint;baud:longint): longint; stdcall;
far;external 'mwrf32.dll' name 'rf_init';
function rf_exit(icdev: longint):smallint;stdcall;
far;external 'mwrf32.dll'name 'rf_exit';
implementation
uses logincode。。。。。。。。。。。
{$R *.DFM}