高手帮忙！Delphi 中 UDPServer控件的使用问题！！

Question

GGJJ们，怎么用这个控件收发数据呀！！！语句怎么写！！

Answer 1

procedure TForm3.IdTCPServer2Execute(AThread: TIdPeerThread);
var newu1:string;
begin
    athread.connection.ReadBuffer(users1,sizeof(users1));//接受
    athread.Connection.Writeln('自己信息');//发送
end;
就这么简单,你可以看看delph自带的列子啊!相信对你有帮助!

Answer 2

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;ABinding: TIdSocketHandle);//接受事件
var DataStringStream: TStringStream;
begin
 DataStringStream := TStringStream.Create('');  //建立一个字符窜流
 DataStringStream.CopyFrom(AData, AData.Size); //把流数据复制到字符窜流中
 memo1.Lines.Add(DataStringStream.DataString);//i显示你收到的字符
 ABinding.SendTo(cip,cport,xinxistr2[1],length(xinxistr2));//返回的信息
end;
还是建议你看下demo啊!