紧急求救：网络传送记录类型的问题
问题现象：在服务端接收到的结构是乱码
vc中的结构
struct File_CMD
{
int m_msg;//操作码
char filename[512];//文件名或其它的
char user[32];//用户名
char PworCrc[32];//密码或CRC值
int SESSION;//连接标志，用来保持连接的
int m_ok;
LARGE_INTEGER Filesize;//文件大小
LARGE_INTEGER m_begin;//开始字
LARGE_INTEGER m_end;//结束
};
根据vc中的结构改的
记录的定义
type
client_record=record
m_msg:integer;//操作码
filename:string[255];//文件名或其它的
user:string[32];//用户名
PworCrc:string[32];//密码或CRC值
SESSION:integer;//连接标志，用来保持连接的
m_ok:integer;
Filesize:integer;//文件大小
m_begin:integer;//开始字
m_end:integer;//结束
end;
下面是主要代码
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Active:=true;
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add(ClientSocket1.Socket.RemoteHost);
end;

procedure TForm1.Button2Click(Sender: TObject);


begin
GetMem(Buffer1,sizeof(xinxi));
ClientSocket1.Socket.SendBuf(Buffer1,sizeof(xinxi)) ;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
user,pass:string ;

begin
//user:=SetLenth('test'，32)；
xinxi[0].m_msg:=1;//操作码
xinxi[0].filename:='s.text';//文件名或其它的
xinxi[0].user:='test';//用户名
xinxi[0].PworCrc:='test';//密码或CRC值
xinxi[0].SESSION:=3;//连接标志，用来保持连接的
xinxi[0].m_ok:=0;
xinxi[0].Filesize:=100000;//文件大小
xinxi[0].m_begin:=0;//开始字
xinxi[0].m_end:=100000;//结


end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeMem(Buffer1,sizeof(xinxi));
end;

[解决办法]
File_CMD = record
m_msg:integer;
filename:array[0..511] of char;
user:array[0..31] of char;
PworCrc:array[0..31] of char;
SESSION:integer;
m_ok:integer;
Filesize:LARGE_INTEGER;
m_begin:LARGE_INTEGER;
m_end:LARGE_INTEGER;
end;