关于动态链接库的问题！

[sangdy]

q1.pas中的代码：
unit q1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

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

var
Form1: TForm1;
h:Thandle;
m:procedure;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
h:=loadlibrary('ject1.dll');
m:=getprocaddress(h,'ride');
m;
freelibrary(h);
end;

end.
******************
ject1.dll中的代码：
library ject1;

uses
SysUtils,
Classes,
q1 in 'q1.pas'{form1};

{$R *.res}
procedure ride;
begin
form1.Label1.Caption:=inttostr(strtoint(
form1.Edit1.Text)*strtoint(form1.Edit2
.Text));
end;
exports
ride;
begin
end.
运行效果如下：
当在两个文本框中输入整数之后，点按钮，DLL中的过程会将计算结果传递到label1.caption.可调试中出错。

[47522341]

不要告诉我你的q1也是编译在动态链接库中的，^_^，
我试过了，你的程序没什么问题，删掉q1中的buttonclick过程后，动态链接库可以编译成功，不过要想实现在其他程序中调用该动态链接库的话还要在ject1的过程ride后加上stdcall;extern;export,应该没什么问题了，