如何用Delphi读取dll文件中函数返回的值!! ( 积分: 100 )

sosmao · 2005-09-20

大家好:我用的是Delphi 7.公司有一考勤机器,厂商提供有考勤机Dll文件. 我需要调用Dll文件中对应的函数读取其中的值.其中Dll文件说明如下:JBC2900E.dll函数说明 注:所有的AR_ID变量代表卡钟地址编号.JBC2900E型地址编号为1-128. -------------------------------------------------------------------------------- extern "C" __declspec(dllimport ) __stdcall long Open_ComX(char * ComPort,long Baud); 功能:打开串口 参数: ComPort 端口号如＇COM1＇｀COM2＇ Baud       波特率 9600 回车: 0 成功非0失败 -------------------------------------------------------------------------------- extern "C" __declspec(dllimport ) __stdcall long Close_ComX(); 功能:关闭串口 回车: 0 成功非0失败 -------------------------------------------------------------------------------- extern "C" __declspec(dllimport ) __stdcall long SearchAR(long AR_ID); 功能:搜索卡钟 回车: 0 存在非0 不存在 -------------------------------------------------------------------------------- extern "C" __declspec(dllimport ) __stdcall long ReadRam2k(long AR_ID,char *DataBuff,long BlockFlag); 功能:读128条数据 参数: DataBuff      数据从此参数返回. BlockFlag      块标志. 返回:1 数据未完并请求下一块. 0数据完成. 我需要用Delphi读取考勤机的考勤记录.用厂商自带程序读出的数据如下 0012005091906511200003456018 0012005091907120900002142018 我的思路是:1:打开Com1口;2: 考勤机;3: 读取数据 前两步没问题,后面读取数据有问题.我的相关代码如下  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1;  Type TOpen_ComX=Function(Comport

char;Band:Integer):Integer;Stdcall;  Type TSearchAR=Function(AD_ID:Integer):Integer;Stdcall;  Type TReadRam2k=Function(AD_ID:Integer;DataBuff

Char;BlockFlag:Integer):Integer;Stdcall; implementation function Open_ComX(Comport

Char;Band:Integer):Integer; Stdcall external 'JBC_Attend.dll'name 'Open_ComX'; function Search(AR_ID:Integer):Integer; Stdcall external 'JBC_Attend.dll'name 'SearchAR'; {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); //功能:打开串口 Var Open_ComX:TOpen_ComX; Handle:THandle; Comport

char; Band:Integer; begin        Comport:='COM1';//设置Com1口        Band:=9600;  //设置速率        Handle:=LoadLibrary('JBC_Attend.dll');        Open_ComX:=GetProcAddress(Handle,'Open_ComX');        If Open_ComX(Comport,Band)=0 Then Edit1.Text:='Com1 口开启成功'        Else Edit1.Text:='Com1 口开启失败';        FreeLibrary(Handle); end; procedure TForm1.BitBtn2Click(Sender: TObject); //功能: 搜索卡钟 Var Search:TSearchar; Handle:THandle; AD_ID:Integer; begin        AD_ID:=1;        Handle:=LoadLibrary('JBC_Attend.dll');        Try        Search:=GetProcAddress(Handle,'SearchAR');        Edit4.Text:=IntToStr(Search(AD_ID));        If (Search(AD_ID)=0) Then  Edit2.Text:='搜索考勤 1 号机器成功'        Else Edit2.Text:='搜索考勤 1 号机器失败';        Finally        FreeLibrary(Handle);        End; End; procedure TForm1.BitBtn3Click(Sender: TObject); //读128条数据 Var ReadRam:TReadRam2k; Handle:THandle; farfun: TFarProc; AD_ID:Integer; DataBuff: PChar; BlockFlag:Integer; begin        AD_ID:=1;        BlockFlag:=1;        Handle:=LoadLibrary('JBC_Attend.dll');        farfun:=GetProcAddress(Handle,'ReadRam2k');        If farfun<>nil then          Begin            @ReadRam:=farfun;        ReadRam(AD_ID,DataBuff,BlockFlag);        Edit3.Text:='记录读取中:'+DataBuff;        Edit4.Text:='读取状态'+IntToStr(ReadRam(AD_ID,DataBuff,BlockFlag));        Memo1.Lines.Add(DataBuff);          End;        FreeLibrary(Handle); End; 当我执行完前两步再执行读取数据时则报告如下: Access Violation at Address 00242995 in module ｀JBC_Attend.dll ｀ Write of address 00427510 请求指教!我如何像厂商那样正常读取数据??请赋源码!!谢谢!!

sosmao · 2005-09-20

