請教前輩
  小弟自定一個Record型態,如下

Type
  TMsg = packed record
    v1: String;
    v2: String;
  end;    1. 請教用IdTCPClient元件要如何傳送此型態的值
2. 在IdTCPServer接收後,如何轉成TMsg型態    感激不盡

引言: 把 TMsg 型態成 TStream 再做傳送？ --- 每個人都是一本書

感謝前輩,可是小弟試了之後出前Invalid typecast的
錯誤訊息,以下是程式碼,請教是那錯了呢    type
  TMyMsg = packed record
    v1: String;
    v2: String;
  end;
 
 
procedure TForm2.BitBtn1Click(Sender: TObject);
var
  MyMsg: TMyMsg;
begin
  MyMsg.v1 := 'ttt';
  MyMsg.v2 := Edit1.Text;
  IdTCPClient1.WriteStream(TStream(MyMsg));
end;    

// 將 MyMsg 載入 TMemoryStream
var 
  Stream1: TStream;
  sList: TStringList;
  MyMsg: TMsg;
begin
  Stream1 := TMemoryStream.Create;
  sList := TStringList.Create;
  try
    Stream1.WriteBuffer(MyMsg, SizeOf(TMsg));
    sList.Add(MyMsg.v1);
    sList.Add(MyMsg.v2);
    sList.SaveToStream(Stream1);
    // 接下來做傳送的動作
  finally
    sList.Free;
    Stream.Free;
  end;
end;
   
// 從 TMemoryStream 讀出 MyMsg
var
  ms1: TStream;
  sList: TStringList;
  MyMsg: TMsg;
begin
  Stream1 := TMemoryStream.Create;
  sList := TStringList.Create;
  try
    Stream1.ReadBuffer(MyMsg, SizeOf(TMsg));
    sList.LoadFromStream(Stream1);
    MyMsg.v1 := sList.Strings[0];
    MyMsg.v2 := sList.Strings[1];
  finally
    sList.Free;
    Stream.Free;
  end;
end;

引言: 大概像這樣吧:

// 將 MyMsg 載入 TMemoryStream
var 
  Stream1: TStream;
  sList: TStringList;
  MyMsg: TMsg;
begin
  Stream1 := TMemoryStream.Create;
  sList := TStringList.Create;
  try
    Stream1.WriteBuffer(MyMsg, SizeOf(TMsg));
    sList.Add(MyMsg.v1);
    sList.Add(MyMsg.v2);
    sList.SaveToStream(Stream1);
    // 接下來做傳送的動作
  finally
    sList.Free;
    Stream.Free;
  end;
end;
   
// 從 TMemoryStream 讀出 MyMsg
var
  ms1: TStream;
  sList: TStringList;
  MyMsg: TMsg;
begin
  Stream1 := TMemoryStream.Create;
  sList := TStringList.Create;
  try
    Stream1.ReadBuffer(MyMsg, SizeOf(TMsg));
    sList.LoadFromStream(Stream1);
    MyMsg.v1 := sList.Strings[0];
    MyMsg.v2 := sList.Strings[1];
  finally
    sList.Free;
    Stream.Free;
  end;
end;

另外, Delphi 本身就有 TMsg 的型態 不知道這樣會不會有問題？ --- 每個人都是一本書 發表人 - hagar 於 2003/04/03 16:30:37

引言: 去年剛好有在研究 Indy 的 HTTP 元件 把研究的研果傳上來給您看看.. 是一個小型的 Client / Server 程式， 我也有用到 record 用來當 data 的 header http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28319 -- Regards, Skyer