Sockets - CONECTAR - URGENTE
Ae pessoal, consegui fazer com que dois computadores se conectassem entre si usando o SERVER SOCKET e o CLIENTE SOCKET, inclusive consegui fazer com que os dois trocassem mensagens entre si. Mas gostaria de fazer algo mais! Gostaria de saber como posso fazer para ter um botão no programa do SOCKET CLIENTE e abrir o CD-ROM no SERVIDOR, na verdade não quero ficar abrindo CD, quero fazer um sistema remoto de controle de PC.
COmo posso fazer para controlar coisas do PC CLIENTE no SERVIDOR ?
No aguardo,
Rodrigo!
COmo posso fazer para controlar coisas do PC CLIENTE no SERVIDOR ?
No aguardo,
Rodrigo!
Ropesca
Curtidas 0
Respostas
Rabitz
23/06/2003
não sou nenhum expert, mas...
faça assim, desenvolva um ´protocolo´... tipo:
Abrir CD = ´AB001´
Fechar CD = ´AB002´
Abrir Explorer = ´AE001´
...
daí, passe esse protocolo por ´chat´ mesmo... e faça o tratamento no servidor... simples não?
Falou
faça assim, desenvolva um ´protocolo´... tipo:
Abrir CD = ´AB001´
Fechar CD = ´AB002´
Abrir Explorer = ´AE001´
...
daí, passe esse protocolo por ´chat´ mesmo... e faça o tratamento no servidor... simples não?
Falou
GOSTEI 0
Rabitz
23/06/2003
não sou nenhum expert, mas...
faça assim, desenvolva um ´protocolo´... tipo:
Abrir CD = ´AB001´
Fechar CD = ´AB002´
Abrir Explorer = ´AE001´
...
daí, passe esse protocolo por ´chat´ mesmo... e faça o tratamento no servidor... simples não?
Falou
faça assim, desenvolva um ´protocolo´... tipo:
Abrir CD = ´AB001´
Fechar CD = ´AB002´
Abrir Explorer = ´AE001´
...
daí, passe esse protocolo por ´chat´ mesmo... e faça o tratamento no servidor... simples não?
Falou
GOSTEI 0
Rabitz
23/06/2003
não sou nenhum expert, mas...
faça assim, desenvolva um ´protocolo´... tipo:
Abrir CD = ´AB001´
Fechar CD = ´AB002´
Abrir Explorer = ´AE001´
...
daí, passe esse protocolo por ´chat´ mesmo... e faça o tratamento no servidor... simples não?
Falou
faça assim, desenvolva um ´protocolo´... tipo:
Abrir CD = ´AB001´
Fechar CD = ´AB002´
Abrir Explorer = ´AE001´
...
daí, passe esse protocolo por ´chat´ mesmo... e faça o tratamento no servidor... simples não?
Falou
GOSTEI 0
Ajmsistemas
23/06/2003
ai eu estou desenvovendo o mesmo projeto... hehehe
tipo assim aqui para isso fiz da seguinte forma :
comando para o servidor :
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
comando: string;
begin
comando := Socket.ReceiveText; //recebe todo o comando
// Abrir CD-Rom
If comando = ´A-CD!´ then //verifica o comando
begin
mciSendString(´Set cdaudio door open wait´, nil, 0, handle); //Abre o cd-rom
Socket.SendText (´CD-Rom Aberto´);
end;
// Fechar CD-Rom
If comando = ´F-CD!´ then //verifica o comando
begin
mciSendString(´Set cdaudio door closed wait´, nil, 0, handle); //Fecha o CD-rom
Socket.SendText (´CD-Rom Fechado´);
end;
End;
o comando para o cliente é :
procedure TForm1.BitBtn14Click(Sender: TObject);
begin
//Abrir ou Fechar o CD-Rom
if bitbtn14.caption = ´Abrir CD-Rom´ Then //verifica se é para abrir o cd-rom
Begin
BitBtn14.Caption := ´Fechar CD-Rom´; //antera o butão para fechar
ClientSocket1.Socket.SendText (´A-CD!´); //Envia o comando para abrir o cd-rom
End
Else //se não faça isso
if bitbtn14.caption = ´Fechar CD-Rom´ Then //verifica se é para Fechar o cd-rom
Begin
BitBtn14.Caption := ´Abrir CD-Rom´; //antera o butão para Abrir
ClientSocket1.Socket.SendText (´F-CD!´); //Envia o comando para abrir o cd-rom
End;
end;
colega que tal trabalharmos junto ??? pois estamos fazendo o mesmo.
andeson.j@ig.com.br
tipo assim aqui para isso fiz da seguinte forma :
comando para o servidor :
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
comando: string;
begin
comando := Socket.ReceiveText; //recebe todo o comando
// Abrir CD-Rom
If comando = ´A-CD!´ then //verifica o comando
begin
mciSendString(´Set cdaudio door open wait´, nil, 0, handle); //Abre o cd-rom
Socket.SendText (´CD-Rom Aberto´);
end;
// Fechar CD-Rom
If comando = ´F-CD!´ then //verifica o comando
begin
mciSendString(´Set cdaudio door closed wait´, nil, 0, handle); //Fecha o CD-rom
Socket.SendText (´CD-Rom Fechado´);
end;
End;
o comando para o cliente é :
procedure TForm1.BitBtn14Click(Sender: TObject);
begin
//Abrir ou Fechar o CD-Rom
if bitbtn14.caption = ´Abrir CD-Rom´ Then //verifica se é para abrir o cd-rom
Begin
BitBtn14.Caption := ´Fechar CD-Rom´; //antera o butão para fechar
ClientSocket1.Socket.SendText (´A-CD!´); //Envia o comando para abrir o cd-rom
End
Else //se não faça isso
if bitbtn14.caption = ´Fechar CD-Rom´ Then //verifica se é para Fechar o cd-rom
Begin
BitBtn14.Caption := ´Abrir CD-Rom´; //antera o butão para Abrir
ClientSocket1.Socket.SendText (´F-CD!´); //Envia o comando para abrir o cd-rom
End;
end;
colega que tal trabalharmos junto ??? pois estamos fazendo o mesmo.
andeson.j@ig.com.br
GOSTEI 0
Rabitz
23/06/2003
AJMSISTEMAS -> foi o que eu disse...
Falou
Falou
GOSTEI 0