Fórum Sockets - CONECTAR - URGENTE #165953

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

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

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

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

AJMSISTEMAS -> foi o que eu disse...

Falou