Esse artigo faz parte da revista Clube Delphi edição 35. Clique aqui para ler todos os artigos desta edição

 

Atenção: por essa edição ser muito antiga não há arquivo PDF para download. Os artigos dessa edição estão disponíveis somente através do formato HTML. 

 

Conexões remotas

Criando um exemplo clássico com sockets

Vamos apresentar neste artigo um simples estudo de caso da utilização de sockets (TServerSocket e TClientSocket) para implementar um sistema de troca de mensagens em rede.

Nosso sistema será composto de um aplicativo cliente e um servidor. No cliente serão implementadas as rotinas de envio e recebimento de mensagens; o servidor será responsável pelo gerenciamento de conexões e pela distribuição das mensagens para todos os clientes conectados.

A parte mais relevante do código é apresentada no corpo do texto. O exemplo completo está disponível para download.

Implementando o servidor

Comece um novo aplicativo e, na paleta Internet, selecione o componente ServerSocket. Altere sua propriedade Name para "SS" e Port para 2002 (devemos utilizar uma porta acima da 1024 para não interferir em serviços padronizados, como HTTP, SMTP e FTP, que utilizam números de portas abaixo desse valor).

...

Quer ler esse conteúdo completo? Tenha acesso completo