盒子论坛 v2.1

调用dll的单元文件Unit1.pas
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;
//声明(调用project2.dll文件里的过程SetActiveLanguage)
procedure SetActiveLanguage(LanguageName:string);export;stdcall;external 'project2.dll';

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  //调用过程
  SetActiveLanguage(');
end;

end.

编译生成dll文件的工程文件project2.dpr,它引用了Unit1.pas里的按钮对象button1.

library Project2;
uses
  SysUtils,
  Unit1 in 'Unit1.pas',//引用Unit1.pas
  Classes;
{$R *.res}

procedure SetActiveLanguage(LanguageName:string);export; stdcall;
begin
  //处理Unit1.pas里form1类中的按钮对象
  form1.Button1.Caption:='按钮1';
end;

exports
SetActiveLanguage;
begin
end.
编译时能通过，生成了Project2.dll和project1.exe文件。运行时出现Access Violation address 0028332E in moudle 'Project2.dll',Read address 00000324错误，请问这是为什么？改为动态调用dll出现同样的错误，为什么？用什么方法把Form1的成员对象（button1）传递给dll。

这个程序的目的是通过点击窗体上的按钮调用dll文件，通过dll的过程SetActiveLanguage将按钮的caption变为按钮1，但是当在dll过程SetActiveLanguage（）里设置form1.Button1.Caption:='按钮1';时需要将form1.button传递给dll。由于已经uses Unit1 in 'Unit1.pas',//引用Unit1.pas ,所以本以为能够成功,没想到运行时出错,请高手帮忙解释这是为什么?怎么解决？谢谢！（注：编译能通过）

希望回复此贴的朋友，在回复之前测试一下你的方法，上面的程序已经很完整，而且比较简单，我的目的就是想试验一下如何在文件之间传递类的成员对象，这种情况不单单只在调用DLL时出现问题，在一个单元文件调用另一个单元文件时都会发生。这是一类错误情况，希望朋友们能予以重视。此贴在问题解决时立即结贴。
    我请求你的帮助也是为了帮助别人，帮助别人就是对帮助自己的人的最大回报。
----------------------------------------------
-

作者：

xiaojun5460 (西门吹灯)	★☆☆☆☆	-
	盒子活跃会员

2004/3/17 7:39:10

1楼：

大哥我也不会,帮你UP!
----------------------------------------------
-相互学习,共同进步!

信息

登陆以后才能回复