=====PChar内存释放问题，大侠帮忙=====

[kampan]

症状：在IDE环境下直接运行或单步执行数据正确，直接运行可执行文件数据不正确
正确数据：68 03 00 00 00 00 00 68 04 09 44 F3 33 33 33 33 55 55 55 E2 16
错误数据：68 03 00 00 00 00 00 68 04 09 44 F3 33 33 33 33 93 93 93 9C 16
初步诊断内存分配、释放问题，在集成环境下有内存保护机制所以没有报错，但不能确认到底问题出在哪处！！
另外，一直玩不转PChar这个类型，如果哪位对此理解深刻望能给指点一二，尤其在作为参数在DLL与调用程序之间传递返回数据的使用，包括，在哪分配，在哪释放。请高人指点。
目前的权限只能给200分，以后再补吧。

程序代码如下（虽多莫怕，按照我写的次序很快就明白了）：
用到的一个记录类型
type
ReturnChar = record
iLen : integer;
sBack: string;
end;
----------------------
发送数据
procedure TfrmBaseSet.SetData(node: TdxTreeListNode);
var
i: integer;
sSetData: string;
reBack: ReturnChar;
sDisp: string;
begin
if node <> nil then
begin
i := strToInt('$'+node.Values[4]);
sSetData := node.Values[2] + '00000000';

reback := SetParam(pchar(sAddr), i, PChar(sSetData)); //调用函数往下看
for i := 1 to length(reback.sBack) do
sDisp := sDisp + format('%.2x',[ord(reback.sBack[i])]) + ' '; 截获的显示数据
ShowMessage(sDisp);
end;
--------------------------------
function SetParam(sAddr:pchar; iParamNo:integer; sData:pchar) : ReturnChar ;
var
iBack:integer;
th:Thandle;
theSetParam:TSetParam; 声明原型在下边
tp:TFarProc;
reback:ReturnChar;
i : integer;
sBack : pchar;
begin
iBack := 0;
th := LoadLibrary('.\645_1997.dll');
if (th > 0) then
begin
try
tp := GetProcAddress(th,'SetParam');
if (tp <> nil) then
begin
theSetParam := TSetParam(tp);
//getMem(sBack,sizeof(pchar));
iBack := theSetParam(sAddr,iParamNo, sData, length(sData) div 2, @sBack); //动态库函数
reback.iLen := iBack;
for i := 0 to iBack -1 do
reBack.sBack := reBack.sBack + sBack[i];
//FreeMem(sBack); //sBack是在DLL是分配的内存，我在此释放报错！
end //if (tp <> nil) then
else
begin
iback := 0;
reBack.iLen := iBack;
reBack.sBack := '';
end;
finally
FreeLibrary(th);
end;//try
end;//if (th > 0) then
result := reBack;
end;
----------------------------------------
TSetParam = function(sAddr:pchar;iParamNo:integer;sData:pchar;iDataLen:integer;sBack:pchar) : integer;cdecl;



//-----------------------------VC写的动态库函数--------------------------------------------
//参数：sAddr：表地址；iParamNo：功能码；sData：设定值；iDataLen：数据长度；sBack：返回报文
//
int CMy645_1997App::SetParam(char *sAddr,int iParamNo,char *sData,int iDataLen,char *&sBack)
{
int iLen;//报文长度
// BYTE check;//校验码
char* sFun;


iLen = 15 + iDataLen;
sBack = new char[iLen];
sBack[0] = 0x68;
//写入地址码
char *s = GetFormatAddr(sAddr);
for (int i = 0;i<6;i++)
{
sBack[i+1] = s[i];
}
sBack[7] = 0x68;
sBack[8] = 0x04;//04写数据
sBack[9] = 0x02+iDataLen;
sBack[10] = (iParamNo & 0xFF) + 0x33;
sBack[11] = ((iParamNo >> 8) & 0xFF) + 0x33;
sFun = new char[3];
for (int i = 0;i<iDataLen;i++)
{
sFun[0] = sData[iDataLen*2-i*2-2];
sFun[1] = sData[iDataLen*2-i*2-1];

sBack[12 + i] = hex_2bcd(atoi(sFun)) + 0x33;
}
sBack[12 + iDataLen] = GetCheck(sBack,12+iDataLen);
sBack[13 + iDataLen] = 0x16;

delete [] s;
delete [] sFun;

return iLen-1;
}

[小呆之家]

动态库里的内存分配,你最好是在动态库内释放.

如果想做回调参数用的话,不如直接传一个缓冲区指针来得爽快了.

比如:
Type CallBackBuff=array [0..1024] of char;//最后一位为#0;

function SetParam(sAddr:pchar;iParamNo:integer;sData:pchar;iDataLen:integer;sBack:pchar) : integer;
stdcall;external 'XX.dll';

用的时候
var
refBuff:Pchar;
buff:CallBackBuff;

