大佬教程收集整理的这篇文章主要介绍了DELPHI 调用标准C接口DLL char *value，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。
delphi调用标准C接口DLL char * 的调用，因内部实现的不同。并无标准代码可用，需要跟据接口实际情况来调整入参类型与格式。
随手所记，并未全部验证
调用方式0
申明 iReadM1Card:function(SecNr:Integer;DataBlock:Integer; SecKey:PAnsiChar;PwdType:Integer;pOutInfo:PAnsiChar):Integer;stdcall; var Errcode:Integer; ReadInfo:PAnsiChar; OutValue1: WideString; begin OutValue:=''; ReadInfo:=GetMemory(200); try Errcode:=iReadM1Card(1,0,'AA',0,ReadInfo) ; OutValue1:=StrPas(ReadInfo); if Errcode<0 then begin ...... Exit; end; OutValue:=leftstr(OutValue1,7) ;//取前7位 finally FreeMemory(ReadInfo); end;
申明格式1
interface uses SysUtils; const CallDLL='DC_Reader.dll'; var AERROR:STRING; {函数名称：iReadM1Card 函数功能：通用读M1卡 long __stdcall iReadM1Card(int SecNr, int DataBlock, char *SecKey, int PwdType, char *pOutInfo) 参数说明：[IN] SecNr 扇区编号（0~15） [IN] DataBlock 块编号（0~3） [IN] SecKey 密钥数据，为空时默认“FFFFFFFFFFFF” [IN] PwdType 密钥类型 0:0套Type-A, 4:0套Type-B 1:1套Type-A, 5:1套Type-B 2:2套Type-A, 6:2套Type-B [OUT] pchOutInfo 成功：数据信息 失败：错误描述信息 返回值： 成功：返回0； 失败：返回小于0的错误码。} iReadM1Card:function(SecNr:Integer;DataBlock:Integer; SecKey:PAnsiChar;PwdType:Integer;var pOutInfo:PAnsiChar):Integer;stdcall;
通用动态DLL加载
var LibHandle:THandle; LibHandle := Loadlibrary(PChar(CallDLL) );//'DC_Reader.dll' if LibHandle <= 32 then begin AERROR := '加载动态链接库'+CallDLL+'失败,错误代码：' + IntToStr(LibHandle); exit; end; try @iReadM1Card := GetProcAddress(LibHandle, PChar('iReadM1Card')); Result:=True; except on E:Exception do begin ......end; end;
调用方式1
var Errcode:Integer; ReadInfo:PAnsiChar; OutValue1: WideString; begin Result:=False; OutValue:=''; ReadInfo:=GetMemory(1000); try Errcode:=iReadM1Card(1,0,'AA',0,ReadInfo) ; OutValue1:=StrPas(ReadInfo); if Errcode<0 then begin ...... Exit; end; OutValue:=leftstr(OutValue1,7) ;/取前7位 finally FreeMemory(ReadInfo); end; Result:=True;
调用方式2
var Errcode:Integer;
P:Pointer;
buff:array[0..32] of Char;
begin
p:=AnsiStrAlloc(32);
ZeroMemory(@p,32);
Errcode:=iReadM1Card1(1,0,'AC14654634CA',0,p) ;
CopyMemory(@buff[0],p,32);
申明格式2 数组
iReadM1Card:function(SecNr:Integer;DataBlock:Integer; SecKey:PAnsiChar;PwdType:Integer;var pOutInfo:TBytes):Integer;stdcall;
调用格式2
var Errcode:Integer; ReadInfo:TBytes; OutValue, OutValue1: WideString; i:Integer; Begin OutValue:=''; SetLength(ReadInfo,32); try Errcode:=iReadM1Card(1,0,'AA',0,ReadInfo) ; for I := Low(ReadInfo) to High(ReadInfo) do begin OutValue1:=OutValue1 + Char(ReadInfo[i]); end; if Errcode<0 then begin Exit; end; OutValue:=leftstr(OutValue1,7) ;//取前7位 finally FreeMemory(ReadInfo); end; end
以上是大佬教程为你收集整理的DELPHI 调用标准C接口DLL char *value全部内容，希望文章能够帮你解决DELPHI 调用标准C接口DLL char *value所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。