一個關于StrPCopy問題。

[DelphiDu]

我碰到一個關于StrPCopy比較棘手的問題﹐煩請各位高手指點。
程序主要過程如下﹕
function ReadComm(hPort:THandle; ReadData:PChar; ReqReadNum : Cardinal):Boolean;stdcall;
var
Buf_data: Array[1..100]of char;
S: String;
buf:PChar;
str1:String;
j:integer;
begin
ReadFile(hPort, Buf_Data, Coms.cbInQue, Coms.cbInQue, @lpol);
S:=S+Copy(Buf_Data, 1, Coms.cbInQue);
StrPCopy(ReadData, S);
for j := 0 to StrLen(ReadData)-1 do
BEGIN
str1 := str1+' '+IntToHex(ord(ReadData[j]),2);
END;
end;
當我用了StrPCopy指令后﹐
正確的str1結果應該是:81 81 81 01 00 00 05,但現在執行的結果是:81 81 81 01,把00后面的結果切掉了﹐應該如何使用才能得到我想要的結果﹖

[DelphiDu]

To: lxpbuaa(桂枝香在故国晚秋)
如果不想去掉﹕strpcopy(raddata,s)這一行呢﹐有其它解決方法嗎﹖

[baguli]

StrPCopy遇到'\0'字符就会返回,将其改为CopyMemory就不会出错

[lxpbuaa]

因为ReadData中含有空字符，也就是对应于“81 81 81 01 00 00 05”中的“00”。因为PChar是以空字符作为结束标记的，所以ReadData最后是“81 81 81 01”，后面的被忽略了

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————。

[baguli]

补充一下:StrLen也是返回到最后一个非'\0'字符的串长度

[lxpbuaa]

直接对S操作就可以了：
//去掉：StrPCopy(ReadData, S);
for j := 1 to Length(S) do
BEGIN
str1 := str1+' '+IntToHex(ord(S[j]),2);
END;

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

[stephenng]

沒有辦法﹐改用string類型。