在线等。。。。送分问题。
我做了一个DELPHI的DLL,我想给别人调用,我应该在我的方法前面加什么?各位大哥能写给我看看吗?以下是我写的类
library dbpack;
uses
SysUtils,
Dbf,
Dialogs,
Classes;
{$R *.res}
function pack (tbname:string): Integer;
var dbf1:TDbf ;
OpenDialog1: TOpenDialog;
begin
Dbf1:=TDbf.Create(nil);
dbf1.Close ;
dbf1.TableName:=tbname ;
dbf1.Open ;
try
dbf1.PackTable ;
Result:=0;
except
Result:=1;
end;
end;
begin
end.
[解决办法]
深奥么?
function pack (tbname:string): Integer;stdcall;
var dbf1:TDbf ;
OpenDialog1: TOpenDialog;
begin
Dbf1:=TDbf.Create(nil);
dbf1.Close ;
dbf1.TableName:=tbname ;
dbf1.Open ;
try
dbf1.PackTable ;
Result:=0;
except
Result:=1;
end;
end;
exports
pack;
begin
end.
[解决办法]
参数用Pchar不要用String
function pack (tbname:Pchar): Integer;stdcall;