Como criar um NetDDE cliente e servidor no Visual Basic

Voltar para o início

Criando o servidor de NetDDE do Visual Basic

1. Inicie o Visual Basic e crie um novo aplicativo EXE padrão. O Form1 é criado por padrão.
2. Coloque uma caixa de texto (Texto1) no Form1 e defina a propriedade de texto como "O DDE servidor está executando."
3. Alterar a propriedade LinkMode do Form1 para "1 - fonte."
4. Selecione propriedades de Projeto1 partir do menu Project, marque a guia e, em seguida, altere o título de aplicativo para DDESRV.
5. Compile e salve o aplicativo e denomine DDESRV.EXE.
6. Instale o aplicativo em um computador na rede que você deseja usar como o servidor.

Voltar para o início

Criar o compartilhamento DDE no servidor

1. Inicie o aplicativo do Gerenciador de compartilhamento de DDE no computador designado como o servidor. Selecione executar a partir do menu Iniciar do Windows e, em seguida, executar DDESHARE.
2. Selecione "Compartilhamentos de DDE" no menu "Compartilhamentos". Uma lista de compartilhamentos que tiver sido configurado anteriormente será exibida na caixa de listagem.
3. Clique no botão "Adicionar um compartilhamento".
4. Digite "$ DDETEST" na caixa de texto "Nome do compartilhamento".
   
   Observação: Ao criar o nome de compartilhamento não é necessário colocar à direita "$" Embora seja convencional para fazer isso.
5. Digite os seguintes valores nas caixas de aplicativo e texto de tópico correspondentes:

                         Application Name              Topic Name
                        -------------------          ---------------
      oldstyle             DDESRV.DDE                    Form1
      newsytle             DDESRV.OLE                    Form1
      static               DDESRV                        Form1
   
   						

   Observação: DDESHARE O utilitário para WFW, WIN95/Win98 suporta apenas a definição de um aplicativo e tópico nome de cada. Use os nomes estáticos aplicativo e tópico na lista acima.
6. Clique em OK para fechar a caixa de diálogo Propriedades de compartilhamentos DDE.
   
   Importante: devido a um erro no utilitário de compartilhamento de DDE, quando você sair do aplicativo DDE, um novo número de série é criado para o compartilhamento mas não é atualizado na seção de registro compartilhamentos de DDE confiáveis; portanto, as próximas duas etapas são muito importantes.
7. Selecione o compartilhamento de $ DDETEST na lista e clique no "Confiar compartilhamento" botão.
8. Verifique se "Iniciar para aplicativo habilitar" está selecionada e, em seguida, clique no botão "SET".
9. Pressione OK em ambas as caixas de diálogo Abrir e feche o utilitário de compartilhamento DDE.

Voltar para o início

Criando e testando o cliente de NetDDE do Visual Basic

1. Inicie um novo projeto Standard EXE no Visual Basic. O Form1 é criado por padrão.
2. Adicione um CommandButton ao Form1. Altere as seguintes propriedades:

      Name:     cmdConnect
      Caption:  Connect
   
   					

3. Adicione uma caixa de texto para Form1 e denomine-txtData.
4. Cole o código seguinte seção Declarations do Form1:
   
   Observação: Substitua < MACHINE NAME > com o nome correto do computador onde o aplicativo servidor DDE será executado.

         Private Sub cmdConnect_Click()
            txtData.linkMode = vbLinkNone
            txtData.linkTopic = "\\<MACHINE NAME>\NDDE$|DDETEST$
            txtData.LinkItem = "Text1"
            txtData.LinkMode = vbLinkManual
            txtData.LinkRequest
         End Sub
   
   					

5. Inicie o aplicativo DDESRV no computador de rede atuando como o DDE Server.
6. Pressione a tecla F5 para executar este cliente dentro do IDE do Visual Basic 5.0.
7. Clique no botão comando rotulado "Conectar" e observe que a seqüência de caracteres "O DDE servidor está executando" aparece dentro de txtData caixa de texto.

Voltar para o início