Ver Mensaje Individual
  #3  
Antiguo 16-06-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
También podrías usar las componentes Indy. Un ejemplo rápido:

En el servidor colocas una aplicación "Server" en la que usas una componente TIdTCPServer. A esta componente le asignas un puerto accesible desde fuera, digamos:


Código Delphi [-]
IdTCPServer1.Port := 1245;

En su evento OnConnect pones:


Código Delphi [-]
AThread.Connection.Write(FormatDateTime('hh:mm:ss', Time));

y corres la aplicación asegurándote de que IdTCPServer1.Active está en true.

En la aplicación cliente pones una componente TIdTCPClient a la que asignas el mismo puerto que al servidor.

Cuando quieras leer la hora pones:


Código Delphi [-]
IdTCPClient1.Connect;

y en su evento OnConnect pones:


Código Delphi [-]
Edit1.Text := IdTCPClient1.ReadString(8); // <-- el 8 es la longitud de la cadena
IdTCPClient1.Disconnect;

En las demos de las INDY viene este ejemplo mucho más completo (Basic ClientServer demo)

// Saludos
Responder Con Cita