Chat em Delphi - Client + Servidor

[~~Surfistinha~~² 0]

CLIENTE:

 

1 - Adicione 2 Memos, 3 Edits e um Client Socket, dê os nomes e posicione de acordo com a imagem abaixo:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

1.5 - Mude a Port do Client Socket para um valor que não esteja sendo usado ( eu uso 7171 ).

 

2 - Códigos:

 

 

2.1 - Evento KeyDown do edit Text:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

2.2 - Evento OnClick do botão Connect:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

2.3 - Evento Connect do ClientSocket1:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

2.4 - Evento Disconnect do ClientSocket1:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

2.5 - Evento Error do ClientSocket1:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

2.6 - Evento Read do Client Socket1:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

 

2.7 - Evento OnClick do botão Send:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

 

 

 

SERVIDOR:

 

1 - Adicione 2 Memos, 1 Edits, um Server Socket e um Client Socket, dê os nomes e posicione de acordo com a imagem abaixo:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

1.5.1 - Mude a Port do Client Socket para um valor que não esteja sendo usado ( eu uso 7171 ).

1.5.2 - Mude a Port do Server Socket para o mesmo valor do ClientSocket ( eu uso 7171 ).

 

2 - Códigos:

 

2.1 - Evento KeyDown do edit Text:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

2.2 - Evento Connect do ClientSocket1:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

2.3 - Evento Disconnect do ClientSocket1:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

 

2.4 - Evento Error do ClientSocket1:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

 

 

2.5 - Evento Read do ClientSocket1:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

2.6 - Evento onClick do botão Start:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

2.7 - Evento Listen do ServerSocket1:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

2.8 - Evento ClientConnect do ServerSocket1:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

2.9 - Evento ClientDisconnect do ServerSocket1:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

 

3 - Evento ClientRead do ServerSocket1:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

 

3.1 - Evento onClick do botão Send:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

IMPORTANTE:

 

 

 

F.A.Q:

 

1 - Aonde eu encontro os Sockets que você usou?

R - Na aba internet.

 

2 - Não encontrei.

R - Vá no menu Component | Install Packages... Na janela que ira surgir clique no botão Add... e procure pelo arquivo dclsockets70.bpl. Dê OK e pronto! Os componentes irão aparecer na aba Internet.

 

3 - Para que serve o evento KeyDown do edit Text?

R - Para enviar a mensagem apertando Enter.

 

4 - O servidor conecta automaticamente a si próprio?

R - Sim. O servidor atua também como usuário do chat.

 

5 - Como eu mudo o nome "Admin" do servidor?

R - No código do servidor, altere todas as partes em que aparece o nome "Admin".

 

6 - Você testou o código?

R - Sim, mas apenas local. Não testei pela internet.

 

 

Créditos: dudaxan

[Habborico 0]

cara obrigado mermo , :d me ajudou em um negocio aqui que estava com duvida cheguei ate reinstalar o delphi .-.'