![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
||||
|
||||
|
Cita:
Cita:
![]()
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
|
#2
|
||||
|
||||
|
Todos los programas cliente servidor, son como una conversación.
Donde cada uno hace una pregunta (dado un codigo y sus paramentros) y el otro interpreta esa pregunta (por su codigo) y devuelve la respuesta. Ahora, el primero, recibe la respuesta y ejecuta la acción que desee. Ese es el hilo principal de todos los programas. Cita:
Si escribes el codigo de la conversación podremos analizarlo y sugerirte algo.
__________________
[Crandel] |
|
#3
|
|||
|
|||
|
Este es el codigo...
Servidor:
Cuando se Conecta; Código:
AThread.Connection.WriteLn(timetostr(now)); listbox2.Items.Insert(0,Athread.Connection.ReadLn); Código:
procedure TForm1.ServidorExecute(AThread: TIdPeerThread);
var
Command : String;
begin
listbox1.Items.Insert(0,Athread.Connection.ReadLn+'- Hora de Ejecucion: '+FormatDateTime('hh:nn:ss',now));
Command := AThread.Connection.ReadLn;
if command='0' then
AThread.Connection.WriteLn(FormatDateTime('hh:nn:ss',now))
else if command='1' then
AThread.Connection.WriteLn(FormatDateTime('dd/mm/yyyy',date))
else if command='2' then
AThread.Connection.WriteLn('HOLA cliente como estas');
end;
|
![]() |
|
|
|