Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Capturar pantalla de una aplicacion? (https://www.clubdelphi.com/foros/showthread.php?t=66468)

Alejo15x 22-02-2010 01:04:37

Capturar pantalla de una aplicacion?
 
Buenas !

Si ando preguntando y preguntando! vale que fastidio...Como sea! Si me quieren ;p para un proyecto que estoy creando, necesito una funciòn, la cual capture la pantalla de un programa en ejecuciòn, en este caso "Tibia.exe" / "TibiaClient", y guardar la foto como .JPG .. Si saben como hacerle por favor, que no seme ocurre como, ya trate buscando y nada :confused::confused::confused:

Casimiro Notevi 22-02-2010 02:14:23

Echa un vistazo a los enlaces del final de la pantalla, abajo del todo, seguramente encuentras ahí lo que buscas.

Alejo15x 23-02-2010 01:38:58

Bueno, eh soluciònado una parte. Pero el problema es, que al tomar la foto al programa, se ve toda negra. Ya que la ventana esta en DirectX 9.0

Código Delphi [-]
function Tibia.WindowSnap(windowHandle: HWND; bmp: TBitmap): boolean;
var
r: TRect;
user32DLLHandle: THandle;
printWindowAPI: function(sourceHandle: HWND; destinationHandle: HDC; nFlags: UINT): BOOL; stdcall;
begin
result := False;
user32DLLHandle := GetModuleHandle(user32) ;
if user32DLLHandle <> 0 then
begin
@printWindowAPI := GetProcAddress(user32dllhandle,'PrintWindow') ;
if @printWindowAPI <> nil then
begin
GetWindowRect(windowHandle, r) ;
bmp.Width := r.Right - r.Left;
bmp.Height := r.Bottom - r.Top;
bmp.Canvas.Lock;
try
result := printWindowAPI(windowHandle, bmp.Canvas.Handle, 0) ;
finally
bmp.Canvas.Unlock;
end;
end;
end;
end;

Toma la imagen y todo, pero queda negra el contenido. P.S Uso delphi 2010

cocute 23-02-2010 10:15:30

me parece que no es nada facil hacer lo que pides, lee este post:
http://www.clubdelphi.com/foros/showthread.php?t=54682


La franja horaria es GMT +2. Ahora son las 15:13:01.

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