Delphi调用Tuxedo问题,用fget32函数取blob数据存放在pchar类型变量里,blob数据中零终止符后的字符串被自动截断。怎么取得完整的blob数据流。源程序如下:
var
retLen:ppinteger;
strTmp: pchar;
begin
try
getmem(strTmp, 1024*1024*10);
FillChar(strTmp^, 1024*32, 0);
Fget32(RecvBuff, MemData[n].ColValue, i,strTmp, retLen);//strTmp在这里就已经被截断
finally
freemem(strTmp);
strTmp := nil;
end;
Result := 1;
end;
var
retLen:ppinteger;
strTmp: pchar;
begin
try
getmem(strTmp, 1024*1024*10);
FillChar(strTmp^, 1024*32, 0);
Fget32(RecvBuff, MemData[n].ColValue, i,strTmp, retLen);//strTmp在这里就已经被截断
finally
freemem(strTmp);
strTmp := nil;
end;
Result := 1;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货