Mensajes WM anda entre sesiones?¿?

[marceloalegre] · #1 29-08-2005

Buenas tardes:
Una pregunta muy rara la mia.. pero bueno siempre tengo q lidiar con cosas raras... en este caso necesito comunicar una aplicacion con otra que esta en la misma pc ejecutada en otra sesion, no quiere compartir datos en un .ini ni nada de eso... quiero manejarme directamente con mensajes de windows del tipo wm.
Alguien sabe si puedo comunicarme mandando mensajes entre las 2 aplicaciones que estan en sesiones distintas?

espero se entienda... saludos

roman · #2 29-08-2005

Busca en la ayuda del SDK de Windows (incluida con Delphi) acerca de RegisterWindowMessage. Esta función te sirve para estableder mensajes aptos para comunicación entre aplicaciones.

// Saludos

delphi.com.ar · #3 29-08-2005

Hablo suponiendo, pues no tengo como probarlo aquí, pero creo que cada sesión se debe ejecutar en un nuevo Window Station, por consiguiente en un nuevo Desktop. No vas a obtener el handle de la ventana de otro desktop, a no ser que busques al WindowStation (EnumWindowStations), busques el Desktop (EnumDesktops) y busques la ventana (EnumDesktopWindows). Para cada una de estas búsquedas podrás encontrar mas de un resultado. Supongo que una vez encontrada, no habrá problema para comunicarse por "Window Messages"...

Saludos!

roman · #4 29-08-2005

Ah, se me había pasado el "detallito" de las sesiones

Pero ahora me queda la duda:

Cita:

Empezado por delphi.com.ar

Supongo que una vez encontrada, no habrá problema para comunicarse por "Window Messages"

pues no me queda claro si SendMessage o PostMessage puedan mandar mesajes entre escritorios.

// Saludos

roman · #5 29-08-2005

Pues va a ser que no. El SDK de Windows explícitamente dice:

Cita:

Empezado por SDK de Windows

Messages can be sent only between processes that are on the same desktop. In addition, the hook procedure of a process running on a particular desktop can only receive messages intended for windows created in the same desktop.

// Saludos

delphi.com.ar · #6 29-08-2005

Estaba haciendo esta prueba, pero me tengo que ir... si alguien quiere continuarla...

Código Delphi [-]program AppConsole;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows,
  Messages;

var
  Dummy: string;
begin
  SendMessage(StrToIntDef(ParamStr(1), 0), WM_SETTEXT, 0, Integer(PChar(ParamStr(2))));
  WriteLn(ParamStr(2));
  ReadLn(Dummy);
end.

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var
  MyDesk: HDESK;
  ProcessInfo: TProcessInformation;
  StartupInfo: TStartupInfo;
begin
  MyDesk := CreateDesktop('Delphi.com.ar', nil, nil, DF_ALLOWOTHERACCOUNTHOOK,
                          DESKTOP_CREATEWINDOW or DESKTOP_SWITCHDESKTOP,
                           nil);
  if MyDesk <> 0 then
    try
      SwitchDesktop(MyDesk);

      ZeroMemory(@StartupInfo, SizeOf(TStartupInfo));
      StartupInfo.cb := SizeOf(TStartupInfo);
      StartupInfo.lpDesktop := PChar('Delphi.com.ar');


      CreateProcess(nil, PChar('AppConsole.exe' + IntToStr(Handle) + ' ' + Edit1.Text), 
                          nil, nil, True, CREATE_DEFAULT_ERROR_MODE or CREATE_SEPARATE_WOW_VDM, 
                          nil, nil, StartupInfo, ProcessInfo);
      try
        Sleep(5000);
      finally
        CloseHandle(ProcessInfo.hProcess);
      end;
    finally
      CloseDesktop(MyDesk);
    end;
end;

end.

Saludos!

delphi.com.ar · #7 30-08-2005

Cita:

Empezado por roman

Pues va a ser que no. El SDK de Windows explícitamente dice...

