Como criar um servidor e cliente NetDDE no Visual Basic

Voltar ao topo

Criar o servidor de NetDDE do Visual Basic

1. Inicie o Visual Basic e crie uma nova aplicação Standard EXE. É criado o Form1 por predefinição.
2. Coloque uma caixa de texto (Texto1) no Form1 e defina a propriedade de texto como "O DDE servidor está em execução."
3. Alterar a propriedade LinkMode do Form1 para "1 - origem".
4. Seleccione propriedades do projeto1 no menu Project, seleccione a marca de tabulação e altere o título da aplicação para DDESRV.
5. Compile e guarde a aplicação e o nome DDESRV.EXE.
6. Instale a aplicação num computador na rede que pretende utilizar como o servidor.

Voltar ao topo

Criar a partilha DDE no servidor

1. Inicie a aplicação de Gestor de partilha DDE no computador designado como o servidor. Seleccione executar a partir do menu Iniciar do Windows e, em seguida, execute DDESHARE.
2. Seleccione "Partilhas DDE" no menu "Acções". Uma lista de partilhas que anteriormente foram configuradas passará a figurar na caixa de listagem.
3. Clique no botão "Adicionar uma partilha".
4. Introduza "DDETEST $" na caixa de texto "Nome de partilha".
   
   NOTA: Quando criar o nome da partilha não é necessário colocar um "$, à direita" Apesar de ser convencional para o fazer.
5. Introduza os valores seguintes nas caixas correspondentes aplicação e o texto do tópico:

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

   Nota: DDESHARE O utilitário de WFW/Win95/WIN98 suporta apenas a definição de uma aplicação e nome de tópico de cada um. Utilizam os nomes estáticos aplicação e o tópico da lista acima.
6. Clique em OK para fechar a caixa de diálogo Propriedades da partilha DDE.
   
   Importante: devido a um erro no utilitário de partilha DDE, ao sair da aplicação partilha DDE, um novo número de série é criado para a partilha mas não é actualizado na secção fidedignos partilhas DDE do registo; assim, os dois passos seguintes são muito importantes.
7. Seleccione a partilha de $ DDETEST na lista e clique no "confiar na partilha" botão.
8. Certifique-se de que "Iniciar para aplicação activar" está seleccionada e, em seguida, clique no botão "SET".
9. Prima OK em ambas as caixas de diálogo abertas e sair o utilitário de partilha DDE.

Voltar ao topo

Criar e testar o cliente de NetDDE do Visual Basic

1. Inicie um novo projecto EXE padrão no Visual Basic. É criado o Form1 por predefinição.
2. Adicione um CommandButton ao Form1. Alterar as seguintes propriedades:

      Name:     cmdConnect
      Caption:  Connect
   
   					

3. Adicione uma caixa de texto ao Form1 e o nome txtData.
4. Cole o código seguinte na secção Declarations do Form1:
   
   NOTA: Substituir o < NOME do COMPUTADOR > com o nome adequado onde for executar a aplicação de DDE SRV.

         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 a aplicação DDESRV no computador rede funciona como o DDE Server.
6. Prima a tecla F5 para executar este cliente dentro do IDE do Visual Basic 5.0.
7. Clique no botão comando marcados como "Ligar" e note que a cadeia "O DDE servidor é executar" aparece dentro txtData caixa de texto.

Voltar ao topo