Detalhes

Categoria: Ferramentas de Rede

Atualização: Domingo, 14 Junho 2009 17:20

Autor: T.J.Nogueira

Acessos: 18231

1.4 Construindo o módulo Servidor e a sua codificação

Abra o Delphi e inicie um novo projeto. Salve o mesmo como serv.dpr e a sua unit como u_serv.pas. No formulário que abrir, altere a propriedade caption do Form1 para "Módulo Servidor". Depois, insira o componente ServerSocket, que fica localizado na paleta Internet. Insira também um Tbutton e dois Tlabel. Altere a propriedade destes itens para as que seguem na tabela:

Após estes passos, seu formulário deverá se apresentar desta forma:

Módulo Servidor

Agora vamos adicionar a sua codificação. Dê um duplo clique no botão Ativar. Feito isto, digite o seguinte código responsável por todo o funcionamento:

ServerSocket1.port:=31300;
ServerSocket1.Active:=true;

Agora, selecione o componente ServerSocket e, no Object Inspector, selecione a sua propriedade OnListen, na paleta Events. Neste evento, insira o código:

Label2.caption:= 'Ativado!';

var
  texto: string;
begin
  label2.Caption:='Servidor em uso.';
  texto:=socket.ReceiveText;

  if texto='PROTECAO' then
  begin
    SendMessage(Application.Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0);    
  end;

  if texto='NAVEGAR' then
  begin
    WinExec('c:\Arquivos de Programas\Internet Explorer\iexplore.exe', SW_SHOW);
  end;

  if texto='MSN' then
  begin
    WinExec('c:\Arquivos de Programas\MSN Messenger\msnmsgr.exe', SW_SHOW);
  end;

  if texto='QUIT' then
  begin
    ServerSocket1.Active:=false;
    form1.close;
  end;

end;

Pronto pessoal! Vocês devem estar se perguntando: Ué! Só isso? Sim! O nosso módulo servidor já está pronto para ser usado. Mais pra frente neste capítulo, nós iremos analisar o código deste módulo para que todos entendam sua programação. Vamos agora construir o módulo Cliente.