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.

[Rockin]

Aqui te adjunto un pequeño ejemplo muy tonto para que sigas investigando. Cambia el host por la ip de tu ordenador

Saludos

[rauros]

He visto tu ejemplo y creo saber como funciona xD. Pero tengo un problema, llevo un día buscando para saber como usar stream, pero no tengo ni idea... Digo yo que si envío un string

Send('prueba');

Recibo un stream?

AData: TStream

[Rockin]

Para leer una cadena, pon el siguiente codigo;

Código Delphi [-]
procedure TfrmFidelizacion.UDPServerUDPRead(Sender: TObject;
  AData: TStream; ABinding: TIdSocketHandle);
var
        Cadena : TStringStream;
        
begin

        Cadena := TStringStream.Create('')
        Cadena.CopyFrom(AData, 22); --> 22 en el numero de bytes que lees.
        ShowMessage(cadena.DataString);

end;

Espero que te aclare algo.

[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.