100分求解，dll中传值问题

Question

function IP_Exists(IP:Pchar;Ipstrtemp:Pchar):integer; stdcall;
var 
  tempstr:string;
  Ipstrtemp:pchar;
begintempstr := Nbt.Ipstr+'*'+ Nbt.Group + '*'+ Nbt.User + '*' + Nbt.Name + '*' + Nbt.Mac;  Getmem(Ipstrtemp,length(tempstr)+1);
  strPcopy(Ipstrtemp,tempstr);
  FreeMem(Ipstrtemp);end;以上是dll源代码，我用外部程序调用编译好得dll后，系统无错误提示，但仅仅把
第一个‘*’前的内容传出来了！我以为是‘*’号的事，结果换了间隔符也是同样结果，请问大侠这是怎么回事，我该怎么解决？
调用的源代码为：function IP_Exists(IP:pchar; Ipstr:Pchar):integer; stdcall;external 'ipsearch.dll';procedure TForm1.Button1Click(Sender: TObject);
var
  temp_ip: Pchar;
  IPstr : Pchar;
begin
  strPcopy(temp_ip,E_IP.text);
  IP_Exists(temp_ip,IPstr);   //此处调用外部函数；
  if length(string(IPstr))>0 then
  begin
    with list_info do
    begin
      Items.add(string(IPstr));
     end  end
end;

Answer 1

几个尝试：
1、去掉FreeMem(Ipstrtemp);
2、函数既然不用返回值，你就不要让它返回integer型了，更何况，你现有的代码根本没有返回任何东东。

Answer 2

还有在调试过程中tempstr包含的字符串是正确的就是以‘*’分开的字符串，等传出结果来就仅剩下第一个‘*’之前的字符串了。

Answer 3

一般都是在DLL函数外申请和释放内存，你试试。

Answer 4

  Getmem(Ipstrtemp,length(tempstr)+1);
  strPcopy(Ipstrtemp,tempstr);
  FreeMem(Ipstrtemp);刚刚分配内存就被销毁了啊

Answer 5

NBT 是什么？把你的代码贴全一点

Answer 6

给个最简单传出pchar类型变量的dll源代码，好不好？我现在真的不知道如何处理了！

Answer 7

看看这个：
http://expert.csdn.net/Expert/topic/2969/2969621.xml?temp=.8635065
或者这个：
http://expert.csdn.net/Expert/topic/2960/2960622.xml?temp=.6062433
里面应该比较详细了。

Answer 8

Eastunfail(浴血雏龙)==(恶鱼杀手) 说得有道理。