读书人

。送分有关问题

发布时间: 2012-03-17 19:06:28 作者: rapoo

在线等。。。。送分问题。
我做了一个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;

读书人网 >.NET

热点推荐