Este é um post disponível para assinantes MVPou para quem possui Créditos DevMedia. Clique aqui para saber mais!
Artigo Clube Delphi Edição 35 - Conexões remotas
Artigo da Revista Clube Delphi Edição 35.
Você não gostou da qualidade deste conteúdo?
(opcional) Você gostaria de comentar o que não lhe agradou?
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).
Insira uma StatusBar (chame-o de "SB"), para que possamos informar o estado do servidor, uma ToolBar ("TB"), onde colocaremos os controles de inicialização e parada, e um Memo ("M") onde serão exibidas as mensagens que passarem pelo servidor. Salve a unit como "U_Servidor", nomeie o formulário como "F_Servidor" e o projeto como "Servidor".
"
Este é um post disponível para assinantes MVPou para quem possui Créditos DevMedia. Clique aqui para saber mais!
Walter Priesnitz Filho
professor da Universidade de Caxias do Sul – UCS, Campus Universitário de Vacaria, onde leciona as disciplinas de Tópicos Avançados em Programação e Redes de Computadores nos cursos de Sistemas de Informação e Tecnologia em Processamento de Dados.
