Visual basic 6 Winsock - Parte I

por DragonicK Seg Jan 27, 2014 7:10 pm

Winsock Básico

No projeto, adicione um componente Winsock e renomeie para Server, agora adicione mais 2 botões e mude o caption do Button1 para Start e Button2 Stop. Ops! e uma Label para podermos indicar o Status.
Visual basic 6 Winsock - Parte I Frmserver

Visual basic 6 Winsock - Parte I Frmserver

---------------------------------------------------------------------------------------
No CommandButton1 iremos Startar o Servidor, então entramos com o código :
Visual basic 6 Winsock - Parte I Cmd1

Aqui definimos qual porta será usada. Logo abaixo o comando Listen, é usado para entrar no modo de “escuta”, ou seja, o servidor está esperando uma conexão, “escutando”.
---------------------------------------------------------------------------------------
No CommandButton2 iremos parar o Servidor, então entramos com o código :
Visual basic 6 Winsock - Parte I Cmd2

Aqui irá fechar o Servidor e qualquer tipo de conexão que esteja ou não em andamento será finalizada.
---------------------------------------------------------------------------------------
Nossa próxima etapa é aceitar a conexão do cliente :
Visual basic 6 Winsock - Parte I Requestj

Visual basic 6 Winsock - Parte I Requestj

Nesta Sub, temos que fechar o modo de escuta, e aceitar a conexão. Verifico se o estado do Servidor está “diferente” de “Fechado”. Se estiver fechado, aceita a conexão. Senão, fecha o Server e depois aceita.
---------------------------------------------------------------------------------------
Agora vamos criar um novo Projeto, este será o cliente :
Adicione :
3 TextBox
3 Label
3 CommandButton
1 Componente Winsock
1 Timer
Ficando na forma final assim :
Visual basic 6 Winsock - Parte I Clientw

Visual basic 6 Winsock - Parte I Clientw

Renomeie o Winsock1 para Cliente e agora vamos nos conectar ao Servidor :
Visual basic 6 Winsock - Parte I Ocwo

No Command1 eu usei o código para entrar. Primeiro eu declaro as variáveis, depois defino as variáveis. Antes de conectar eu verifico se o Cliente já esta Conectado, se estiver, a mensagem será exibida, caso contrário, ele conecta ao Server. E no Command2 temos o botão sair, que irá fechar o programa.
--------------------------------------------------------------------------------------
No Timer1 deixe, o Interval em 1000 e em Enabled deixe como True:
Visual basic 6 Winsock - Parte I Clientetimer

Visual basic 6 Winsock - Parte I Clientetimer

A cada 1 segundo o Timer verificará o estado do cliente, quando estiver conectado irá mostrar na Label3.
---------------------------------------------------------------------------------------
No botão Enviar que é o Command3, vamos enviar os dados contidos na TextBox3 para o servidor :
Visual basic 6 Winsock - Parte I Cmdenviar

Visual basic 6 Winsock - Parte I Cmdenviar

Crio uma variável para guardas as informações contidas em TextBox3, verifico se o estado do cliente está conectado, se estiver envia os dados, do contrário mostra a mensagem.
---------------------------------------------------------------------------------------
Agora devemos voltar ao servidor para manipular os dados que foram enviados do Cliente.
Visual basic 6 Winsock - Parte I Serverdata

Visual basic 6 Winsock - Parte I Serverdata

Na Sub Server_DataArrival, primeiro devemos declarar uma variável para que o Server, quando baixado as informações, guardar os dados nesta variável.
“Server.GetData Pacote “ A cada vez o que o servidor receber dados enviados pelo Cliente, esta sub é acionado e ele irá guardar os dados na variável Pacote.
Então mostra a mensagem “Recebi do Cliente : “ + Dados Recebidos.
---------------------------------------------------------------------------------------
E para finalizar, vamos a Sub Server_Close, quando o Server perder a conexão.
E também, adicionar o mesmo ao cliente.

Fechar o Cliente e o Server quando perder a conexão.
Visual basic 6 Winsock - Parte I Serverclose

Visual basic 6 Winsock - Parte I Serverclose

Toda vez que o Server e o Cliente perderem a conexão, irão fechar. E então teremos que Startar novamente.
Espero que este tutorial tenha lhe ajudado a entender mais sobre o winsock.

Dica: Sempre tente, verificar os estados do sock, assim você pode ter menos erros em seu programa.

Download do projeto : Winsock Projeto

Visual basic 6 Winsock - Parte I Sdp

por **Valentine** Ter Jan 28, 2014 12:08 am

Obrigado por trazer pra cá Drago, + 1 crédito

Depois eu posso alterar o tópico pra corrigir algumas coisas e acrescentar algumas explicações? Acho que seria útil por exemplo mostrar todos os states da winsock etc