FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Realizar una consulta a otra máquina
Hola a todos, les cuento que realizo una consulta de un cliente a un servidor para que me muestre una form pero no me funciona.
Les envío algo de código. En el cliente procedure TFPantalla.BaceptarClick(Sender: TObject); begin ClientSocket1.Socket.SendText(Eusuario.Text); ClientSocket1.Socket.SendText(Epassword.Text); end; En el servidor procedure TFPrincipal.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); begin Modulo.IBQuery1.Close; Modulo.IBQuery1.Params[0].AsString := Socket.ReceiveText; Modulo.IBQuery1.Params[1].AsString := Socket.ReceiveText; Modulo.IBQuery1.ExecSQL; Modulo.IBQuery1.Open; if Modulo.IBQuery1.RecordCount > 0 then Socket.SendText('OK'); end; En el cliente procedure TFPantalla.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); var mensaje : String; i : Integer; begin mensaje := Socket.ReceiveText; i := StrToInt(mensaje); if i<> 0 then FReloj.ShowModal else Label5.Caption := 'Login incorrecto'; end; Desde ya muchas gracias. |
#2
|
||||
|
||||
Al ServerSocket debes especificarle el indice de la conexion a la que quieres enviar el mensaje. Algo como:
Código:
Server.Socket[indice].SendText('texto');
__________________
Héctor Geraldino Software Engineer |
#3
|
|||
|
|||
Tambien lo puedes hacer con los Indy con :
Código:
// en el server procedure TF_ppal.ServerExecute(AThread: TIdPeerThread); begin with AThread.Connection do begin while Connected do begin msg := msg + ReadLn; Disconnect; end; end; // en el cliente procedure TF_ppal.botonxClick(Sender: TObject); begin try Cli.host:= 'PCServer'; Cli.Port := 1000; Cli.Connect; Cli.writeln( 'Mensaje'); Cli.Disconnect; except end; end; Suerte
__________________
Marín Ignacio Borthiry (Viet) - "El hombre arriesga su vida cada vez que elije y eso es lo que lo hace libre" ;) |
|
|
|