delphi dll问题急
来源:百度知道 编辑:UC知道 时间:2024/06/04 12:13:09
function tt(var s1,s2,s3:String):Integer;
begin
s1:='你好';
s2:='就是';
s3:='这个意思';
result:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2,s3:String;
begin
tt(s1,s2,s3);
showmessage(s1+s2+s3);
end;
将tt函数封装到dll应该怎么写
begin
s1:='你好';
s2:='就是';
s3:='这个意思';
result:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2,s3:String;
begin
tt(s1,s2,s3);
showmessage(s1+s2+s3);
end;
将tt函数封装到dll应该怎么写
delphi编译DLL方法:
在"file"->"other"->"new"页->"DLL Wizard"项目->"OK"
建立新的DLL项目,第一行是library Project1;
现在编译可生成一个Project1.dll,在存储项目文件的目录下。
在begin之前加入下面的代码
function tt(var s1,s2,s3:String):Integer;
begin
s1:='你好';
s2:='就是';
s3:='这个意思';
result:=0;
end;
exports
tt;
如果只是为了把这个函数封装,我想没必要 如果你要学习怎么制作和使用DLL 那我建议你看些基础上的书 上面应该有介绍!
exports
这个是封装成DLL后要导出的函数,只有在这个下边的东西才能被外边的识别。
就算你的程序做了N大的,没有这个,你外边就引用不了了。