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. |
|
|
|