PChar转String问题

2013-06-08 01:06:08 701 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Delphi经典8大天坑｜第三篇：string转PChar后，原字符串释放导致野指针（乱码/崩溃）当我们用PChar(Str)将string转为PChar时，得到的指针是“临时指向string的内存地址”，而非复制一份字符串内容；将string类型转换为PChar（字符指针）后，偶尔出现乱码、偶尔触发崩溃，且问题不稳定——有时候正常，有时候异常，排查时难以复现，极易误以为是“内存溢出”或“编码问题”。核心原则：确保PChar指向的string在PChar使用期间“不被释放、不被修改”，最稳妥的方式是用一个局部string变量保存原字符串，再将该变量转为PChar。// 将S复制到P指向的内存。阅读详情

Char 用StringOfChar 分配空间后，从别的地方接收到一串HEX数据
我用String := SetPas(Char)后，String中有数据，但是没有被引号引起来，再把它add到TMemo1中，TMemo1中什么都没有，怎么回事

...全文

【Window内核编程】——UNICODE_STRING,ANSI_STRING和PCHAR 【我的】Window驱动开发——UNICODE_STRING,ANSI_STRING和PCHAR 作者：zcr214 时间：2016/4/15 Windows驱动开发最常接触的就是指针了，各种类型的地址很容易搞晕，绝大多数的API需要的参数都是UNICODE_STRING的指针类型的，当我们自己要使用它的时候，多少会有些麻烦，需要借助ANSI_STRING和PCHAR才能转换到我们更熟悉阅读详情

尘小陌

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

尘小陌 2013-06-08

打赏
举报

引用 14 楼 xhz8000 的回复:

唉！我以为给你那个函数你会修改，原来不会啊！再帮你写一个PChar版本吧 function TReceiveDataBase.ToHexString(HexBuf: PChar; BufSize: Integer): String; var iByte: Byte; iStart: Integer; begin iStart := 0; Result := ''; while iStart < BufSize do begin iByte := Byte(HexBuf[iStart]); if Result <> '' then Result := Result + IntToHex(iByte, 2) else Result := IntToHex(iByte, 2); iStart := iStart + 1; end; end;

嗯，我已经有好多年没用过delphi了，好多东西都忘的差不多了

xhz8000 2013-06-08

打赏
举报

唉！我以为给你那个函数你会修改，原来不会啊！再帮你写一个PChar版本吧 function TReceiveDataBase.ToHexString(HexBuf: PChar; BufSize: Integer): String; var iByte: Byte; iStart: Integer; begin iStart := 0; Result := ''; while iStart < BufSize do begin iByte := Byte(HexBuf[iStart]); if Result <> '' then Result := Result + IntToHex(iByte, 2) else Result := IntToHex(iByte, 2); iStart := iStart + 1; end; end;

尘小陌 2013-06-08

打赏
举报

引用 12 楼 xhz8000 的回复:

我记得把十六进制字符串转换为字节也给你写；把字节转换为十六进制字符也给你写了！有了这两个函数你就可以互转了。

嗯，你给过我string转byte的，然后我再在收到的HEX是存在pchar中的，这怎么转？

xhz8000 2013-06-08

打赏
举报

我记得把十六进制字符串转换为字节也给你写；把字节转换为十六进制字符也给你写了！有了这两个函数你就可以互转了。

xhz8000 2013-06-08

打赏
举报

我不知道怎么说了！

尘小陌 2013-06-08

打赏
举报

引用 9 楼 xhz8000 的回复:

你不把十六进制数转换为十六进制字符串吗！上一帖不是告诉你转换了吗？？

你上一帖，那个函数返回的就是string，而且返回回来的string和hex完全不一样了

xhz8000 2013-06-08

打赏
举报

你不把十六进制数转换为十六进制字符串吗！上一帖不是告诉你转换了吗？？

尘小陌 2013-06-08

打赏
举报

引用 7 楼 xhz8000 的回复:

对了你的Buf:String; 要先！ setlength(Buf, rlen);

数据是进到buf里了，不过原来的HEX数据，全都变成乱码了，怎么办？

xhz8000 2013-06-08

打赏
举报

对了你的Buf:String; 要先！ setlength(Buf, rlen);

尘小陌 2013-06-08

打赏
举报

引用 5 楼 xhz8000 的回复:

move(Buf^, PChar(PBuf)^, rlen); 你写反了！ move(PBuf^, PChar(Buf)^, rlen);

哦哦，没用过这个函数，都不知道怎么用啊

xhz8000 2013-06-08

打赏
举报

move(Buf^, PChar(PBuf)^, rlen); 你写反了！ move(PBuf^, PChar(Buf)^, rlen);

尘小陌 2013-06-08

打赏
举报

引用 3 楼 xhz8000 的回复:

你贴一些必要的代码出来look look!

var id:thandle; rLen:LongInt; PBuf:PChar; Buf:String; begin Result := 0; if endrecvthread = true then exit; rlen := sio_iqueue(port); PBuf := PChar(StringOfChar(char(0),rlen+1)); rlen := sio_read(Port, PBuf, rlen); //从串口读入HEX数据 sio_flush(port,0); If rlen = 0 Then begin CreateThread(nil,0,@recvdata,nil,0,id); exit; end; move(Buf^, PChar(PBuf)^, rlen); form1.memo1.Text := form1.memo1.Text + buf; form1.memo1.SelStart := Length(form1.memo1.Text); form1.memo1.SelLength := 0; CreateThread(nil,0,@recvdata,nil,0,id); exit; end;

xhz8000 2013-06-08

打赏
举报

你贴一些必要的代码出来look look!

尘小陌 2013-06-08

打赏
举报

引用 1 楼 xhz8000 的回复:

move(Buf^, PChar(Str)^, ilen); 使用这个就有啦！

= =报错 pointer type required

xhz8000 2013-06-08

打赏
举报

move(Buf^, PChar(Str)^, ilen); 使用这个就有啦！

PChar转String问题

相关推荐