为什么IdTCPClient and IdTCPServer 不能传TStringList;

Question

程序Ａ：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer;type
  TData = record
    Command,
    HD: string[200];
    FileName: TStringList;
  end;type
  TForm1 = class(TForm)
    IdTCPServer1: TIdTCPServer;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    procedure IdTCPServer1Connect(AThread: TIdPeerThread);
    procedure IdTCPServer1Execute(AThread: TIdPeerThread);
  private
    function GetHD: string;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}function TForm1.GetHD: string;
var
  D: DWORD;
  I: Integer;
  S: string;
  Buffer: array[0..255] of char;
begin
  S := '';
  D := GetLogicalDriveStrings(225, Buffer);
  for I := 0 to (D - 1) do
  begin
    if Buffer[I] = #0 then
    begin
      S := Copy(S, 0, Length(S) - 1);
      Result := Result + ' ' + S;
      S := '';
    end else
      S := S + Buffer[I];
  end;
end;procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
  Memo1.Lines.Add('Connect..OK');
end;procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  Data: TData;
begin
  Data.FileName.Create;
  Data.FileName.Add('a');
  Data.FileName.Add('b');  if (not AThread.Terminated) and (AThread.Connection.Connected) then
  begin
    AThread.Connection.ReadBuffer(Data, SizeOf(Data));
    Memo1.Lines.Add('Command : ' + Data.Command);    if Data.Command = 'HD' then
    begin
      Data.HD := GetHD;
      AThread.Connection.WriteBuffer(Data, SizeOf(Data), True);
      Exit;
    end;    if Data.Command = 'GetFileList' then
    begin      Exit;
    end;
  end;
end;end.程序Ｂ：unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient;type
  TData = record
    Command,
    HD: string[200];
    FileName: TStringList;
  end;type
  TForm2 = class(TForm)
    IdTCPClient1: TIdTCPClient;
    GroupBox1: TGroupBox;
    ListView1: TListView;
    Button1: TButton;
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;type
  TClientHandleThread = class(TThread)
  private
    Data: TData;
  protected
    procedure Execute; override;
  end;var
  Form2: TForm2;
  ClientHandleThread: TClientHandleThread;implementation{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);
begin
  IdTCPClient1.Connect(10000);  ClientHandleThread := TClientHandleThread.Create(True);
  ClientHandleThread.FreeOnTerminate := True;
  ClientHandleThread.Resume;end;procedure TForm2.Button2Click(Sender: TObject);
var
  Data:TData;
begin
  Data.Command := ComboBox1.Text;
  IdTCPClient1.WriteBuffer(Data, SizeOf(Data), True);
end;{ TClientHandleThread }procedure TClientHandleThread.Execute;
begin
  Data.FileName.Create;  while not Terminated do
  begin
    if not Form2.IdTCPClient1.Connected then
      Terminate
    else try
      Form2.IdTCPClient1.ReadBuffer(Data, SizeOf(Data));      if Data.Command = 'HD' then
      begin
        Form2.ListView1.Items.Add.Caption := Data.HD;
        Exit;
      end;      if Data.Command = 'GetFileList' then
      begin
        Form2.ListView1.Items.Add.Caption := Data.FileName.Names[1];
        Exit;
      end;    except    end;
  end;
end;end.
如果把里面的TStringList去掉的话，就没有问题了！

Answer 1

不用直接传tstringlist，需要在传的时候把tstringlist放到stream中，传送后再恢复就可以了。不然tcpclient不知道你这个包有多大。

Answer 2

請教..應該怎麼把他寫入stream里面去...

Answer 3

TStringList 变量实际上应该看成一个指针一样，也就是说里面的数据是传不过去的，传的是地址值，没有对放收到有什么用就象你传个integer指针过去效果是一样的，失败！
你的字符串如果不用短字符串串过去也是有问题的，道理是一样的

Answer 4

直接用 
 TStringList.Text 这个属性，
 就好像 s: string 这样传，比较方便

Answer 5

除了Text方法,还可以用TStringStream来传的

Answer 6

TStringStream.Create('你要发送的东西');

Answer 7

record这样的结构体，里面的成员应该是定长的，而tstringlist是定长的吗？所以不能这样传