dll调用的问题！(100分)

ABA · 2003-06-16

我使用该DLL，调用成功后，总是提示““Invalid Integer operation ””不知道为什么有这个错误！

ZRWeng · 2003-06-16

非法整数操作？代码？

ABA · 2003-06-16

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, DB, ADODB; type   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     Label1: TLabel;     Edit2: TEdit;     Label2: TLabel;     ADOConnection1: TADOConnection;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   //function WoDe:Integer ;Stdcall;   function GetCurrChange(aNum: Double):String;stdcall;   function ShowMsg(aContent,aCaption

char):Integer;StdCall;   function ShowQueryMsg(aContent,aCaption

char):Integer;StdCall;   function GetClientName(var aConSys:TADOConnection;aClientName:String):String;StdCall;   //function ShowD:String;Stdcall; var   Form1: TForm1; implementation {$R *.dfm}   //function WoDe;External 'ShowNum.dll' name 'Wode';   function GetCurrChange;External 'CTCPubLib.dll' name 'GetCurrChange';   function ShowMsg;External 'CTCPubLib.dll' name 'ShowMsg';   function ShowQueryMsg;External 'CTCPubLib.dll' name 'ShowQueryMsg';   function GetClientName;External 'CTCPubLib.dll' name 'GetClientName' //function ShowD;external 'DllTest.dll' name 'ShowD'; procedure TForm1.Button1Click(Sender: TObject); var   rTemp:Real; begin   try     rTemp:=StrToFloat(self.Edit1.Text);     self.Edit2.text:=GetCurrChange(rTemp);     ShowQueryMsg('转换成功!','询问');     //Temp:=IntToStr(Wode);   except     Exit;   end; end; procedure TForm1.Button2Click(Sender: TObject); begin   //ShowMessage(GetClientName(self.ADOConnection1,inputBox('输入框','输入客户代码 ','')));   application.MessageBox(pchar(GetClientName(self.ADOConnection1,inputBox('输入框','输入客户代码 ',''))),pchar('结果'),0) end; procedure TForm1.FormCreate(Sender: TObject); begin end; end. 代码如上！

ABA · 2003-06-16

DLL的代码： {-----------------------------------------------------------------------------   Name: CTCSystem's Public Library 1.0   Author:    Asutin Chan   Date:      04-六月-2003 -----------------------------------------------------------------------------} library Dll_2; { 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   sharemem,   SysUtils,   Classes; {$R *.res} Function CurrChange(num

ouble):String;StdCall const     szd:string = '零壹贰叁肆伍陆柒捌玖';     dwd:string = '分角元拾佰仟万拾佰仟亿拾佰仟';     kdwd:string = '零仟零佰零拾零角零分';  var     n1,n2,nm:shortint;     je,zf:string;     getastr:string[4];//用于临时保存一个字符     code,getanum:integer;   begin    //检测数据范围最大999999999999.99 最小0.00   If (num > 999999999999.99) Or (num = 0) Or (num < 0.01) Then     begin        CurrChange:= '';       Exit;     End;   je:= '';   //将数字从右到左读成大写金额   str(num:15:2,zf); //将数字转换“#####.##”格式的字符格式   zf:=trim(zf);   n1 := Length(zf);  //数字长度   n2 := 1;    For nm := 1 To n1 do     begin       //getastr:=;         If copy(zf,n1,1)<> '.' Then //跳过小数点           begin             getastr:=copy(zf, n1, 1);             val(getastr,getanum,code);             getastr:=copy(szd, (getanum+1)*2 - 1, 2);             je := getastr+copy(dwd, n2*2 - 1, 2)+ je;             n2 := n2 + 1;           end;       n1 := n1 - 1;     end; //去掉大写金额中不符合使用习惯的部分    n1:= Length(je);    //字符串长度    for nm:=1 to (n1 div 4)-1 do      begin        n2:=n1-nm*4+1;        getastr:=copy(je,n2,n2+4);        if AnsiPos(getastr,kdwd)<>0 then           je:=copy(je,1,n1-nm*4+2)+copy(je,n1-nm*4+5,length(je));      end;    n1:=AnsiPos('零零',je);    while n1<>0 do      begin        je:=copy(je,1,n1+1)+copy(je,n1+4,length(je));        n1:=AnsiPos('零零',je);      end;    //当出现“零亿”，“零万”，“零元”时去掉“零”    n1:=AnsiPos('零亿',je);    if n1<>0 then      je:=copy(je,1,n1-1)+copy(je,n1+2,length(je));    n1:=AnsiPos('零万',je);    if n1<>0 then      je:=copy(je,1,n1-1)+copy(je,n1+2,length(je));    n1:=AnsiPos('零元',je);    if n1<>0 then      je:=copy(je,1,n1-1)+copy(je,n1+2,length(je));    //处理最后出现的“零”    n1:=length(je);    If copy(je,n1-1,n1)='零' Then je:=copy(je,1,n1-2);    n1:=length(je);    getastr:=copy(je,n1-1,2);    If getastr='元'//如果没小数部分则加“整“      Then je:=je+'整'    else       if (getastr<>'分') and (getastr<>'角') then je:=je+'元整';    CurrChange:= je; End; Exports   CurrChange; begin end.

