Caminho de Navegação Delphi / Artigos / Criando exemplo de chat com os componentes da palheta Indy

Delphi

 

Nenhuma avalição
Indique ao Ueba Indique ao BlogBlogs Indique ao Delicious Indique ao Technorati Indique ao Google Bookmarks Indique ao Newsgator
TAGS

Nenhuma tag foi definida ainda!

Defina as tags para esta página preenchendo o campo abaixo.

  • Máximo de 100 tags
  • Cada tag deve ter até 20 caracteres.
  • Separar as tags com virgula. Ex.: php, sql, html, xml, fireworks
COMENTAR

INDICAR
Nome do amigo: E-mail do amigo: Comentário:
REPORTAR ERRO Descreva o erro:

Criando exemplo de chat com os componentes da palheta IndyPostada em: 01/12/2004

Preceptor
Por: Preceptor Nº de Visualizações: 4083.



Versão Servidor

A versão servidor deverá conter todos os usuários conectados ao Chat, podendo através da mesma realizar operações de manutenção nas conexões.



Ao ser executada automaticamente inicia o serviço de chat e fica aguardando as solicitações de inclusão ao mesmo. Para tal a mesma utiliza a porta 4123, porem poderá ser alterada conforme o necessário, lembrando que na versão cliente a mesma também deverá ter a mesma porta.



Na guia conexões é possível visualizar todas as conexões em andamento e também desconectar possíveis usuários conectados ao chat. Nesta versão foi programado para que todos os dias as 22:00hrs o sistema encerre o serviço de chat , caso queira mudar isto basta apenas abrir o programa fonte e alterar isto no componente timer. Para iniciar automaticamente o serviço no dia seguinte crie uma atividade agendada no windows para realizar esta tarefa para você.



Versão Cliente

Nosso objetivo é criar uma aplicação simples de envio e retorno de mensagens através de uma tela sem muitas complicações e/ou excessivos comerciais ou banners.



A esquerda aparecem os usuários conectados ao Chat, para enviar para um ou mais colegas basta manter pressionada a tecla CTRL e ir clicando com o mouse nos nomes que aparecem. Após basta escrever o seu texto e pressionar enter para o envio do mesmo. Lembre-se que para funcionar o versão cliente a mesma deverá estar com o arquivo LMCHATCLIENTE.INI configurado corretamente e apontando para o IP da Versão Servidor. Basta apenas neste arquivo informar o IP da maquina servidora. O programa automaticamente pega o nome do usuário da configuração da rede, porem se você desejar informar outro nome para o chat basta criar o arquivo NOME.DAT e dentro do mesmo informar o nome de exibição. Todos estes dados inclusive o programa deverão estar dentro da seguinte pasta C:\CHAT.

Para você entrar automaticamente no chat quando a maquina for ligada crie uma atividade agendada no windows para realizar esta tarefa para você de forma automática.

Nesta versão é criado um arquivo chat.log em C:\Windows para registrar todos os dados tratados no chat, caso queira alterar isto veja na procedure crialog, e altere conforme o que lhe convier.

Lembrando este é apenas um exemplo de Chat, caso queira modificá-lo ou até mesmo melhorá-lo por favor me envie uma nova versão para que eu possa realizar testes e até mesmo melhorar a minha versão. Você pode enviar para lucianomarchetti@ig.com.br .

codigo-fonte: 560Chat.zip

http://www.clubedelphi.net


Autor: Luciano Marchetti
USUÁRIO REMOVIDO
Enviado por USUÁRIO REMOVIDO em 29 de dezembro de 2004 estar dando um erro na unite_client_main.pas(8): file not found: "IdlOHandler.dcu" O q faço para funcionar?