Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   Capturar pantalla desde un servicio del windows (https://www.clubdelphi.com/foros/showthread.php?t=24342)

walrus 17-08-2005 15:29:59

Capturar pantalla desde un servicio del windows
 
Hola, estoy haciendo un servicio que debería capturarme la pantalla y guardar la captura como un bmp en el disco. Sin embargo, la rutina que empleo para la captura me funciona en una aplicación normal, pero parece que en un servicio windows no me funciona.

La rútina que empleo es la siguiente:

Código Delphi [-]
procedure ScreenShot(x : integer; y : integer; Width : integer; Height : integer; bm : TBitMap);
var
  dc: HDC; lpPal : PLOGPALETTE;
begin
  if ((Width = 0) OR (Height = 0)) then exit;
  bm.Width := Width;
  bm.Height := Height;
  dc := GetDc(0);
  if (dc = 0) then exit;
  if (GetDeviceCaps(dc, RASTERCAPS) AND
      RC_PALETTE = RC_PALETTE) then
      begin
        GetMem(lpPal, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)));
        FillChar(lpPal^, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)), #0);
        lpPal^.palVersion := $300;
        lpPal^.palNumEntries :=
          GetSystemPaletteEntries(dc,0,256,lpPal^.palPalEntry);
        if (lpPal^.PalNumEntries <> 0) then
            begin
            bm.Palette := CreatePalette(lpPal^);
            end;
        FreeMem(lpPal, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)));
      end;
BitBlt(bm.Canvas.Handle,0,0,Width,Height,Dc,x,y,SRCCOPY);
ReleaseDc(0, dc);
end;

La rútina la encontré en:

http://www.delphipages.com/tips/copyview.cfm?ID=75

La rutina se lanza desde el evento OnExecute del TService.

También he probado con la rútina de TrucoMania, pero nada.

Por esto, sospecho que desde un servicio no se puede capturar la pantalla, pero me parece raro. ¿Qué pensaís?

Muchas gracias por leerme.

Saludos.

delphi.com.ar 17-08-2005 15:55:47

El tema es que cuando capturas la pantalla aun no se ha creado ningun escritorio de usuario.
Por ejemplo, yo tengo una aplicación que hice, que en una plataforma NT puede registrase como servicio, y entre tantas cosas, sirve para capturar la pantalla y listar las ventanas de la terminal en forma remota. Prueba los efectos de una terminal sin "loguearse" y antes de "loguearse": http://www.delphi.com.ar/apps/PMachine2Bin.rar

Saludos!

walrus 17-08-2005 16:03:47

Gracias Federico, aunque la solución la encontré en el hílo:

http://www.clubdelphi.com/foros/show...light=tservice

Y es que me faltaba poner la propiedad Interactive del TService a True. :D

Os pido disculpas por no haber buscado antes en este fantástico foro. :(

De todos modos, le voy a echar un vistazo a lo que me comentas, es posible que me resulte útil. Gracias de nuevo. ;)

Saludos.

walrus 17-08-2005 16:32:38

Estupenda tu aplicación. Mi intención es parecida, pero no tan ambiciosa. De momento mi proyecto está en pañales respecto a lo tuyo.

De paso, reportarte que el cliente da un error al conectarse a un servidor w2000as. En cambio, funciona perfectamente si se instala en un xp (el servicio). Tampoco se ven las imagenes de los botones, pero te felicito porque la aplicación es muy potente (me he sorprendido de la cantidad de posibilidades que ofrece, es muy completo).

Saludos.

delphi.com.ar 17-08-2005 17:59:14

Cita:

Empezado por walrus
De paso, reportarte que el cliente da un error al conectarse a un servidor w2000as. En cambio, funciona perfectamente si se instala en un xp (el servicio). Tampoco se ven las imagenes de los botones...

Yo lo uso en W2k y XP... podrá ser la vesión que subí, no lo recuerdo.
Por otro lado, nunca me tome el tiempo de ponerle las imágenes a los botones :D...

Gracias por los comentarios!
Saludos!


La franja horaria es GMT +2. Ahora son las 04:04:06.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi