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).
...