我直接用文本编辑器写了个DLL文件test_dll.dll;
library test_dll;
uses
SysUtils,
Dialogs,
Classes;function sum(aaa:integer):integer;stdcall;
begin
result:=aaa+10;
end;{$R *.res}
exports
sum;
begin
end.用DELPHI来调用;
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask; function sum(aaa:integer):integer;stdcall;external 'test_dll.dll';type
TForm1 = class(TForm)
MaskEdit1: TMaskEdit;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.SpeedButton1Click(Sender: TObject);
var
bbb:integer;
begin
bbb:=strtoint(MaskEdit1.text);
MaskEdit1.Text:=inttostr(sum(bbb));
end;end.
程序很简单,但运行的时候报错,说说什么 ACCESS VIOLATION AT……
运行编译出的程序提示为DLL为无效的windows印象! (注:DLL和程序放在一个目录下)
library test_dll;
uses
SysUtils,
Dialogs,
Classes;function sum(aaa:integer):integer;stdcall;
begin
result:=aaa+10;
end;{$R *.res}
exports
sum;
begin
end.用DELPHI来调用;
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask; function sum(aaa:integer):integer;stdcall;external 'test_dll.dll';type
TForm1 = class(TForm)
MaskEdit1: TMaskEdit;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.SpeedButton1Click(Sender: TObject);
var
bbb:integer;
begin
bbb:=strtoint(MaskEdit1.text);
MaskEdit1.Text:=inttostr(sum(bbb));
end;end.
程序很简单,但运行的时候报错,说说什么 ACCESS VIOLATION AT……
运行编译出的程序提示为DLL为无效的windows印象! (注:DLL和程序放在一个目录下)
解决方案 »
- delphi 串口通信使用多线程,关闭程序时程序无响应
- WebBrowser与IE增强的安全配置的问题。
- TextFile 类 追加记录日志文件 经常出现 I/O 103 错误
- Report Machine控件的打印问题
- 怎样保存附件画图的“自定义的颜色”的颜色设置
- 设置frmMain的Color后,TPageControl也跟着变颜色,但是Tab区域没有改变,怎样才能使TPageControl完全透明?
- 介绍一种产品,集成在应用系统中实现网络身份认证
- 关于Delphi开发的事!
- MDI中创建子窗口出错的问题.急!!在线等待!!!
- delphi7 idtcpserver做屏幕监视问题
- 热了
- 使用dbexpress中的sqlconnection连接数据库出错
uses
SysUtils,
Dialogs,
Classes;
+sharemen 试试
直接用Edit测试。
这样也行吗?不需要编译吗?(别用鸡蛋仍我)
DLL如何编译?哪位能详细告诉我一下,是不是要用DELPHI里面的DLL Wizard来建DLL?
又不是JAVA那样解释执行的,也不是html那种脚本文件,怎么能用文本直接编辑?用DELPHI里面的DLL Wizard来建DLL吧,编译就行了
screen := 传进来的screen