Mensajería entre PCs

[avitalini]

¿Qué tal compañeros, cómo están?
Con una duda, por ahí­ vi que existe una utilerí­a en Xailer para mensajerí­a en red del maestro Bingen, pero no la encuentro por ningún lado.
¿Alguien sabe dónde la puedo bajar?
Lo que necesito es hacer que una aplicación este esperando un evento desde otra aplicación en red, por ejemplo una tarea pendiente, pero no estar checando la existencia de un registro.
Gracias!

[bingen]

Hola compañero, en realidad mi utilidad se basa en tener que estar chequeando un archivo con un timer y creo que eso es precisamente lo que no quieres no?
En cambio en Xailer hay una manera de utilizar IPC que aún no me ha dado tiempo de investigar pero que creo que lo hace como tu quieres tienes ejemplos funcionales en
samplesMailSlotServer
samplesMailSlotClient
Ejemplo de uso de Inter Process Communications (IPC) usando MailSlots
Y en
samplesWMCopyDataServer
samplesWMCopyDataClient
Ejemplo de uso de Inter Process Communications (IPC) usando SendWmCopyData y evento TForm:OnCopyData
Salu2.

[avitalini]

Ok, reviso los ejemplos que mencionas.
Gracias!!

[Carlos Ortiz]

Yo lo probe y no tuve exito, entre exes corriendo en la misma PC si
logre enviarle mensajes.
El 17/03/2015 a las 06:06, Bingen Ugaldebere escribió:
> Hola compañero, en realidad mi utilidad se basa en tener
> que estar chequeando un archivo con un timer y creo que eso
> es precisamente lo que no quieres no?
>
> En cambio en Xailer hay una manera de utilizar IPC que aún
> no me ha dado tiempo de investigar pero que creo que lo hace
> como tu quieres tienes ejemplos funcionales en samplesMailSlotServer
> samplesMailSlotClient
> Ejemplo de uso de Inter Process Communications (IPC) usando
> MailSlots
> Y en samplesWMCopyDataServer
> samplesWMCopyDataClient
> Ejemplo de uso de Inter Process Communications (IPC) usando
> SendWmCopyData y evento TForm:OnCopyData
> Salu2.

[joselalinf]

Carlos,
> Yo lo probe y no tuve exito, entre exes corriendo en la misma PC si logre
> enviarle mensajes.
los PCs tienen que estar visibles en la red y sólo hay que establecer la
propiedad cServer correctamente para que funcione.
Saludos,
José Lalí­n

[Carlos Ortiz]

si asi lo hice y nada, nunca llega el msg a la pc destino, tengo una red
muy sencilla con ipfijo en cada pc.
gracias por el interés José, y el fin de semana volvere a probar.
El 18/03/2015 a las 05:14, José Lalí­n escribió:
> Carlos,
>
>> Yo lo probe y no tuve exito, entre exes corriendo en la misma PC si
>> logre
>> enviarle mensajes.
>
> los PCs tienen que estar visibles en la red y sólo hay que establecer
> la propiedad cServer correctamente para que funcione.
>
> Saludos,
> José Lalí­n
>

[avitalini]

Ya le encontré la forma al TMailSlotServer y TMailSlotClient.
en el Server dejar cServer como está es decir "."
Y en el Cliente cambiar el cServer con el nombre del servidor el que te da GetComputerName()
Pero tengo dos problemas, uno, tengo que oprimir el botón recibir, para ver los mensajes ya probé con ::oServer:SetReadTimeout( -1 ) y nada aun.
Y el segundo problema es que tengo que deshabilitar el firewall.
¿Alguna idea?
Gracias!

[joselalinf]

Alejandro,
> Pero tengo dos problemas, uno, tengo que oprimir el botón
> recibir, para ver los mensajes ya probé con
Puedes usar un Timer que compruebe si hay mensajes pendientes con
:HasMessages() y los lea.
> ::oServer:SetReadTimeout( -1 ) y nada aun. Y el segundo problema es que
> tengo que deshabilitar el
> firewall.
>
> ¿Alguna idea?
Quizás tengas que añadir una regla para el firewall. Creo que los mailslots
funcionan sobre NetBIOS.
Saludos,
José Lalí­n

[avitalini]

Sí­, funciona a todo dar con un timer, sólo que pensé que el método :SetReadTimeout( -1 ) poní­a internamente a la escucha y que se disparaba el onRead al llegar el mensaje.
Si, poniendo la excepción al firewall (en mi caso lo puse unos momentos en modo interactivo) y ya funciona correctamente.
¿Estarí­a abusando del Timer si lo pongo cada 2 segundos?
El proceso es muy rápido, nada más agregarí­a una opción a un menú.
Muchas gracias!

[joselalinf]

