procedure Tfrmmain.TcpServer1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
strData:string;
len:integer;
begin
try
strdata:='';
len:=Socket.ReceiveLength;
FillChar(ReceiveBuffer,sizeof(ReceiveBuffer),0);
socket.ReceiveBuf(ReceiveBuffer,len);
setlength(strdata,len);
move(ReceiveBuffer[0],strdata[1],len);
listbox3.Items.Add(strdata);//显示乱码
except
end;
end;
Socket: TCustomWinSocket);
var
strData:string;
len:integer;
begin
try
strdata:='';
len:=Socket.ReceiveLength;
FillChar(ReceiveBuffer,sizeof(ReceiveBuffer),0);
socket.ReceiveBuf(ReceiveBuffer,len);
setlength(strdata,len);
move(ReceiveBuffer[0],strdata[1],len);
listbox3.Items.Add(strdata);//显示乱码
except
end;
end;
解决方案 »
- table 修改了,怎么 form 的字段没有跟着变 ?
- 想在家访问公司内部局域网内sql数据库
- 谁能说说Tlist,进来的都有分
- 请教:我在用Delphi写个应用程序作业,如何将多张excel表,整合到一起进行查询统计,多张表是动态
- 各位大侠,请帮帮忙吧....一个关于数据库中的一个表被锁的小问题...(解决了问题就送分了,反正分对我来说没什么用)
- 快来啊,哥哥!
- BF对应的单词是GF,请问和Mr.Right 相对应的单词是什么?
- 自爆虚拟摄像头效果软件,转让
- 请问高手,在代码编辑器里,怎样实现一大段代码的右移缩进?
- adotquery中如何实现添加?
- FastReport 横向生成数据
- Format问题
2.是否乱码取决于你所发送的东西,如果发送的是十六进制数据,直接按字符串显示是不正确的
然后每个数据用char(ReceiveBuffer[i])转化下,再连成字符串
我想问题出在你接收的ReceiveBuffer部份