lightstar · 2003-06-16

可能是Dll内部代码错误，把代码贴出来吧

ABA · 2003-06-16

这才是正确的DLL代码，刚刚那个不对！ {-----------------------------------------------------------------------------   Name: CTCSystem's Public Library 1.0   Author:    Austin Chan   Date:      04-六月-2003 -----------------------------------------------------------------------------} library CTCPubLib; { 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   sharemem,   SysUtils,Forms,Windows, DB, ADODB,   Classes; {$R *.res} {   Name: GetCurrChange   Input: Money   Return: Format of Chinese(is a String Type)   Author: Austin Chan   Date:   04-六月-2003 } Function GetCurrChange(aNum

ouble):String;StdCall const   cNumUnit:string = '零壹贰叁肆伍陆柒捌玖';   cChUnit:string = '分角元拾佰仟万拾佰仟亿拾佰仟';   cZChUnit:string = '零仟零佰零拾零角零分'; var   lnTemp1,lnTemp2,I:shortint;   lcStr1,lcStr2:string;   laGetStr:string[4];//用于临时保存一个字符   lnCode,laGetNum:integer;   begin    //Is check Range of aNum  Max:999999999999.99 Min:0.00   If (aNum > 999999999999.99) Or (aNum = 0) Or (aNum < 0.01) Then   begin     Result:= '';     Exit;   End;   lcStr1:= '';   //Is change the aNum To Chinese From Right To Left   str(aNum:15:2,lcStr2); //Is Change The aNum To "#####.##"   lcStr2:=trim(lcStr2);   lnTemp1 := Length(lcStr2);  //The aNum's Length   lnTemp2 := 1;   For I := 1 To lnTemp1 do   begin     //getastr:=;     If copy(lcStr2,lnTemp1,1)<> '.' Then //ignore decimal     begin       laGetStr:=copy(lcStr2, lnTemp1, 1);       val(laGetStr,laGetNum,lnCode);       laGetStr:=copy(cNumUnit, (laGetNum+1)*2 - 1, 2);       lcStr1 := laGetStr+copy(cChUnit, lnTemp2*2 - 1, 2)+ lcStr1;       lnTemp2 := lnTemp2 + 1;     end;    lnTemp1 := lnTemp1 - 1;   end;   lnTemp1:= Length(lcStr1);    //The lcStr1's Length   for I:=1 to (lnTemp1 div 4)-1 do   begin     lnTemp2:=lnTemp1-I*4+1;     laGetStr:=copy(lcStr1,lnTemp2,lnTemp2+4);     if AnsiPos(laGetStr,cZChUnit)<>0 then     lcStr1:=copy(lcStr1,1,lnTemp1-I*4+2)+copy(lcStr1,lnTemp1-I*4+5,length(lcStr1));   end;   lnTemp1:=AnsiPos('零零',lcStr1);   while lnTemp1 <> 0 do   begin     lcStr1:=copy(lcStr1,1,lnTemp1+1)+copy(lcStr1,lnTemp1+4,length(lcStr1));     lnTemp1:=AnsiPos('零零',lcStr1);   end;    //Delete The "零" when it's bring “零亿”，“零万”，“零元”   lnTemp1:=AnsiPos('零亿',lcStr1);   if lnTemp1<>0 then     lcStr1:=copy(lcStr1,1,lnTemp1-1)+copy(lcStr1,lnTemp1+2,length(lcStr1));   lnTemp1:=AnsiPos('零万',lcStr1);   if lnTemp1<>0 then     lcStr1:=copy(lcStr1,1,lnTemp1-1)+copy(lcStr1,lnTemp1+2,length(lcStr1));     lnTemp1:=AnsiPos('零元',lcStr1);     if lnTemp1<>0 then       lcStr1:=copy(lcStr1,1,lnTemp1-1)+copy(lcStr1,lnTemp1+2,length(lcStr1));    //Dispose The Last Zero   lnTemp1:=length(lcStr1);   If copy(lcStr1,lnTemp1-1,lnTemp1)='零' Then lcStr1:=copy(lcStr1,1,lnTemp1-2);     lnTemp1:=length(lcStr1);     laGetStr:=copy(lcStr1,lnTemp1-1,2);   If laGetStr='元' Then //If no part of decimal,Add "整"     lcStr1:=lcStr1+'整'   else     if (laGetStr<>'分') and (laGetStr<>'角') then       lcStr1:=lcStr1+'元整';   Result:= lcStr1; End; {   Name: ShowMsg   Input: Contert,Caption   Return: Integer   Author: Austin Chan   Date:   04-六月-2003   Desc: Information MessageBox } function ShowMsg(aContent,aCaption

