Indy10发送与接收问题(记录)

Question

我使用TIDTcpClient及TIdTcpServer,
使用ReadLn及WriteLn正常.
但是我想发送记录类型,如何做呢?我的实现如下,但没有成功:
------------------------------------------------------------
type
  TUser=record
    UserName,UserID:String;
    IP:String;
    Port:Integer;
    Msg:String;
    Arr:Array[1..9] of shortString;
    flag:Boolean;
    Cmd:String;
  end;
------------------------------------------------------------
实现如下:
------------------------------------------------------------
1.使用TidBytes类型:
客户:
 procedure TForm1.Button3Click(Sender: TObject);
var
 User:TUser;
 sby:TidBytes;
begin
 with user do
 begin
   UserName:='Wyatt';
   UserID:='7895421';
   Ip:='192.168.1.188';
   Port:=9999;
   Msg:=Edit3.Text;
   cmd:='Quit';
 end;
  sBy:=RawTOBytes(user,sizeof(user));
  ic1.IOHandler.Write(sBy);
end;
服务器:
procedure TFrmServer.is1Execute(AContext: TIdContext);
var
user:TUser;
buf:TidBytes;
begin
 Acontext.Connection.IOHandler.ReadBytes(buf,sizeof(user));
 BytesToRaw(buf,user,sizeof(user));
 with user,memo1.Lines  do
 begin
  Add(userName);
  add(userID);
  add(ip);
  add(inttostr(port));
 end;
end;
----------------------------------------------------------------
2.使用TStream方法:
 客户:
  procedure TForm1.Button3Click(Sender: TObject);
var
 User:TUser;
 Mon:TMemoryStream;
begin
 with user do
 begin
   UserName:='Wyatt';
   UserID:='85171659';
   Ip:='192.168.1.188';
   Port:=9999;
   Msg:=Edit3.Text;
   cmd:='Quit';
 end;
 Mon:=TMemoryStream.Create;
 try
  Mon.WriteBuffer(user,sizeof(user));
  ic1.IOHandler.Write(Mon);
 finally
  Mon.Free;
 end;
end;
服务器:
 procedure TFrmServer.is1Execute(AContext: TIdContext);
var
user:TUser;
Mon:TMemoryStream;
begin
Mon:=TMemoryStream.Create;
try
  AContext.Connection.IOHandler.ReadStream(Mon);
  Mon.ReadBuffer(user,Sizeof(user));
  with user,memo1.Lines  do
 begin
  Add(userName);
  add(userID);
  add(ip);
  add(inttostr(port));
 end;
finally
  Mon.Free;
end;
end;
以上都不能实现,请高手帮忙解决一下.
以上是在delphi2006注意一定要Indy10,因为和Indy9不同
其中要注意Use IdContext,IdGlobal这两个单元

Answer 1

一个想法 
先接收成byte array 然后使用 copyMemory转换

Answer 2

type
  TUser=record
    UserName,UserID:String;
    IP:String;
    Port:Integer;
    Msg:String;
    Arr:Array[1..9] of shortString;
    flag:Boolean;
    Cmd:String;
  end;
这样定义是有问题的,里面的String会导致包大小计算不对

Answer 3

在Record内不要使用String类型，就算要用，也要用String[254]这种或Array of Char

Answer 4

呵，谢谢
我改动一个，
type
  TUser=record
    UserName,UserID:String[20];
    IP:String[16];
    Port:Integer;
    Msg:String[100];
    Arr:Array[1..9] of String[20];
    flag:Boolean;
    Cmd:String[20];
  end;
－－－－－－－－－－－－－－－－－－－－－－－－
使用RawtoBytes及BytesToRaw可以。
为何使用Stream收不到呢？
另，如果要传送像文件类似的东西，如何定义呢？

Answer 5

自己定义应用协议,数据格式,传输规范
例如FTP,HTTP等都是TCP的应用协议

Answer 6

再求，为何使用Stream收不到呢？