Antes de escribir el primer post, estuve buscando eso, porque creía haberlo leído anteriormente, pero no lo encontré

Saludos!

roman · #8 30-08-2005

Cita:

Empezado por delphi.com.ar

Antes de escribir el primer post, estuve buscando eso,
porque creía haberlo leído anteriormente, pero no lo encontré

Igual me pasó a mi. Busqué primero en la ayuda del SDK de Windows que
viene con Delphi y no lo menciona pero en el msdn sí lo dice.

Ya después buscando en los grupos de noticias de Borland vi varias entradas
de Peter Below donde enfáticamente afirma lo mismo y menciona que para
ese tipo de comunicación mejor usar en todo caso tcp/ip.

// Saludos

delphi.com.ar · #9 30-08-2005

Cita:

Empezado por roman

Igual me pasó a mi. Busqué primero en la ayuda del SDK de Windows que
viene con Delphi y no lo menciona pero en el msdn sí lo dice.

¿Adivina en cual busque yo?

Cita:

Empezado por roman

Ya después buscando en los grupos de noticias de Borland vi varias entradas de Peter Below donde enfáticamente afirma lo mismo y menciona que para ese tipo de comunicación mejor usar en todo caso tcp/ip.

Sinceramente no me gusta mucho la idea, simplemente recuerdo que en los windows viejos (no se si aun sigue siendo así) para poder utilizar los Sockets teníamos que tener algún dispositivo de red instalado, ya sea físico o virtual. Se que puede no ser el caso, y puede parecer algo arcaico mi pensamiento, pero siempre cuando diseño algo, intento que sea lo mas compatible posible. Por otro lado, se me había ocurrido que la comunicación podría realizarse mediante un System Service, me parece que algo dice la SDK al respecto.

Saludos!

roman · #10 30-08-2005

Cita:

Empezado por delphi.com.ar

se me había ocurrido que la comunicación podría realizarse mediante un System Service

¿Y cómo se comunicaría el servicio con la aplicación?

// Saludos

pd: ¿Podrías entrar al mensaje #6 de tu autoría y cortar las líneas largas?

delphi.com.ar · #11 30-08-2005

Cita:

Empezado por roman

¿Y cómo se comunicaría el servicio con la aplicación?

También es un delirio, crear un servicio para comunicar dos proceso.... Brrr... Me pareció leer algo por la SDK, pero hablaba de servicios que interactúan con el escritorio.

¿Que tal comunicar los procesos por los medios tradicionales a traves del kernler?... (CreateFile, CreateFileMapping, CreateSemaphore, CreateMutex)

Ahora armo un ejemplito con FileMapping y lo subo para que lo prueben!... yo no puedo

Saludos!

roman · #12 30-08-2005

Cita:

Empezado por delphi.com.ar

Me pareció leer algo por la SDK, pero hablaba de servicios que interactúan con el escritorio.

Así es; para que sirva de comunicación requerirías poder mandar mensajes al servicio y para ello es necesario que interactúe con el escritorio... Pero como son distintos escritorios...

Cita:

Empezado por delphi.com.ar

Ahora armo un ejemplito con FileMapping y lo subo para que lo prueben!... yo no puedo

Sí, pensé en los memory mapped files pero ya me dio pereza hacer un ejemplo

// Saludos

delphi.com.ar · #13 30-08-2005

Cita:

Empezado por roman

Así es; para que sirva de comunicación requerirías poder mandar mensajes al servicio y para ello es necesario que interactúe con el escritorio... Pero como son distintos escritorios...

Pero si buscas el Desktop, se lo asignas al current thread, te peleas con la seguridad..... ¡Es súper engorroso!

Cita:

Empezado por roman

Sí, pensé en los memory mapped files pero ya me dio pereza hacer un ejemplo

Aquí esta mi ejemplo para que lo prueben!

Saludos!

roman · #14 18-10-2005

Cita:

Empezado por delphi.com.ar