char):Integer;StdCall begin   Result:=Application.MessageBox(aContent,aCaption,0); end; {   Name: ShowQueryMsg   Input: Contert,Caption   Return: Integer   Author: Austin Chan   Date:   04-六月-2003   Desc: Confirm MessageBox } function ShowQueryMsg(aContent,aCaption

char):Integer;StdCall begin   Result:=Application.MessageBox(aContent,aCaption,MB_YESNO); end; {   Name: GetClientName   Input: aConSys,aClientNo   Return: String   Author: Austin Chan   Date:   04-六月-2003   Desc: Get of ClientName } function GetClientName(var aConSys:TADOConnection;aClientNo:String):String;StdCall var   ladoQuery:TADOQuery; begin   ladoQuery:=TADOQuery.Create(nil);   ladoQuery.Connection:=aConSys;   with ladoQuery do   begin     if Active = True then Close;     sql.Clear;     sql.Add('Select ClientName From IeClient Where ClientNo=:ClientNo');     parameters.ParamByName('ClientNo').Value:=aClientNo;     open;     Result:=Trim(Fieldbyname('ClientName').AsString);   end; end; {   Name: GetPortName   Input: aConSys,aPortNo   Return: String   Author: Austin Chan   Date:   04-六月-2003   Desc: Get of PortName } function GetPortName(var aConSys:TADOConnection;aPortNo:String):String;StdCall var   ladoQuery:TADOQuery; begin   ladoQuery:=TADOQuery.Create(nil);   ladoQuery.Connection:=aConSys;   with ladoQuery do   begin     if Active = True then Close;     sql.Clear;     sql.Add('Select PortName From IePort Where PortNo=

ortNo');     parameters.ParamByName('PortNo').Value:=aPortNo;     open;     Result:=Trim(Fieldbyname('PortName').AsString);   end; end; Exports   GetCurrChange,ShowMsg,ShowQueryMsg,GetClientName,GetPortName; begin end.

ZRWeng · 2003-06-16

>>function GetCurrChange(aNum: Double):String;stdcall; >>function GetClientName(var aConSys:TADOConnection;aClientName:String):String;StdCall; 最好是返回Pchar

ABA · 2003-06-16

可是我要在程序中使用STRING类型的，可以将PCHAR转换成STRING的吗？

ZRWeng · 2003-06-16

可以的

wfzha · 2003-06-16

我用d7+xpsp1 你的代码正确

ABA · 2003-06-16

我刚刚将STRING该为PCHAR就可以了。谢谢！

ABA · 2003-06-16

多人接受答案了。

dll调用的问题！(100分)

ABA

Unregistered / Unconfirmed

ZRWeng

Unregistered / Unconfirmed

ABA

Unregistered / Unconfirmed

ABA

Unregistered / Unconfirmed

lightstar

Unregistered / Unconfirmed

ABA

Unregistered / Unconfirmed

ZRWeng

Unregistered / Unconfirmed

ABA

Unregistered / Unconfirmed

ZRWeng

Unregistered / Unconfirmed

wfzha

Unregistered / Unconfirmed

ABA

Unregistered / Unconfirmed

ABA

Unregistered / Unconfirmed

Similar threads