又有问题
这个是dll文件里的函数:
function getdllform:string;stdcall;
var form:tform;
edit:tedit;
begin
form:=tform.Create(application);
edit:=tedit.Create(form);
edit.Parent:=form;
edit.Text:='';
form.ShowModal ;
result:=edit.Text;
form.Free;
end;
这里调用dll里的getdllform函数。
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=getdllform;
end;
主要运行目的是调用dll里的函数,创建一个form,在上面的edit上输入信息,关闭form后返回信息。
第一次按button1运行都没问题,但是再按button1,在关掉所创建的form时就会出错。
错误信息:
access violation at adress 00401BFA in module'project2.exe'.read of address FFFFFFFF.
why ???