Aquí esta mi ejemplo para que lo prueben!

Hola Federico. Un poco tarde, se me había pasado esto pero ayer finalmente lo probé. La aplicación logra mandar mensajes entre distintos escritorios mas no entre distintas sesiones.

Cita:

Empezado por delphi.com.ar

Ahora armo un ejemplito con FileMapping y lo subo para que lo prueben!... yo no puedo

¿Esto quiere decir que sin tener Delphi a la mano, programaste todo un ejemplo que compiló sin un sólo problema. Me sorprendes amigo mío. De grande (en mi otra vida) quiero ser como tú.

// Saludos

delphi.com.ar · #15 18-10-2005

Cita:

Empezado por roman

¿Esto quiere decir que sin tener Delphi a la mano, programaste todo un ejemplo que compiló sin un sólo problema. Me sorprendes amigo mío. De grande (en mi otra vida) quiero ser como tú.

Nooo.. no tenía un WinXP o un Termial Server para probarlo en forma fácil...

[marceloalegre] · #16 18-10-2005

jajaja!!!0 es cierto cuando sea grande yo tambien quiero ser como el... a mi me lleva un ratillo tener las cosas compiladas y funcionando correctamente...

haaa para este tema, por si a alguien le interesa, los mensajes entre sesiones se manejan sin problemas usando socket local... no se si sera una buena solución pero fue algo que implemente rapido, y me saco del apuro...!

Saludos!!

delphi.com.ar · #17 18-10-2005

Cita:

Empezado por roman

La aplicación logra mandar mensajes entre distintos escritorios mas no entre distintas sesiones.

Mmmm.. posiblemente haya que jugar con los SECURITY_ATTRIBUTES en el momento de creación del archivo.

delphi.com.ar · #18 18-10-2005

Cita:

Empezado por kanvictor

haaa para este tema, por si a alguien le interesa, los mensajes entre sesiones se manejan sin problemas usando socket local... no se si sera una buena solución pero fue algo que implemente rapido, y me saco del apuro...!

Algo habíamos comentado al respecto:

Cita:

Empezado por roman

Ya después buscando en los grupos de noticias de Borland vi varias entradas de Peter Below donde enfáticamente afirma lo mismo y menciona que para ese tipo de comunicación mejor usar en todo caso tcp/ip.

Cita:

Empezado por delphi.com.ar

Sinceramente no me gusta mucho la idea, simplemente recuerdo que en los windows viejos (no se si aun sigue siendo así) para poder utilizar los Sockets teníamos que tener algún dispositivo de red instalado, ya sea físico o virtual. Se que puede no ser el caso, y puede parecer algo arcaico mi pensamiento, pero siempre cuando diseño algo, intento que sea lo mas compatible posible.

[marceloalegre] · #19 18-10-2005

Muy cierto tu comentario Federico, me quede mal en su momento, pensando que si no tenian dispositivo de red no funcionaba... igual eso es culpa del maldito windows, porque linux no tiene ese inconveniente... Pero honestamente en la empresa que trabajo lamentablemente las cosas tienen que salir muy rapido y crei que esa era la mejor jugada que pude hacer en ese momento...
Igualmente el programa ya de por si manejaba sockets, asi que no podia tener problemas porque como requisito fundamental para usar la aplicacion habia que tener una placa de red... mas alla de eso hoy por hoy el hardware standard del mercado de pc incluye una placa de red...

Pero... muy Muy de acuerdo hay que hacer las cosas lo mas compatible e independiente (soft/hard) posible...

Pd: igual por ahora creo que el socket es lo unico que anda entre sesiones no? ...

Haaa en cuanto al tema del servicio para comunicar los procesos que lei por ahi abajo yo tambien "delire" cuando estaba haciendo las pruebas, pero el servicio de por sí (por defecto) se carga con el usuario SYSTEM asi que seguia dando vueltas sobre lo mismo jaaa,,, no queria saber mas nada de sesiones!,,, y no me parecio util....