請教Indy如何傳送及接收 自訂packed record的值 Type TCRC = packed record T1: String; T2: Integer; end; 1. 請教用IdUDPClient元件要如何傳送此型態的值 2. 在IdUDPServer要如何接收

edwardweng 你好:    String 會傳該字串的位址(4 bytes), Packed Record 這樣宣告才會真的傳值, 參考看看:

type
  TCRC = packed record
    T1: array[0..255] of char;
    T2: Integer;
  end;    procedure TForm1.Button1Click(Sender: TObject);
var CRC : TCRC;
begin
  CRC.T1 := 'ABCDE';
  CRC.T2 := 12345;
  IdUDPClient1.SendBuffer(CRC, Sizeof(TCRC));
end;    procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var CRC : TCRC;
begin
  AData.Read(CRC, Sizeof(TCRC));
  showmessage('Receivee T1='  CRC.T1  ',T2=' inttostr(CRC.T2));
end;