Sección de códigos , trucos y ejemplos para visual basic

161 - Conversación DDE entre aplicaciones

Ejemplo muy simple para realizar una comunicación y conversación entre dos ejecutables utilizando DDE ( Intercambio dinámico de datos )

El mismo consiste en crear dos formularios, uno llamado Servidor y otro Cliente. En el cual cada formulario contendrá un control textBox. El Formulario cliente podrá enviar el contenido del control textbox al servidor y el servidor también podrá enviar el contenido al form Cliente:

Pasos a seguir para crear el form servidor

Crear un Proyecto nuevo que será el formulario Servidor. Colocar en el Formulario un control Text1 llamado txtServer. El nombre del formulario dejarlo por defecto con el nombre Form1

Ahora seleccionar el Formulario y desde la ventana de propiedades modificar la propiedad LinkMode con el Valor 1 - Source, como muestra el gráfico:

vista de la ventana de propiedades del formulario servidor para establecer la propiedad LinkMode coo fuente de la conversación DDE

Ahora guardar el proyecto en una carpeta con el nombre Servidor y también generar el ejecutable con el nombre servidor.exe

Pasos para el formulario Cliente.

Ahora crear un nuevo proyecto y en el formulario colocar los siguientes controles como está en la imagen:

vista del formulario cliente que se comunicará mediante DDE con el otro formulario servidor

El textBox dejarlo con el nombre Text1. El Command1 es el que dice Enviar, el Command2 el que dice Recibir. El option1 colocarle en el caption " Modo automático " y al Option2 " Modo Manual "

Ahora pegar lo siguiente en el form1

'Envía los datos Private Sub Command1_Click() Text1.LinkPoke End Sub 'recibe los datos Private Sub Command2_Click() Text1.LinkRequest End Sub Private Sub Form_Load() 'Especifica la aplicación y la ventana Text1.LinkTopic = "Servidor|Form1" Text1.LinkItem = "txtServer" 'Se pone como modo Manual, es decir que para enviar _ y recibir los datos se utilizarán los botones _ si se presiona el Option1, no es necesaria la recepción ya _ que es automática Option2.Value = True End Sub 'Modo automático Private Sub Option1_Click() Text1.LinkMode = vbLinkNone Text1.LinkMode = vbLinkAutomatic End Sub 'Modo Manual Private Sub Option2_Click() Text1.LinkMode = vbLinkNone Text1.LinkMode = vbLinkManual End Sub

Guardar el proyecto en la carpeta donde estaba el ejecutable Servidor con el nombre de Cliente y compilar el Exe con el nombre de Cliente.exe

Si observás en el FormLoad, verás que se especifica el programa y el formulario al cual se referenciará para la comunicación y también el control TextBox

Text1.LinkTopic = "Servidor|Form1"

Text1.LinkItem = "txtServer"

Ahora , una ves compilados los 2 exe, ejecutar primero Servidor.exe y luego cliente.exe.

Nota: com el ejemplo no tiene comprobación de errores para hacerlo mas simple, si ejecutás el Cliente y luego el servidor dará error, por lo tanto deberás ejecutar como se dijo antes, primero el Servidor.exe y luego el cliente.exe

Si escribes algo en el Cliente y presionas el botón Enviar, podrás visualizar el contenido en el TxtServer de la otra aplicación. Si escribes algo en el txtServer y luego clickeas en el Botón Recibir podrás visualizar los datos.

Los OptionButton especifican que el modo de conversación es Manual, ya que hay que presionar el botón Recibir que ejecuta el método LinkPoke para recibir el dato desde el servidor hacia el cliente. Si cambias la opción, es decir seleccionas el Option " Automático ", comprobarás que no es necesario escribir algo en el TxtServer y luego presionar el Command Recibir para que llegue al cliente, si no que al escribir en txtserver se transferirá en forma automática.

Esto es un ejemplo básico. Podés chequear en la ayuda algunos eventos relacionados con esto del DDE, como el evento LinkClose ( Ocurre al terminar una conversación DDE.) El evento LinkError ( Ocurre cuando se produce un error durante una conversación DDE. ) Evento LinkExecute ( Ocurre cuando una aplicación de destino envía una cadena de comandos en una conversación DDE. ). Evento LinkOpen ( Ocurre al iniciar una conversación DDE. ) y lagunos otros métodos como LinkExecute ( Envía una cadena de comandos hacia la aplicación de origen en una conversación DDE. ) y algunas otras .

Por último, te comento por si te sirve como dato, otra forma y posibilidad que conozco de intercambiar datos entre ejecutables, es creando un componente o proyecto de tipo Exe Activex

Recursos visual basic 6.0 - Enlaces relacionados

Artículo sobre Intercambio de datos entre programas con DDE y archivos mapeados en memoria

Buscar en Recursos vb