Livro Delphi Web Capitulo 9

Desenvolvendo utilitários para Internet 127

Capítulo 9
Desenvolvendo utilitários para Internet

Neste capítulo, iremos desenvolver uma série de utilitários para Internet.

Portas Abertas: Seja Bem-Vindo
O primeiro utilitário visa alertar aos amigos leitores sobre um grave problema: Portas Abertas.
Quantos de vocês trancam a porta de suas casas ao anoitecer, ou até mesmo à luz do dia? Acredito que a maioria. Com o forte avanço da Internet em todo o planeta, nos deparamos com o mesmo problema em nossos computadores: Portas Abertas. Neste capítulo iremos desenvolver um aplicativo para scannear e apresentar as portas que estão abertas num determinado servidor.
Para facilitar a compreensão de todos, estou apresentando um exemplo muito simples, onde o usuário informa o Nome do
Servidor (ou endereço IP) e o intervalo de portas a serem scanneadas. Os leitores com conhecimentos mais avançados ou know-how em Threads irão me crucificar por falta das benditas. Acontece que o principal objetivo deste exemplo é demonstrar o uso do componente TCPClient, e não do uso de Threads. Isso iria complicar um pouco a compreensão dos nossos amigos leitores. Aos amigos que se encaixam neste perfil, minhas sinceras desculpas. Bem, continuando, agora vem a parte boa: mãona-massa.
Vamos iniciar um novo projeto no Delphi (grave a unit como un_scan.pas e o projeto como pscan.drp) e inserir os objetos que seguem: OBJETO pnTopo – TPanel
Objeto
TPanel

Propriedade
Align
Caption
Name

127

Valor alTop pnTopo

128 Delphi 7 – Internet e Banco de Dados
Com o foco no objeto pnTopo insira os seguintes objetos:

OBJETO
Label1 – TLabel
Objeto
TLabel

Propriedade
Caption
Left
Top

Valor
HOST
16
14

OBJETO
Label2 – TLabel
Objeto
TLabel

Propriedade
Caption
Left
Top

Valor
Porta Inicial
16
43

OBJETO
Label3 – TLabel
Objeto
TLabel

Propriedade
Caption
Left
Top

Valor
Porta Final
232
43

Agora vamos inserir os objetos de controle e interatividade com o usuário. Mantenha o foco no objeto pnTopo e insira os