一个关于dll的简单问题已接近解决,再加110分共260分酬谢(110)

L

laowt

Unregistered / Unconfirmed
GUEST, unregistred user!
马上发,请看新帖
 
D

dorry

Unregistered / Unconfirmed
GUEST, unregistred user!
接口这样声明:注意大小写!unit DllInterface;interfaceconst EasyDLL='EasyUSB_DLL.dll'; procedure EasyUSB_Init(); cdecl; procedure EasyUSB_Read(Data1,data2,data3:pbyte);cdecl; procedure EasyUSB_Write(Data1,data2,data3:Word);cdecl;implementation procedure EasyUSB_Init; external EasyDLL Name 'EasyUSB_Init';//注意大小写 procedure EasyUSB_Read; external EasyDLL Name 'EasyUSB_Read';//注意大小写 procedure EasyUSB_Write; external EasyDLL Name 'EasyUSB_Write';//注意大小写end.这样调用即可。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementationuses DllInterface;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin try EasyUSB_Init; except ShowMessage('未找到设备!'); end;end;procedure TForm1.Button2Click(Sender: TObject);var D1,D2,D3:array[0..10] of Byte;begin EasyUSB_Read(@D1[0],@D2[0],@D3[0]);end;试一试!
 
L

laowt

Unregistered / Unconfirmed
GUEST, unregistred user!
EasyUSB_Read(@D1[0],@D2[0],@D3[0]);读了,在什么地方显示。我怎么知道它做了什么
 
D

dorry

Unregistered / Unconfirmed
GUEST, unregistred user!
监视一下或在窗体放三个Label控件即可!当然,你还可以转换成二进制或 16 进制字符显示。procedure TForm1.Button2Click(Sender: TObject);var D1,D2,D3:array[0..10] of Byte;begin FillChar(D1,sizeof(D1),0); FillChar(D1,sizeof(D2),0); FillChar(D1,sizeof(D3),0); EasyUSB_Read(@D1[0],@D2[0],@D3[0]); Label1.caption:=IntTostr(D1[0]); Label2.caption:=IntTostr(D2[0]); Label2.caption:=IntTostr(D3[0]);end;
 
L

laowt

Unregistered / Unconfirmed
GUEST, unregistred user!
好,已经能显示了!能不能在Unit1中完成,也就是说不用unit DllInterface;
 
W

wenqy

Unregistered / Unconfirmed
GUEST, unregistred user!
试试这个implementation //uses DllInterface;procedure abcd_Read(Data1,data2,data3:pbyte);cdecl; external ABCDdll;
 
L

laowt

Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
 
顶部