Форум программистов [Powered by Invision Power Board]

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
 IdUDPClient1.Send(Edit1.Text);
end;

Код

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: 
TStream; ABinding: TIdSocketHandle);

var
 StringFormatedStream: TStringStream;
   s: String;

begin

StringFormatedStream := TStringStream.Create('');         //Инициализация

 StringFormatedStream.CopyFrom(AData, AData.Size);   //Копирование из простого потока в строковый.

Memo1.Lines.Add(ABinding.PeerIP+' '+StringFormatedStream.DataString);  //Вывод полученного сообщения



ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s)); //Перенаправление сообщения дальше

StringFormatedStream.Free;    //Освобождение строкового потока. 

end;

Код


//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  IdUDPClient1->Send(Edit1->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdUDPServer1UDPRead(TObject *Sender,
      TStream *AData, TIdSocketHandle *ABinding)
{
  AnsiString s;
  TStringStream *StringFormatedStream = new TStringStream(); //Инициализация
  StringFormatedStream->CopyFrom(AData, AData->Size); //Копирование из простого потока в строковый.
  s = StringFormatedStream->DataString;
  Memo1->Lines->Add(ABinding->PeerIP+" "+s);  //Вывод полученного сообщения
  ABinding->SendTo(ABinding->PeerIP, ABinding->PeerPort, s.c_str(), s.Length()); //Перенаправление сообщения дальше
  delete StringFormatedStream;    //Освобождение строкового потока.
}
//---------------------------------------------------------------------------

Код


TStringStream *StringFormatedStream = new TStringStream(); //Инициализация

Код


TStringStream *StringFormatedStream = new TStringStream(""); //Инициализация