求助：要从BCB的DLL里传递出多个字符串，然后用VC 的程序来调用这个DLL的函数，请问这个时候CString和BCB里的AnsiString该如何处理？

richwang72 2005-04-08 01:07:39

我分别在BCB和VC里试过了引用传参，分别都是对的，只是当VC调用BCB的就不对了，不知道为什么？

...全文

123 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

caoyuechun 2005-06-15

打赏
举报

m_StringValue "重叠 I/O 操作在进行中。\r\n" string

everandforever 2005-04-08

打赏
举报

DLL传字符串给主程序还是通过char的好。

liclin 2005-04-08

打赏
举报

我也想知道，高手来一下！

柯本 2005-04-08

打赏
举报

用char *传过来,但不要直接用AnsiString的c_str();
先用strcpy拷到一char *中再传给VC

everandforever 2005-04-08

打赏
举报

没看懂你的话。你把BCB那边ANSISTRING丢东西的那截代码贴来看看

richwang72 2005-04-08

打赏
举报

我用了字符串的，但是在BCB那里却导致原来的ANSISTRING丢东西了，不知道为什么？

BCB调用VC的DLL里的方法，很简单，对于新人来说，可以很简单的学会怎样调用，里面写了简单的注释，很容易看懂。

黄历日期DLL组件版本：1.0 开发：小焱软件网址：http://www.zystudios.cn 函数说明：输出函数原型：AlmanacOutPut(LicenseKey:string;Y,M,D:integer); 参数说明： LicenseKey：授权密钥，请输入zystudios.cn Y,M,D分别为年月日返回类型：PChar字符串，以"/"分割返回错误说明： invalid date：日期错误，有效范围1901-1-1至2099-12-31 License Key Error：授权密钥错误，请输入 zystudios.cn 本组件对于个人使用完全免费，请在使用过程中遵守三方协议，如需应用商业，请联系作者！本组件有完整的Delphi，VC和BCB调用例子，VB，.net,java也可以调用，这里就不给出例子了O(∩_∩)O 任何建议欢迎反馈 2009年12月21日

library fundll; { 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, // ShareMem 一定放第一个 Windows, Messages, SysUtils, math, strutils, registry , StdCtrls, ExtCtrls, ADODB, DB,dateutils,Dialogs; // fucs in 'fucs.pas'; const INPASSSTR='89ABCDEFGcdefghijkHIJ%^KLMN0123opqrstuOP -_\|/?@#$&*' ; //切记：Library 的名字大小写没关系，可是DLL-Func的大小写就有关系了。 // 在 DLL-Func-Name写成MyMax与myMAX是不同的。如果写错了，立即的结果是你调用到此DLL的AP根本开不起来。 //参数的大小写就没关系了。甚至不必同名。如原型中是 (X,Y:integer)但引用时写成(A,B:integer)，那是没关系的。 //切记：要再加个stdcall。书上讲，如果你是用Delphi写DLL，且希望不仅给 Delphi-AP也希望BCB/VC-AP等使用的话，那你最好加个Stdcall ; //参数型态：Delphi有很多种它自己的变量型态，这些当然不是DLL所喜欢的,Windows/DLL的母语应该是C。所以如果要传进传出DLL的参数，我们尽可能照规矩来用。这两者写起来，后者会麻烦不少。如果你对C不熟的话，那也没关系。我们以后再讲。 //3.将这些可共享的Func送出DLL，让外界﹝就是你的Delphi-AP啦﹞使用： //光如此，你的AP还不能用到这些，你还要加个Exports才行。代码: //=============比较大小的函数=============== Function MyMax ( X , Y : integer ) : integer ; stdcall ; //stdcall 可以让 BCB/VC-AP等使用的 begin if X > Y then Result := X else Result := Y ; end ; //==============加密======================= function Inpass(s:string):string; stdcall ; var i:integer; passstr,dd:string; begin for i:=1 to length(s) do begin dd:=inttohex(ansipos(s[i],inpassstr),4); if dd='0000' then begin result:='0';exit end; passstr:=passstr+dd ; end; Result :=passstr; end; //==============解密======================= function Outpass(s:string):string;stdcall ; var pass,dd:string; i,leng:integer; begin leng:= floor(length(s)/4); pass:=''; for i:=1 to leng do begin dd:=ansimidstr(s,(i-1)*4+1,4); if strtoint('$'+dd)=0 then begin result:='0';exit;end; if strtoint('$'+dd)>78 then begin result:='0'; exit end; pass:=pass+ansimidstr(inpassstr,strtoint('$'+dd),1) ; end; Result :=pass ; end; //==========test========================= function jsjyh(strym:string):string;stdcall; var newstr1,he,oldstr:string; tj:boolean; i:integer; begin i:=1; he:=''; tj:=true; // 取出要参与校验和计算的字符串给oldstr if (length(strym) mod 2)0 then begin showmessage('你输入的源码个数有错，不能是奇数个，请重输入！'); exit; end; oldstr:=trim(strym); while tj=true do begin newstr1:=copy(oldstr,i,2); oldstr:=copy(oldstr,i+2,length(oldstr)-2); //开始计算校验和并给he变量 if he='' then begin he:=inttohex(strtointdef('$'+newstr1,16)+ strtointdef('$'+'00',16),2); he:=rightstr(he,2); end else begin he:=inttohex(strtointdef('$'+newstr1,16)+ strtointdef('$'+he,16),2); he:=rightstr(he,2); end; if length(oldstr) =0 then tj:=false; end; result:=strym+he; end; //============================================== {$R *.RES} //将这些可共享的Func送出DLL，让外界﹝就是你的Delphi-AP啦﹞使用： //光如此，你的AP还不能用到这些，你还要加个Exports才行。代码: exports MyMax,Inpass,Outpass,jsjyh; begin end.

Godex打印机使用中文说明书，里面含有各种命令的使用。

共享软件加密算法库》专业版是一款针对个人、企业开发共享软件的加密工具，支持Windows平台下各类开发工具: VC、VB、BCB、Delphi、PB、VFP、C#、ASP等，算法库中包含了获取计算机硬盘物理序列号、主板序列号功能及多种高强度对称、非对称算法。获取的硬盘序列号不随硬盘分区及格式化改变，支持IDE、SCSI接口硬盘，获取主板序列号的功能支持各类BIOS芯片，这两个功能可方便的用来实现一机一码的注册方式。算法库集成的算法有：BlowFish,MD5,Secret16,AES、SHA、CRC32、RSA、DES、字符串加/解密、文件加/解密等多种功能强大的算法，可以满足软件开发的各类需求，加密算法库附有详细的函数说明及各类软件调用示例。

VC/MFC

16,551

社区成员

421,605

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

VC/MFC社区版块或许是CSDN最“古老”的版块了，记忆之中，与CSDN的年龄几乎差不多。随着时间的推移，MFC技术渐渐的偏离了开发主流，若干年之后的今天，当我们面对着微软的这个经典之笔，内心充满着敬意，那些曾经的记忆，可以说代表着二十年前曾经的辉煌……
向经典致敬，或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天，我们期待着MFC技术能够恢复其曾经的辉煌，或许这个期待会永远成为一种“梦想”，或许一切皆有可能……
我们希望这个版块可以很好的适配Web时代，期待更好的互联网技术能够使得MFC技术框架得以重现活力，……

试试用AI创作助手写篇文章吧

+ 用AI写文章