Oficina
Gerenciador Remoto
|
Dom 28 Mai 2006 09:01 |
- Detalhes
- Categoria: Ferramentas de Rede
- Atualização: Domingo, 14 Junho 2009 17:20
- Autor: T.J.Nogueira
- Acessos: 17213
1.5 Construindo o módulo Cliente e a sua codificação
| Quantidade | Componente |
|---|---|
| 4 | TLabel |
| 1 | TEdit |
| 1 | TComboBox |
| 2 | TButton |
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 |
|---|---|---|
| Label1 | Caption | IP do Servidor: |
| Label2 | Caption | Comando a Enviar: |
| Label3 | Caption | Status: |
| Label4 | Caption | ? |
| Edit1 | Text | |
| Button1 | Caption | CONECTAR |
| Button2 | Caption | ENVIAR! |
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 |
|---|---|---|
| ComboBox1 | Text | Escolha o Comando!!! |
| ComboBox1 | Items | PROTECAO NAVEGAR MSN QUIT |
Após estas alterações, arrume os componentes no formulário para que fique parecido com o que segue abaixo:
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.