FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Esperar respuesta del Tserversocket y tclientsocket
Hola utilizo delphi 6 con los componentes tserversocket1 y tclientsocket1
Mi duda es la siguiente tengo 2 exe uno del cliente y otro del servidor. Mi problema es que al enviar sendtext con el cliente, me pasa que envio una respuesta del servidor, pero llega un punt que como tengo 3 lineas que envio de informacion esto es ClientSocket1.Socket.SendText('hola1');sleep(1000); ClientSocket1.Socket.SendText('hola2'); ClientSocket1.Socket.SendText('hola3'); en el servidor ejecuto un par de procesos y en el proceso 2 puede tardar mas tiempo de lo debido y lo que me pasa es que necesito avisarle al tclientsocket que debe esperar a que termine de procesar. procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); Begin For temp:= 0 to ServerSocket1.Socket.ActiveConnections-1 do Begin srecr:=ServerSocket1.Socket.Connections[temp].receivetext; if srecr='hola2' then Begin Funcion de calculos en el servidor. esta funcion tarda algo de tiempo y necesito que espere a que se termine de ejecutar este proceso antes de poder enviar la respuesta SendText('Texto recibido');// Le envio una respuesta al cliente pero necesito que espere a que se termine de ejecutar el proceso End; end; end; procedure TForm1.ServerSocket1Clientwrite(Sender: TObject; Creo que es por medio del ServerSocket1Clientwrite, pero no tengo idea. Espero alguien me pueda dar un norte de como hacer que espere a que termine de ejecutar la funcion de read para poder volver a iniciar la ejecucion del servidor. Vi algo therad pero no estoy seguro de como funcionan, sin mas me despido |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
tClientSocket, tServerSocket | StartKill | Varios | 5 | 26-04-2011 21:00:34 |
proxy TServerSocket/TClientSocket | TROMPO | Internet | 0 | 31-03-2008 19:48:35 |
Llamar a otro ejecutable y esperar respuesta | lacovera | Varios | 8 | 10-05-2007 01:13:58 |
Dudas acerca de los componentes TClientSocket y TServerSocket | alastor | Internet | 3 | 07-08-2006 18:30:00 |
TClientSocket y TServerSocket | fled | Internet | 10 | 14-06-2004 08:35:33 |
|