Send Packet

[rauros]

Pues de aquí no sé que falla (he puesto 127.0.0.1).

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
        IdUDPClient1.Send(edit1.text);
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
Cadena: TStringStream;
begin
cadena:=TStringStream.Create('');
cadena.CopyFrom(AData, 255);
showmessage(cadena.DataString);
end;

Yo es que de programación entiendo bastante, pero cuando se llega a conexión con otros pc me cuesta comprender.

[Rockin]

Teoricamente está correcto. Busca en el foro o google sobre el metodo de leer stream y pasarlo a texto. Yo lo saque por ahi.

Saludos.

[rauros]

Vale, ya se porque es el error. Ahora necesito saber porque solo funciona con modem, y no con routers. Porque necesito hacer un programa que funcione con todos mis clientes, tengan router, modem o un par de basos con un hilo . Aparte necesito saber cuanto mide el stream, ya que es el problema si mando "prueba" no puedo poner que mide 1000 caracteres, que peta xD.

Muchas gracias a los que ayudan.