![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() soy nuevo usando las Indy y necesito enviar a través de una LAN lo siguiente.
Datos = array[1..3]of byte; uso los componentes IdUDPServer e IdUDPClient, en la aplicación cliente hago lo siguiente, en el evento OnClick de un boton: procedure TForm1.BEnviarClick(Sender: TObject); var Buffer ![]() begin Buffer[1]:=horas; Buffer[2]:=minutos; Buffer[3]:=segundos; Client.SendBuffer(Buffer,SizeOf(Buffer)); end; ¿Como tendría que hacer para recibir y acceder a éstos datos en la aplicación servidor? Lo que estaba haciendo es lo siguiente: procedure TForm1.ServerUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); var Buffer:array of byte; begin SetLength(Buffer,AData.Size); AData.Position:=0; AData.ReadBuffer(Buffer,Length(Buffer)); H:=Buffer[1]; M:=Buffer[2]; S:=Buffer[3]; end; Pero no llegan los datos al servidor ![]() |
![]() |
|
|
![]() |
|