Простейший UDP Client - Server (RAD Studio XE2 Delphi)

[kestugar]

сервер запускается, но чтение IdUDPServer1UDPRead не выполняется.
подскажите пожалуйста почему сервер не читает?
брал часть кода отсюда http://www.ithowto.ru/66-primer-rabo...dp-server.html
часть еще где-то. Все что в интернете нашел - под delphi 7.
Пытался переделать под xe2 - не получилось. Что нужно сделать, чтобы под xe2 работало?

unit UDP;
 
type t_trackpacket = record
    packet_version: shortint;
    port: shortint;
    flags: integer;
    software: array [0..31] of byte;
    version: array [0..15] of byte;
    platform_: array [0..31] of byte;
    server_desc: array [0..63] of byte;
    server_location: array [0..63] of byte;
    server_url: array [0..95] of byte;
    contact_name: array [0..63] of byte;
    contact_email: array [0..63] of byte;
    users: integer;
    channels: integer;
    games: integer;
    uptime: integer;
    total_games: integer;
    total_logins: integer;
end;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    IdUDPClient1: TIdUDPClient;
    IdUDPServer1: TIdUDPServer;
    procedure Button1Click(Sender: TObject);
    //procedure IdUDPServer1AfterBind(Sender: TObject);
    procedure IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
      AData: TArray<System.Byte>; ABinding: TIdSocketHandle);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var t: t_trackpacket;
Buf: TIdBytes;
begin
//  try
//    IdUDPClient1.Active := True;
//    IdUDPClient1.Host := 'localhost';
//    IdUDPClient1.Connect;
//    if IdUDPClient1.Connected  then
//      begin
//        IdUDPClient1.Send(TimeToStr(Time));
//        //Label1.Caption := 'ok';
//      end;
//    IdUDPClient1.Active := False;
//    Beep;Beep;Beep;
//  except
//    MessageDlg('Что-то не получилось =(', mtError, [mbOk], 0);
//  end;
 
  t.flags:= strtoint(edit1.Text);
  //Bytes := RawToBytes((t.flags^, t.size);
  IdUDPClient1.SendBuffer('localhost', 800, RawToBytes (t, sizeof(t)));
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  IdUDPServer1.Active := True;
end;
 
procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
      AData: TArray<System.Byte>; ABinding: TIdSocketHandle);
var packet: t_trackpacket;
  i:Integer;
  s:String;
begin
  s := '';
    //s := BytesToString(AData, TEncoding.UTF8);
    i := 0;
    while (AData[i] <> 0) do
      begin
      s := s + chr(AData[i]);
      i := i + 1;
      end;
  //Adata.Read(packet, SIZEOF(packet));
  //Adata.ReadBuffer(packet, SIZEOF(packet));
 
  edit2.Text:= s;
  //edit2.Text:= inttostr(packet.flags)
end;
 
end.

[Stilet]

А в каком смысле не читает? Событие чтения не вызывается? Ты туда точку прерывания ставил?
Попробуй после отсыла дисконнект сделать - будет сервер читать?

[kestugar]

Сообщение от Stilet

А в каком смысле не читает? Событие чтения не вызывается? Ты туда точку прерывания ставил?
Попробуй после отсыла дисконнект сделать - будет сервер читать?

да, ставил точку - не вызывается =\

так тоже не работает:

procedure TForm1.Button1Click(Sender: TObject);
var t: t_trackpacket;
Buf: TIdBytes;
begin
  t.flags:= strtoint(edit1.Text);
  //Bytes := RawToBytes((t.flags^, t.size);
  IdUDPClient1.SendBuffer('localhost', 800, RawToBytes (t, sizeof(t)));
  IdUDPClient1.Disconnect;
  //IdUDPServer1.Active := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdUDPServer1 := TIdUDPServer.Create(nil);
  IdUDPServer1.Active := True;
  IdUDPServer1.OnUDPRead := IdUDPServer1UDPRead;
  //IdUDPServer1.ThreadedEvent   := True;
end;

[Stilet]

Хм... А SendBuffer какое-то исключение выдает? может Time Out или Closed Gracefull?

[kestugar]

нет =\
перепроверил, что подключил к компоненту IdUDPServer1 процедуру по свойству onRead.
Могут быть какие то внешние зависимости?

[Stilet]

Могут быть какие то внешние зависимости?

На сервере OnConnect срабатывает?

[kestugar]

Сообщение от Stilet

На сервере OnConnect срабатывает?

такого свойства у UdpServer не нашел. это свойство? где это?

[Stilet]

Ой туплю!!! UDP...
Сорри, видимо погода давит.
Файерволл настроен должным образом на 800-й порт?

[kestugar]

Сообщение от Stilet

Ой туплю!!! UDP...
Сорри, видимо погода давит.
Файерволл настроен должным образом на 800-й порт?

в параметрах UdpServer настроил DefaultPort на 800. это то?

P.S. попробовал отправку через функцию Send: тоже не работает =\
IdUDPClient1.Send(inttostr(t.flags) );

[Stilet]

Не, я имел ввиду может файерволл операционки не пропускает.
Ну брандмауэр который. Или файерволл антивирусника, если есть. Его проверь.