Alejandro,
> ¿Estarí­a abusando del Timer si lo pongo cada 2 segundos?
Cada dos segundos podrí­a ser delito pero si no protesta dale sin miedo
> El proceso es muy rápido, nada más agregarí­a una opción
> a un menú.
Sólo ten en cuenta que puede suceder que se lance el evento de comprobación
y, como a veces el SO está a lo suyo, podrí­a tardar más la lectura que el
intervalo del timer. No olvides desactivarlo, comprobar y activarlo de nuevo:
METHOD CheckMessages( ... )
::oTimer:lEnabled := .F.
IF ::oMailSlot:HasMessages()
...
ENDIF
::oTimer:lEnabled := .T.
RETURN ...
Saludos,
José Lalí­n

[avitalini]

Muy bien!
Lo desactivaré mientras comprueba y procesa!
Muchas gracias!

[jrcpoli-quitar_1]

Saludos:
Podrí­as publicar un ejemplo yo por lo menos te lo agradecerí­a.
José Ramón Castro.
El 27/03/2015 a las 23:41, Alejandro Vitalini escribió:
> Ya le encontríƒÂ© la forma al TMailSlotServer y
> TMailSlotClient.
>
> en el Server dejar cServer como est탡 es decir "."
>
> Y en el Cliente cambiar el cServer con el nombre del
> servidor el que te da GetComputerName()
>
> Pero tengo dos problemas, uno, tengo que oprimir el botíƒÂ³n
> recibir, para ver los mensajes ya probíƒÂ© con
> ::oServer:SetReadTimeout( -1 ) y nada aun. Y el segundo problema es que
> tengo que deshabilitar el
> firewall.
>
> í‚¿Alguna idea?
>
> Gracias!
>
--
José R.Castro
---
El software de antivirus Avast ha analizado este correo electrónico en busca de virus.
http://www.avast.com

[avitalini]

Claro, en cuanto pueda pongo los ejemplos modificados para un servidor.

[avitalini]

Aquí­ les dejo los ejemplos de mailslot que vienen con Xailer con unos cambios muy sencillos.
Saludos

Attached files MailSlot Cliente -Servidor .7z (3 KB)Â

[jrcpoli-quitar_1]

Gracias.
El 04/04/2015 a las 18:15, Alejandro Vitalini escribió:
> AquíƒÂ­ les dejo los ejemplos de mailslot que vienen con
> Xailer con unos cambios muy sencillos.
>
> Saludos
> begin 644 MailSlot Cliente -Servidor .7z
> M-WJKR<<``/WR$%-L`L````````C`````````!*EY`P`%XI]K3/_([email=E@0]E@0[/email]^E3
> M,=S!:+=R;,^S/JP:8I#KY0T)FH7<(V1?J$VWN7UCI]J(_T$.#Z@(>[8TH4
> M%'P]2XP^83Q6&P<;F4Y,)2%,K,JY+@)KWG03#Y]$GW8,2P_CH=EB&BAQ(.5
> M6W<49;B>W82SCJ(_`B]-](#/![email=O@O2H]O@O2H[/email];R/%C-AT;[email=W@WN1]W@WN1[/email]#.[-(_S=O5L1SV]M
> M&@YTHQGFFIUU>S<&9%&U`6J%EBM-B#V<>]C97+``6*2*^S7Q1!;F^^Z1JC!R
> M+6'_^1NFA;`3`?&HZ%4$Q&O'$6)@P^'R64?B;+YH^Y""&LV^YE9& <HL3521B
> MV'71;6N4>5G??/[email=7XP6B3M.H@I-W2]7XP6B3M.H@I-W2[/email]4]&/XMC'P3)(&ICQ,1F5$NF._930"
> M'4.9&II)RR3@)[email=O@M]O@M[/email]`8&&-^]K*YI81L!5JZ*B-0ZM0?(MYKKH$@SN40L00I<
> M5R;N)#+>][2_53$`)O+(.U4?T[[#>F"ZL=W0,%J',9N2"!/H;"CH^^U <*E
> M(KSN!;"8'3%8;V9KP'%V#6)Z6T]D;]SV'SSV&7.W2W<=*L&WB[V8,N5XR`6O
> M%P[]T0(X=4PJ=K-1,,5U#)]XQ_<K'.:%*V][WJO[</,!P;%&I%8K65HBT'2
> M][email=O2M@PEHIXOCDG]O2M@PEHIXOCDG[/email]%J,9SUI-T`[email=-@I]-@I[/email]*L_YJY$VJ9[V_4D`(`Z#L0JU8YC)CX7A
> [email=MN-5@P]MN-5@P[/email])9F;D#/#:3?[email=V@OA]V@OA[/email]>"K*0XNWS>_YLG37N;>N$HQ[1+WSN<ZZDD.?-_
> M40D;EE9GW?,Z`9^NN"VL5W=Y_+?%Y6$(9ZD`8G!%;JA;(#E5COPF:3*ELU^
> M</FK[email=@@9Q7LFF]@@9Q7LFF[/email]<.=?;1UD#=_7U'7O"2][email=HE9E@WDNQY]HE9E@WDNQY@F_" target=_blank>>@F_[/email">=[email="]http://www.avast.com

[joselalinf]

Alejandro,
muchas gracias.
Si tienes un momento súbelo a http://www.xailer.com/download para que esté
mejor accesible.
Saludos,
José Lalí­n