A Aldeia Numaboa ancestral ainda está disponível para visitação. É a versão mais antiga da Aldeia que eu não quis simplesmente descartar depois de mais de 10 milhões de pageviews. Como diz a Sirley, nossa cozinheira e filósofa de plantão: "Misericórdia, ai que dó!"

Se você tiver curiosidade, o endereço é numaboa.net.br.

Leia mais...

Oficina

Gerenciador Remoto

Dom

28

Mai

2006


09:01

(18 votos, média 5.00 de 5) 


1.5 Construindo o módulo Cliente e a sua codificação

Quantidade Componente
4TLabel
1TEdit
1TComboBox
2TButton

O módulo Cliente consiste em um programa que envia para o módulo Servidor os comandos que o usuário deseja executar na máquina remota. Sem dúvida, é mais fácil desenvolver o módulo cliente do que o servidor, mesmo tendo o módulo cliente um pouco mais de componentes. E isto é o que veremos agora.

Inicie um novo projeto no Delphi. Salve a unit como u_cliente.pas e o projeto como cliente.dpr. No formulário que se iniciar, altere a propriedade Caption para "Módulo Cliente". Insira um componente ClienteSocket, localizado na paleta Internet. Insira também os seguintes componentes listados na tabela ao lado:

Agora, vamos alterar algumas propriedades destes componentes adicionados ao nosso formulário.

Componente Propriedade Conteúdo
Label1CaptionIP do Servidor:
Label2CaptionComando a Enviar:
Label3CaptionStatus:
Label4Caption?
Edit1Text
Button1CaptionCONECTAR
Button2CaptionENVIAR!

Vamos agora alterar duas propriedades do componente ComboBox1, separadamente, para que você não se perca no decorrer da construção. Altere conforme a tabela da direita:

Componente Propriedade Conteúdo
ComboBox1TextEscolha o Comando!!!
ComboBox1Items PROTECAO
NAVEGAR
MSN
QUIT

Após estas alterações, arrume os componentes no formulário para que fique parecido com o que segue abaixo:



Módulo Cliente
Módulo Cliente

Beleza! Agora vamos inserir o código no nosso programa Cliente. Dê um duplo clique no nosso botão CONECTAR e insira o código abaixo:

ClientSocket1.Host:=edit1.text;
ClientSocket1.Port:=31300;
ClientSocket1.Active:=True;

Agora selecione o componente ClientSocket e no Object Inspector, na paleta Events, escolha a ação OnConnect e insira o código que segue:

Label4.Caption:= ' Conectado ao Servidor ';

Continuando, dê agora um duplo clique no botão ENVIAR! e insira o código:

ClientSocket1.Socket.SendText(ComboBox1.Text);
Label4.Caption:='Comando Enviado.';

Prontinho. Já está terminado! Claro que não é uma super aplicação comercial que envolveu uma equipe de 13 programadores e um investimento de R$260.000,00 de uma multinacional, mas é o nosso simples programa Cliente que serve totalmente para o aprendizado sobre a construção do nosso Gerenciador Remoto. E por falar em aprender, chegou a tão esperada hora de entender o código.

Informações adicionais