■■■如何突破string[255]的限制？■■■

[Aricc]

我在弄一个聊天类的程序，在通过Socket发送时用到下面这个记录：
TCommBlock = record
CmdCode:Integer;
Msg: string[255];
end;
通常255是不够用的。那么怎么修改才能传送更多的字符呢？
用array of byte可以吗？如果这样那么怎样把string存到Byte数组里，又怎样把Byte数组转换成String呢？

[阿发伯]

TCommBlock = record
CmdCode:Integer;
Msg: string
end;

cb: TCommBlock;
SetLength(cb.Msg, 1024); // 1024字节

[Aricc]

楼上的不行啊

[moklee]

用 ansistring 或widestring

[Aricc]

Widestring[1024]
不能这么写吧

[日立奔腾浪潮微软松下联想]

是你自己定义的就改一改，否则多发几次就是了。
在OP中string和array of char是兼容的。
你可以定义：
TCommBlock = record
CmdCode:Integer;
Msg: array[0..1023] of char;
end;

不过最好定义成变长的，否则很浪费啊，传送那么多无效数据。

[Aricc]

char类型的不能处理中文吧

[zhxfzhxf1]

采用编译选项.
没记错的话，应该是{$H+}

[Aricc]

这个开关不管用的。
To:DelphiGuy()
怎么把一String变量存到Char类型的动态数组里啊？怎么处理中文啊？

[日立奔腾浪潮微软松下联想]

不是都说了array of char 和string是兼容的吗？
直接赋值就可以了。
var
msg: array[0..1023] of char;
s: string;
// ...
msg := 'abcde'; // 直接赋常量串
s := msg;
strpcopy(a, s); // 从string复制

[alvachien]

Delphi我不熟悉，C里面是这样做的
char c[1];
memloc(c, sizeof(char) * 512);

访问的时候一样使用c[500]来访问.
唯一需要注意的是要delete 掉 :)

[小呆之家]

TCommBlock = record
CmdCode:Integer;
Msg: array[0..1023] of byte;//---这是个固定缓冲区,也可以用动态的.
end;

要把string类型变成ARRAY OF BYTE,可以这样:
(1):
var
index:=integer;
sourceStr:string;

for index:=1 to lenght(sourceStr) do
begin
if index>1024 then break;
msg[index-1]:=byte(sourceStr[index]);//或者用:ord(sourceStr[index])
end;

(2)://---更简单的办法是:
move(byte(sourceStr[1]),msg,1024);

用(2)这样的方法,同样可以实现:string--->array of byte;

[HsWong]

怎么把一String变量存到Char类型的动态数组里啊？

用StrPCopy(Buffer,string); 如果不行的话,用循环一个个读入
for i:=0 to Length(string)-1 do
begin
Buffer[i]:=string[i+1];
end;

怎么处理中文啊？
这个有什么分别,英文的一个字节,中文字就二个字节,即2 char

[comanche]

你不能无限的增大包的长度, 特别是不定长的包, 这样每次都要收发那个 record 大小的包

TCommHdr = record
CmdCode:Integer;
LengthOfMessage: Integer; // 下面将要收到的信息长度
...
end;

先用 socket 收这个头, 看到长度后再收后面的 Message, 这样大小就没问题了, 收发也是不定长的