tengo una pequeña aplicación chat, utilizo los socket para la comunicación entre ambas pc`s, la comunicación y el chat está todo perfectamente bien, el detalle es que además del chat quiero que desde mi aplicación servidor(pc servidor) tenga otra opción que me permita abrir cualquier aplicación de mi maquina cliente (pc cliente), en este caso quiero abrir word, le muestro el codigo para conectarme entre ambas pc`s.
Código:
if ClientSocket1.Active then ClientSocket1.Active := False
else begin
ClientSocket1.Host := edtComputadora.Text;
ClientSocket1.Active := True;
reusuario.SetFocus;
end;
este codigo lo tengo en un boton conectar, edtComputadora es cuadro de texto donde capturo el ip de la pc a la que me voy a conectar y reusuario es un memo donde escribo el mensaje a enviar.
El codigo de clientSocket es el siguiente:
evento onconnect
Código:
Statusbar1.Panels[0].Text := 'Conectado a ' + ClientSocket1.Host;
Evento onread
Código:
mmResultados.Lines.Add(Socket.ReceiveText);
El codigo de ServerSocket es el siguiente:
evento onclientconnect
Código:
mmClientes.Lines.Add('Conexión');
evento onclientread mmclientes es un memo donde se recibe los mensajes enviados
Código:
mmClientes.Lines.Add(sMensaje);
evento onlisten
Código:
StatusBar1.Panels.Items[0].Text := 'Escuchando...';
Espero que me puedan ayudar...de ante mano gracias por contestar y por su respuesta