Realizar una consulta a otra máquina

[lore]

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.

[[__hector]]

Al ServerSocket debes especificarle el indice de la conexion a la que quieres enviar el mensaje. Algo como:

  Server.Socket[indice].SendText('texto');

[Viet]

Tambien lo puedes hacer con los Indy con :

// 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;

todo lo haces con IdTCPClient, IdTCPServer

Suerte