Send Packet

[rauros]

Vale si no me quieres ayudar no me ayudes, pero no encuentro la ayuda... Yo pensaba usando IdUDPClient y IdTCPClient pero es que no encuentro en las demos nada. En indy no hay ningún proyecto ni ningún form, ni ninguna unidad...

Delphi 7
Indy V9 Demos

===========================

Indy V9 Demos

Demo applications for Indy V9 are available from the
downloads section on the Indy site at:

http://www.nevrona.com/indy

As new demos are constantly being built and tested,
this is the most up to date location for demo
downloads.

If you have any problems with demos please join the
"Indy Demos" group at yahoo groups, and report them
there:

http://groups.yahoo.com/group/Indy-Demos/

Vamos, que buscando he encontrado http://www.indyproject.org/index.en.aspx , pero no encuentro información aparente...

[Rockin]

Enviar Mensajes algo como:

Código Delphi [-]
UDPClient.Send('Mensaje Enviado por UDPClient');

Para recibirlos:

Código Delphi [-]
procedure TfrmValidaciones.UDPServerUDPRead(Sender: TObject;
  AData: TStream; ABinding: TIdSocketHandle);
begin
               ShowMessage('Mensaje Recibido');
end;

Ya tienes que configurar el puerto, el host, etc...

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