大家好:我用的是Delphi 7.公司有一考勤机器,厂商提供有考勤机Dll文件. 我需要调用Dll文件中对应的函数读取其中的值.其中Dll文件说明如下:JBC2900E.dll函数说明 注:所有的AR_ID变量代表卡钟地址编号.JBC2900E型地址编号为1-128. -------------------------------------------------------------------------------- extern "C" __declspec(dllimport ) __stdcall long Open_ComX(char * ComPort,long Baud); 功能:打开串口 参数: ComPort 端口号如＇COM1＇｀COM2＇ Baud       波特率 9600 回车: 0 成功非0失败 -------------------------------------------------------------------------------- extern "C" __declspec(dllimport ) __stdcall long Close_ComX(); 功能:关闭串口 回车: 0 成功非0失败 -------------------------------------------------------------------------------- extern "C" __declspec(dllimport ) __stdcall long SearchAR(long AR_ID); 功能:搜索卡钟 回车: 0 存在非0 不存在 -------------------------------------------------------------------------------- extern "C" __declspec(dllimport ) __stdcall long ReadRam2k(long AR_ID,char *DataBuff,long BlockFlag); 功能:读128条数据 参数: DataBuff      数据从此参数返回. BlockFlag      块标志. 返回:1 数据未完并请求下一块. 0数据完成. 我需要用Delphi读取考勤机的考勤记录.用厂商自带程序读出的数据如下 0012005091906511200003456018 0012005091907120900002142018 我的思路是:1:打开Com1口;2: 考勤机;3: 读取数据 前两步没问题,后面读取数据有问题.我的相关代码如下  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1;  Type TOpen_ComX=Function(Comport

char;Band:Integer):Integer;Stdcall;  Type TSearchAR=Function(AD_ID:Integer):Integer;Stdcall;  Type TReadRam2k=Function(AD_ID:Integer;DataBuff

Char;BlockFlag:Integer):Integer;Stdcall; implementation function Open_ComX(Comport

Char;Band:Integer):Integer; Stdcall external 'JBC_Attend.dll'name 'Open_ComX'; function Search(AR_ID:Integer):Integer; Stdcall external 'JBC_Attend.dll'name 'SearchAR'; {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); //功能:打开串口 Var Open_ComX:TOpen_ComX; Handle:THandle; Comport

char; Band:Integer; begin        Comport:='COM1';//设置Com1口        Band:=9600;  //设置速率        Handle:=LoadLibrary('JBC_Attend.dll');        Open_ComX:=GetProcAddress(Handle,'Open_ComX');        If Open_ComX(Comport,Band)=0 Then Edit1.Text:='Com1 口开启成功'        Else Edit1.Text:='Com1 口开启失败';        FreeLibrary(Handle); end; procedure TForm1.BitBtn2Click(Sender: TObject); //功能: 搜索卡钟 Var Search:TSearchar; Handle:THandle; AD_ID:Integer; begin        AD_ID:=1;        Handle:=LoadLibrary('JBC_Attend.dll');        Try        Search:=GetProcAddress(Handle,'SearchAR');        Edit4.Text:=IntToStr(Search(AD_ID));        If (Search(AD_ID)=0) Then  Edit2.Text:='搜索考勤 1 号机器成功'        Else Edit2.Text:='搜索考勤 1 号机器失败';        Finally        FreeLibrary(Handle);        End; End; procedure TForm1.BitBtn3Click(Sender: TObject); //读128条数据 Var ReadRam:TReadRam2k; Handle:THandle; farfun: TFarProc; AD_ID:Integer; DataBuff: PChar; BlockFlag:Integer; begin        AD_ID:=1;        BlockFlag:=1;        Handle:=LoadLibrary('JBC_Attend.dll');        farfun:=GetProcAddress(Handle,'ReadRam2k');        If farfun<>nil then          Begin            @ReadRam:=farfun;        ReadRam(AD_ID,DataBuff,BlockFlag);        Edit3.Text:='记录读取中:'+DataBuff;        Edit4.Text:='读取状态'+IntToStr(ReadRam(AD_ID,DataBuff,BlockFlag));        Memo1.Lines.Add(DataBuff);          End;        FreeLibrary(Handle); End; 当我执行完前两步再执行读取数据时则报告如下: Access Violation at Address 00242995 in module ｀JBC_Attend.dll ｀ Write of address 00427510 请求指教!我如何像厂商那样正常读取数据??请赋源码!!谢谢!!

chenybin · 2005-09-20

Handle:=LoadLibrary('JBC_Attend.dll');这种东西搞一次就可以了，把Handle作为全局变量 前面两步都是用的今天连接，根本不需要loadlibrary的，后面的才需要 @ReadRam:=GetProcAddress(Handle,'ReadRam2k'); If @ReadRam<>nil then Begin   ReadRam(AD_ID,DataBuff,BlockFlag);     这个最经典了 http://www.delphibbs.com/delphibbs/dispq.asp?lid=2383995 标题： Delphi 中调用 VC 动态链接库 (100分)

bulyn · 2005-09-20

