FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Necesito ayuda urgente, please!!!
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 Bufferatos; 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 Como tendria que hacerlo? |
|
|
|