Dll的问题！(200分)

ABA · 2003-05-28

library Dll_1; { Important note about DLL memory management: ShareMem must be the   first unit in your library's USES clause AND your project's (select   Project-View Source) USES clause if your DLL exports any procedures or   functions that pass strings as parameters or function results. This   applies to all strings passed to and from your DLL--even those that   are nested in records and classes. ShareMem is the interface unit to   the BORLNDMM.DLL shared memory manager, which must be deployed along   with your DLL. To avoid using BORLNDMM.DLL, pass string information   using PChar or ShortString parameters. } uses   SysUtils,   Classes,system; //{$R *.res} function CurrChange(Amount: real): string;stdcall; var   str,str1,str2:widestring;   j:integer; begin   if (Amount<0) or(Amount>99999999.99) then   begin     currchange:=floattostr(Amount);     exit   end;   str1:='零千零佰零拾零万零千零佰零拾零圆零角零分';   str2:='零壹贰叁肆伍陆柒捌玖';   str:=floattostr(int(Amount*100));   for j:=1 to length(str) do     str1[19-2*length(str)+2*j]:=str2[(strtoint(str[j])+1)];   if (str1[7]='零')  then  str1[7]:=' ';   if (str1[15]='零') then  str1[15]:=' ';   for j:=1 to length(str1) do     if str1[j]='零' then str1[j+1]:=' ';   if (str1[17]='零') and (str1[19]='零') then str1:=str1+'整';   if str1[17]='零' then str1[17]:=' ';   if str1[19]='零' then str1[19]:=' ';   for j:=0 to 6 do     if (str1[2*j+1]='零') and (str1[2*j+3]='零') then str1[2*j+1]:=' ';   str2:='';   for j:=1 to length(str1) do     str2:=str2+trim(str1[j]);   if str2[1]='零'  then str2[1]:=' ';   str2:=trim(str2);   if str2[1]='万'  then str2[1]:=' ';   str2:=trim(str2);   if str2[1]='零'  then str2[1]:=' ';   str2:=trim(str2);   if str2[1]='圆'  then str2[1]:=' ';   for j:=1 to length(str2)-1 do   if str2[j]='零' then   if (str2[j+1]='万') or (str2[j+1]='圆') then str2[j]:=' '   ;   str1:='';   for j:=1 to length(str2) do   str1:=str1+trim(str2[j]);   currchange:=str1; end; Exports   CurrChange; begin end. 上面的代码是DLL的。 我使用的时候，提示“无法定位程序到输入点CURRCHANGE于动态连接库DLL_1.DLL上”。 不知道是什么原因？大家帮帮忙？

wbtvc · 2003-05-28

DLL_1.DLL不在当前目录

ABA · 2003-05-28

在当前目录，不是路径的问题。

eric.youbin · 2003-05-28

试试看！ uses   ShareMem,    //第一个引用的单元***记住 begin   DllApplication := Application;   DLLProc := @DLLUnloadProc; end;

thx1180 · 2003-05-28

仔细看看最前面那一段注释，不要用string传递参数或者返值。

迷糊 · 2003-05-28

uses 之后加： exports   CurrChange;

xiaolajiao · 2003-05-28

应该是你调用DLL时的格式不正确吧。检查一下 或者写出你调用的那个语句

ABA · 2003-05-28

我加了ShareMem还是不行呀。 这是我调用的源码 unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   function CurrChange(Amount: real): string;stdcall; var   Form1: TForm1; implementation {$R *.dfm}   function CurrChange;External 'Dll_1.dll' name 'Currchange'; procedure TForm1.Button1Click(Sender: TObject); var   Temp:String; begin   Temp:=Currchange(99.00);   //Temp:=IntToStr(Wode);   ShowMessage(Temp); end; end. 大家看看有什么错误！

wbtvc · 2003-05-28

哈哈，错误在这里：  function CurrChange;External 'Dll_1.dll' name 'Currchange'; 'Currchange';函数名称不一样，注意大小写 改为： function CurrChange;External 'Dll_1.dll' name 'CurrChange'; 给分吧，嘿嘿

迷糊 · 2003-05-28

你dll中的函数好象没有导出

ABA · 2003-05-28

To:wbtvc    确实是大小写的问题.谢谢你，还有大家。 是不是，DLL中用到STRING类型就必须用SHAREMEM

ABA · 2003-05-28

多人接受答案了。

Dll的问题！(200分)

ABA

Unregistered / Unconfirmed

wbtvc

Unregistered / Unconfirmed

ABA

Unregistered / Unconfirmed

eric.youbin

Unregistered / Unconfirmed

thx1180

Unregistered / Unconfirmed

迷糊

Unregistered / Unconfirmed

xiaolajiao

Unregistered / Unconfirmed

ABA

Unregistered / Unconfirmed

wbtvc

Unregistered / Unconfirmed

迷糊

Unregistered / Unconfirmed

ABA

Unregistered / Unconfirmed

ABA

Unregistered / Unconfirmed

Similar threads