FillChar(buff[0],1025,#0);
refBuff:=@buff[0];
SetParam(...);

[gyk120]

[Quote=引用 9 楼 kampan 的回复:]
引用 8 楼 gyk120 的回复:
……
看看我的结贴率，你就会知道什么是真正的无语了……
另外PChar是一个指针，你需要自己分配和释放内存……
但是……在Delphi内的PChar是不用释放内存的…………


如果在VC的DLL中申请内存，不做释放，然后作为返回参数，传给Delphi的调用程序，那么之前申请的内存谁管？怎么处理？
[/Quote]
DLL的内存要DLL自己去处理了，Delphi不去插手，这个DLL是VC写的，就要VC来释放……

[ERR0RC0DE]

不如直接将VC那函数写全，译过来得了，容易找问题些

不然光这些，好像没法调试

[ERR0RC0DE]

那VC函数，就根本没考虑到给不同程序调用的问题，直接就写上：
sBack = new char[iLen];

这个分配，如果是用VC写的程序调用，估计就是：
SetParam(..., &sBack);
...
delete[] sBack;
就Free

但在别在开发工具就傻眼了，Delphi的Free，跟VC不同级别，干瞪眼。

只有用VC开发来释放那点内存，不然就一直申请，如果该函数调用频繁，估计一段时间后就没内存可用。

解决方法就是自己用D写过那函数，不然用VC开发。

[ERR0RC0DE]

嗯，可以试试：
VirtualFree(nil, sBack)来释放那内存，不知行不行。试下。

数据不正确，看不出来。

[ly_liuyang]

都是接口的问题~说得不清楚
偶也不搞C++的东东~自己研究咯

[手指风]

我觉得dll参数涉及指针(包括PChar)的,对于dll内不做修改的一般用const修饰,这样可以比较直观的区分。
对于内存我想应该是用调用者来负责分配和释放的。否则感觉容易出现地址错或内存泄漏.

[JeffChung]

vc写的搞不清楚,帮顶了

[kampan]

[Quote=引用 27 楼 ERR0RC0DE 的回复:]
将VC函数
hex_2bcd
GetCheck
代码发出来看看
还有SetParam代入的参数值写一下
[/Quote]

BYTE hex_2bcd(BYTE s)
{
BYTE temp;
BYTE t;
temp = s / 10;
if(!temp)
t = s ;
else
t = temp * 6 + s;
return t;
}

BYTE GetCheck(char *sFrame,int iLen)
{
BYTE iBack;

iBack = 0;
for (int i=0;i<iLen;i++)
{
iBack += sFrame[i];
}
return (iBack & 0xFF);
}

[ERR0RC0DE]

sFun = new char[3];
for (int i = 0;i <iDataLen;i++)
{
min: 0, 1
max:12, 13
sFun[0] = sData[iDataLen*2-i*2-2];
sFun[1] = sData[iDataLen*2-i*2-1];

sBack[12 + i] = hex_2bcd(atoi(sFun)) + 0x33;
}

问题可能是上面那几行代码。
>>sFun = new char[3];
这行代码中，new出来的数据一般初始为0，但又有可能不为0,
这样在：
>>sBack[12 + i] = hex_2bcd(atoi(sFun)) + 0x33;
atoi中，可能在hex_2bcd传值中，N次中可能有几率不相同。

改一下那代码再试。
char sFun[3] = {0};
或new完后，memset一下。

[kampan]

谢谢，我试试看。

[kampan]

不过在sBack[12 + i] = hex_2bcd(atoi(sFun)) + 0x33; 之前不已经赋值了吗？
sFun[0] = sData[iDataLen*2-i*2-2];
sFun[1] = sData[iDataLen*2-i*2-1];

[ERR0RC0DE]

你new了3个char，只赋值了两个char，第三个是变数。

[kampan]

[Quote=引用 32 楼 ERR0RC0DE 的回复:]
你new了3个char，只赋值了两个char，第三个是变数。
[/Quote]
我试试看

[kampan]

几天没来，大家留言很踊跃，谢谢大家，程序接着调试中，参考大伙的意见我再弄弄。

[kampan]

怎么还不成啊？？？我去掉了VC动态库的动态分配的代码，然后在Delphi里调用时分配和释放。大伙帮看看还哪里不对。

VC库去掉下面这句：
//sBack = new char[iLen]; 去掉此句

Delphi调用：
GetMem(sBack,((length(sData) div 2) + 15));
iBack := theSetParam(sAddr,iParamNo, sData, length(sData) div 2, @sBack);
reback.iLen := iBack;
for i := 0 to iBack -1 do
reBack.sBack := reBack.sBack + sBack[i];
FreeMem(sBack);

[ERR0RC0DE]

将VC函数
hex_2bcd
GetCheck
代码发出来看看
还有SetParam代入的参数值写一下

[kampan]

最终确定主要原因 Vs2005编译的DLL选择的是（在静态库中使用 MFC），改为（在共享 DLL 中使用 MFC）编译出的文件在
没有安装2005的机器上所得数据正常。
之前症状：本人机器装有VS2008，调用的DLL在装有VS2005的A君编译，调用所得数据也对，拿到本人机器，第一次正确，以后再调用所得数据都不正确。
问题解决，至于内在原因没搞清楚，明早结贴，留点时间有兴趣的朋友可以继续讨论讨论。

[wanbangxinji]

dec(sBack,iBack);//将指针前移到起始位置,再释放.

[kampan]

这结贴率怎么越结越低啊！！！！！！！！！！