调用DLL中的函数有两种方法； 第一种方法是静态调用，就如你的代码中所描述的一样，先声明函数 function Search(AR_ID:Integer):Integer; Stdcall external 'JBC_Attend.dll'name 'SearchAR';然后直接使用该函数即可； 第二种方法是动态调用，也如你代码中所描述一样，先加载DLL文件Handle:=LoadLibrary('JBC_Attend.dll'); 然后获得函数接口Search:=GetProcAddress(Handle,'SearchAR'); 最后调用该函数。 一般而言，对DLL的调用采用上述方式中的一种即可。 你的问题出现在，你事先已经声明了函数Search，然后又在程序中对Search赋值（Search:=GetProcAddress(Handle,'SearchAR')）。

app2001 · 2005-09-20

除了上面说的外，DataBuff要先分配空间才能接收数据回来吧 你这样试试    GetMem(DataBuff, 200);    try 　　  ReadRam(AD_ID,DataBuff,BlockFlag); 　　finally    　FreeMem(DataBuff);    end

sosmao · 2005-09-20

非常謝謝你們: 我有兩個問題問您們 1:你的问题出现在，你事先已经声明了函数Search，然后又在程序中对Search赋值（Search:=GetProcAddress(Handle,'SearchAR')）。 你講的問題是不是換個文件名即可 2:   GetMem(DataBuff, 200);    try 　　  ReadRam(AD_ID,DataBuff,BlockFlag); 　　finally    　FreeMem(DataBuff);    end 我不太明白這段,可不可以寫詳細點

app2001 · 2005-09-20

关于第二就是先给你的接收变量分配一段空间嘛，如果你不这样做也可直接将 DataBuff：: array[0..1023] of char;这样就不用释放了，直接拿来用就可以了. 我调用DLL时常这么用的，你试试看呗 另外，实际上我看你调用DLL中的声明习惯我也不是很喜欢，通常的我会单独声明一个单元文件来对其进行声明，你可试一下这个工具的 http://vcl.vclxx.org/DELPHI/D32FREE/HEADCONV.ZIP 將 C/C++ 的 DLL 宣告檔轉換成 Object Pascal 的公用程式 ( 4.20 版 )，作者 : Dr. Bob

sosmao · 2005-09-20

bulyn 您好:照您那麼說我如何改寫,只是換個名稱也不可以,我打开串口,搜索卡钟 沒問題,點機讀取數據時有問題 代碼如下 procedure TForm1.BitBtn3Click(Sender: TObject); Var ReadRam1:TReadRam2k; Handle:THandle; farfun: TFarProc; AD_ID:Integer; DataBuff: PChar; BlockFlag:Integer; begin        AD_ID:=1;        BlockFlag:=1;        Handle:=LoadLibrary('JBC_Attend.dll');        ReadRam1:=GetProcAddress(Handle,'ReadRam2k');        {If farfun<>nil then          Begin            @ReadRam:=farfun;}        ReadRam1(AD_ID,DataBuff,BlockFlag);        Edit3.Text:='記錄讀取中:'+DataBuff;        Edit4.Text:='讀取狀態'+IntToStr(ReadRam1(AD_ID,DataBuff,BlockFlag));        Memo1.Lines.Add(DataBuff);       //   End;       // FreeLibrary(Handle); End; 請指正

sosmao · 2005-09-20

app2001: 您好! 改成那樣(DataBuff：: array[0..1023] of char

調試通不過,dll 要求的是pchar類型.可否或多寫些代碼給我看看.謝謝!請指正

sosmao · 2005-09-20

app2001: 您好: HEADCONV 怎麼樣用阿!是運行 HCWIZARD嗎?我怎樣選擇我的 dll 文件阿! 謝謝

jindgu · 2005-09-20

上面说的很对，dll调用时，要么用静态的，要么用动态的，两种混在一起容易出错。 用静态那么你在BitBtn1Click里就不用Handle:=LoadLibrary('JBC_Attend.dll'); farfun:=GetProcAddress(Handle,'ReadRam2k');……等了，直接使用ReadRam2k 这个函数。 用动态在implementation里不要申明函数 function Open_ComX(Comport

Char;Band:Integer):Integer; Stdcall external 'JBC_Attend.dll'name 'Open_ComX'; 在BitBtn1Click里用Handle:=LoadLibrary('JBC_Attend.dll'); farfun:=GetProcAddress(Handle,'ReadRam2k');…… 对于databuff还是建议使用getmen的方法来申请一块内存空间，当然申请的空间不能比实际的小不让还是有错，最后要释放内存。 其实前面几位说的比较清楚了，自己多琢磨一下吧。

sosmao · 2005-09-21

多人接受答案了。

如何用Delphi读取dll文件中函数返回的值!! ( 积分: 100 )

sosmao

Unregistered / Unconfirmed

sosmao

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

bulyn

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

sosmao

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

sosmao

Unregistered / Unconfirmed

sosmao

Unregistered / Unconfirmed

sosmao

Unregistered / Unconfirmed

jindgu

Unregistered / Unconfirmed

sosmao

Unregistered / Unconfirmed

Similar threads