Send Packet

[rauros]

Pues vaya, muchísimas gracias. Hay un problema con la ayuda rápida, y es que no salen todos los componentes... Si alguien sabe alguna recopilación de información ...

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