pchar 参数传递的问题！-CSDN论坛

⋅pb9悲催了，不支持sqlserver xml字段类型！何解？ ⋅pchar 参数传递的问题！ ⋅发点实际的---地震后心理救援完全手册 更多帖子 关注空间博客 hygougou 本版专家分：25 红花 2005年3月 PowerBuilder大版内专家分月排行榜第一 黄花 2006年1月 PowerBuilder大版内专家分月排行榜第二 2005年12月 PowerBuilder大版内专家分月排行榜第二 2005年11月 PowerBuilder大版内专家分月排行榜第二 2005年1月 PowerBuilder大版内专家分月排行榜第二 蓝花 2006年5月 PowerBuilder大版内专家分月排行榜第三 2006年4月 PowerBuilder大版内专家分月排行榜第三 2005年4月 PowerBuilder大版内专家分月排行榜第三 2004年12月 PowerBuilder大版内专家分月排行榜第三 结帖率 100%: 函数声明：---输出到dll

Function getruimeiserial(unit:pchar;ins:pchar;spass:pchar;out s:pchar):pchar;stdcall;

函数：

Function getruimeiserial(unit:pchar;ins:pchar;spass:pchar;out s:pchar):pchar;stdcall;
var tmp:char;
    sp:pchar;
    i,lens,values:integer;
    tmpstring:string;
    vbuffer:array[0..255] of char;
    rc:pchar;

begin

  if spass <> ‘1209’then
     result := '0'
  else
  try
   strecopy(strecopy(vbuffer,unit),ins);
   sp :=  vbuffer;
   values := 0;
   lens := length(sp);
   for i := 1 to lens do
   begin
      tmp := sp[i];
      values := values + ord(tmp);
   end;

   if values > 999999  then
      tmpstring := copy(inttostr(values),1,6)
   else
      tmpstring := inttostr(trunc(values * power(10,6 - length(inttostr(values)))));
      rc := Pchar(tmpstring + inttostr(trunc(256 - values mod 256)));
      s:= AllocMem(Length(rc)+1);
      strPcopy(skey,rc);
      s:= rc;
      result := Pchar(tmpstring + inttostr(trunc(256 - values mod 256)));
  except
   result := '0'
  end

end;

问题：
引入参数s现在无法正常输出---乱码！

前提：
引入参数类型不能更改，因为要供其他工具语言调用！！！

求解！！，谢谢

0 2010-11-20 18:45:10

回复数 6 只看楼主引用举报楼主

⋅纯属冒泡贴散分 ⋅谁给个包含GDI+库的XE2(x64)下载地址 ⋅版里有空的人, 去整理了一下LY主页的资料吧 更多帖子 关注空间博客 dinoalex 本版专家分：30779 黄花 2011年3月 Delphi大版内专家分月排行榜第二 2009年7月 Delphi大版内专家分月排行榜第二 2009年6月 Delphi大版内专家分月排行榜第二 蓝花 2011年4月 Delphi大版内专家分月排行榜第三: 先在DLL里面,把S写入TXT文本看看有没有乱码.

再看指针地址

0 2010-11-20 23:33:20

只看TA 引用举报 #2 得分 20

池龙 本版专家分：1985: 给S分配内存的工作应当放在调用函数的程序里进行而不是在DLL里进行

0 2010-11-21 00:23:17

只看TA 引用举报 #3 得分 20

⋅Eloquent orm如何反射一个数据表到缓存文件 ⋅谁能给解释下hibernate这条简单的hql语句 ⋅谁来给个服务器端控件css样式的对应关系 更多帖子 关注空间博客 不若人生一场醉 本版专家分：6942: s:= AllocMem(Length(rc)+1);
strPcopy(skey,rc);
s:= rc;

这里那个skey是什么，好像没有看到声明过啊。
rc是个局部变量，函数返回时被清空，即rc变成野指针，而s指向rc所以可能是任何值。
加一句strPCopy(s,rc);，如果你那句strPcopy(skey,rc);是笔误的话，那就注意字符编码的问题，你的dll和程序是不是使用相同的字符编码，即pchar在dll和程序里是不是都是指向ansichar。

0 2010-11-21 09:32:22

只看TA 引用举报 #4 得分 50

⋅pb9悲催了，不支持sqlserver xml字段类型！何解？ ⋅pchar 参数传递的问题！ ⋅发点实际的---地震后心理救援完全手册 更多帖子 关注空间博客 hygougou 本版专家分：25 红花 2005年3月 PowerBuilder大版内专家分月排行榜第一 黄花 2006年1月 PowerBuilder大版内专家分月排行榜第二 2005年12月 PowerBuilder大版内专家分月排行榜第二 2005年11月 PowerBuilder大版内专家分月排行榜第二 2005年1月 PowerBuilder大版内专家分月排行榜第二 蓝花 2006年5月 PowerBuilder大版内专家分月排行榜第三 2006年4月 PowerBuilder大版内专家分月排行榜第三 2005年4月 PowerBuilder大版内专家分月排行榜第三 2004年12月 PowerBuilder大版内专家分月排行榜第三: s即=skey，楼上说的正是，不好意思，笔误了，

这个参数传递蛮头疼的，搜了很多资料似乎也没什么好的解决办法

0 2010-11-22 02:29:15

只看TA 引用举报 #5 得分 0

⋅此用户还没有发表过任何帖子 关注空间博客 whinda 本版专家分：0: 这个是ruimei的dssdll.dll封装的函数哟，函数原型：integer GetRuiMeiSerial ref string@,ref string@,ref string@,ref string@
四个参数均是引用传递的，最后一个参数是空的用于接收传回的注册码，你的显示为乱码的话，是调用函数前没有为最后一个引入变量分配空间，为那个变量分配10-15个字节的空间就对了。

0 2012-11-21 22:59:15

只看TA 引用举报 #6 得分 0

pchar 参数传递的问题！ [问题点数：100分，结帖人hygougou]