FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
Problemas con INDY
Estoy haciendo una aplicacion la cual se conecta a un servidor k yo hice, los hago con TidTCPClient y TidTCPServer, al inciar la aplicacion on el oncreate me conecto de la sig. forma:
Código:
with datos do begin if cliente.Connected then Application.MessageBox('Actualmente conectado con el servidor','Aviso',mb_ok+mb_iconinformation) else begin try cliente.Connect; except Application.MessageBox('No se ha podido conectar con el servidor','Aviso',mb_ok+mb_iconwarning); application.Terminate; end; end; Cliente.WriteLn(inttostr(0)); hora:=cliente.ReadLn; DecodeTime(strtotime(hora), Hour, Min, Sec, MSec); Cliente.WriteLn(inttostr(1)); fecha:=cliente.ReadLn; end; Pero en otra forma que es un checador en el evento OnActivate vuelvo a pedir los mismos datos el servidor de la sig. forma: Código:
with datos do begin if cliente.Connected=false then Application.MessageBox('No hay conexion con el servidor','Aviso',mb_ok+mb_iconinformation) else begin Cliente.WriteLn(inttostr(0)); hora:=cliente.ReadLn; DecodeTime(strtotime(hora), Hour, Min, Sec, MSec); Cliente.WriteLn(inttostr(1)); fecha:=cliente.ReadLn; end; end; El TidTCPClient lo tengo en un DataModule. Última edición por m@kio fecha: 16-06-2005 a las 19:45:57. |
#2
|
||||
|
||||
Puede estar ocurriendo que el servidor no te conteste la segunda vez.
Si no lo hace queda esperando una respuesta y por eso se te traba Suerte
__________________
[Crandel] |
#3
|
||||
|
||||
Lo que ha dicho crandel es correcto, habrá que ver el flujo y algo de código en el server.
Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#4
|
|||
|
|||
Por el momento...
Por el momento lo soluciones poniendo un TidTCPClient en cada forma k lo vaya a utilizar, pero yo solamente kiero tener uno en el DataModule y con ese mandar pedir la informacion, como puedo saber si el servidor espera una respuesta? o como puedo cancelar esa peticion para hacer otra?
|
#5
|
||||
|
||||
Cita:
Cita:
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#6
|
||||
|
||||
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] |
#7
|
|||
|
|||
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; |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|