Send Packet

[rauros]

Vale, he intentado algo rarísimo... Pero creo que me alejo de como se usa.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
IDUDPClient1.Send(edit2.Text);
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
begin
Showmessage('probando')
end;

No ocurre nada. El host lo tengo puesto en 127.0.0.1 y los puertos todos en 2040.