Detalhes

Categoria: Ferramentas de Rede

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

Autor: T.J.Nogueira

Acessos: 20775

Programando os componentes

Nesta parte da nossa criação iremos adicionar programação aos componentes utilizados no programa para que este realmente funcione. Iremos começar da seguinte maneira:

• vamos cria uma variável global que será a responsável por parar a execução da verificação no servidor remoto quando o usuário clicar no botão Parar.
• No código fonte do programa vamos adicionar, na sessão correspondente as variáveis globais, a nossa variável Stop.

...
Var
Form1: TForm1;
Stop: integer;  // a nossa variável entra aqui!

Implementation
...

Agora iremos inserir a programação no nosso botão correspondente ao início da varredura de portas no servidor remoto, o nosso botão Iniciar. Dê um duplo clique neste botão para inserirmos o código responsável pelo seu funcionamento.

O código responsável é o que segue abaixo:

Var i : integer;
Begin
    Try

        Listagem.clear;
        Stop:= 0 ;
        TCPClient1.remotehost:=edit1.text;
        For I:= inicio.value to fim.value do
        Begin
            If Stop = 1 then break;

            Label5.caption:=inttostr(i);
            Application.ProcessMessages;
            TCPCLiente1.remoteport:= inttostr(i);
            TCPClient.Active:=true;

            If TCPClient1.connect then 
                Listagem.lines.add('A Porta ['+ inttostr(i)+ '] está aberta.');
            TCPClient1.disconnect;
        End;

    Except
        On E:Exception do Begin
            Listagem.lines.add('Erro: ' + E.Message);
        End;
    End;

    Listagem.lines.add('Verificação Terminada.');

End;

Feita a adição do código responsável pelo funcionamento do nosso botão Iniciar, resta-nos agora adicionar o código relativo ao botão Parar, para que depois possamos analisar as linhas de código do nosso programa Port Scanner.

Para adicionar a programação ao nosso botão Parar, dê um duplo clique no mesmo e adicione o código abaixo:

Stop:=1;

Pronto! A codificação do nosso programa está terminada e ele já está pronto para ser executado. Mas, antes disto, vamos analisar a programação.