Byte 数组

Question

var sbuf :array[1..290] of Byte;
    count:integer;
begin
count:=Socket.ReceiveBuf(sbuf,SizeOf(sbuf));
end;测试出来sbuf为（应该是十进制数组？）(2, 0, 1, 1, 26, 84, 6, 80, 68, 1, 71, 1, 0, 0, 43, 162, 0, 201, 14, 83, 8, 0, 0, 51, 18, 7, 27, 1, 11, 0, 0, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 82, 0, 0, 10, 201, 11, 1, 255, 255, 0, 0, 10, 201, 10, 250, 0, 1, 1, 3, 129, 219, 0, 0, 0, 0, 1, 24, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 103, 16, 0, 16, 6, 2, 86, 0, 82, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 240, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 100, 255, 156, 0, 0, 1, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 50, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 115, 1, 132, 0, 0, 0, 0, 0, 0, 134, 32, 0, 15, 0, 20, 0, 0, 0, 20, 0, 0, 0, 0, 0, 250, 0, 250, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 12, 0, 0, 143, 251, 5, 255, 0, 0, 255, 128, 5, 16, 0, 0, 7, 12, 5, 29, 0, 0, 255, 254, 5, 0, 0, 0, 139, 144, 60, 15, 160, 0, 0, 0, 0, 35, 47, 35, 35, 35, 160, 0, 212, 255, 160, 0, 160, 0, 160, 0, 0, 60, 0, 0, 0, 0, 0, 0, 35, 35, 35, 35, 35, 160, 0, 159, 255, 160, 139, 150, 3)怎么把这些读取出来。

Answer 1

四个四个字节读取，到一个int型中从sbuf的开始读取整数到i中，后面的类推
Move(sbuf[0],i,SizeOf(Integer));

Answer 2

这是ctrl+F7读取出来的。
我要转换成string

Answer 3

那你就直接遍历一遍Buffer用Char转化一下

Answer 4

首先根据缓冲大小，设置一个整数型动态数组的大小，setlength,然后在Move给动态数组的首地址Array[0]就把整数全都出来了

Answer 5

不建议转换为string
如果你的是一连串的数据的话，使用string转为后，遇到byte数组值是 0 的地方，字符串就结束了。
如果是一个结构体的话，应该耽搁元素处理，不会出现数据丢失问题。

Answer 6

string的话，用var sbuf :array[1..290] of Char;比较好
可以直接强制转换string(sbuf)

Answer 7

var sbuf :array[1..290] of Byte;
    count:integer;
    tmps:string; 
begin
count:=Socket.ReceiveBuf(sbuf,SizeOf(sbuf));
SetLength(tmps,count);
MoveMemory(@tmps[1],@array[0],count);
end;

Answer 8

var sbuf :array[1..290] of Byte;
    i,count:integer;
    tmps:string; 
begin
  count:=Socket.ReceiveBuf(sbuf,SizeOf(sbuf));
  for i := 0 to count -1
  begin
    tmps := tmps  + ord(sbuf[i]) + ',';
  end;
end;

Answer 9

var sbuf :array[1..290] of Byte;
  i,count:integer;
  tmps:string;  
begin
  count:=Socket.ReceiveBuf(sbuf,SizeOf(sbuf));
  for i := 0 to count -1 do
  begin
    tmps := tmps + ord(sbuf[i]) + ',';
  end;
end;

Answer 10

使用API函数：CopyMemory读取，一次性全部完成。