c中:
格 式 WORD read_card(
HICC hiCC,
BYTE zone,
unsigned addr,
unsigned len,
LPBYTE data);
格 式 WORD write_card(
HICC hiCC,
BYTE zone,
unsigned addr,
unsigned len,
LPBYTE data);
做成dll,供调用。
Vb中:
Declare Function write_card Lib "D:/SS/VB32/STICCW32.DLL" (ByVal hiCC%, ByVal zone%, ByVal addr%, ByVal data_len%, ByVal dat$) As Integer
Declare Function read_card Lib "D:/SS/VB32/STICCW32.DLL" (ByVal hiCC%, ByVal zone%, ByVal addr%, ByVal data_len%, ByVal dat$) As Integer
调用正常。
Delphi中:
function write_card(hiCC,zone,addr,data_len:integer;dat
char):integer;stdcall;external 'stiCCw32.dll' name 'write_card';
function read_card(hiCC,zone,addr,data_len:integer;dat
char):integer;stdcall;external 'stiCCw32.dll' name 'read_card';
调用read_card正常,write_card返回一个固定的错误值,很大:$41C700A6。
现在就只写卡不行,其他都可以了。各位大虾,赶紧帮我想想,若解决了,另加100分,决不食言!