FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Capturando pantallas
Hola amigos.
Trabajo con Delphi 7.0 y Windows 98SE. Baje una rutina de Trucomania(no me acuerdo bien) donde capuraba la toda la pantalla del windows.... tengo una aplicacion que graba las pantalla cada cierto tiempo en disco y la capturo en otra maquina....... Pero me he dado con la soorpresa que cuando uno entra al DOS en pantalla completa no captura la pantalla. Debo suponer que la rutina solo captura pantallas windows (alguna posicion segmento/desplazamiento en memoria)... Aca el codigo :-) Código:
procedure Pantalla(Socket:TCustomWinSocket; cFile:String); var Escritorio: THandle; dc : HDC; Bmp : TBitmap; jpeg : TJpegImage; //fhandle : Integer; //Tamanno : String; begin try Escritorio := GetDeskTopWindow; dc := GetDC( Escritorio ); Bmp := TBitmap.Create; Bmp.Width := Screen.Width; Bmp.Height := Screen.Height; BitBlt( Bmp.Canvas.Handle , 0 , 0 , Screen.Width , Screen.Height , dc , 0 , 0 , SRCCOPY ); Application.ProcessMessages; Jpeg := TJpegImage.Create; Jpeg.Assign( bmp ); Jpeg.CompressionQuality := 30; Jpeg.Compress; Jpeg.SaveToFile( cFile ); socket.sendtext('PANTALLA'); Jpeg.Free; Bmp.Free; ReleaseDC( Escritorio , dc ); Application.ProcessMessages; //FHandle := FileOpen(cFile, 0); //Tamanno := floattostr(getfilesize(FHandle,nil)); //FileClose(FHandle); //socket.sendtext('PANTALLA ['+trim(tamanno)+']'); except end; end; Your friend, StartKill Lima-Perú |
#2
|
||||
|
||||
Así es.. para traer la información de la pantalla de una consola no gráfica, puedes hacerlo con las funciones de Buffer de consola, te recomiendo buscar informacion sobre GetConsoleScreenBufferInfo.
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
||||
|
||||
Hola, primero gracias por responder tan rapido... te comento que corte y pegue la funcion en el delphi y le hice el acostumbrado CTRL+F1 y para mi mala suerte no salio naa.
Por favor si fueran tan amables de darme un poco mas lineas. Gracias Your Friend StratKill Lima-Perú |
#4
|
||||
|
||||
Es que esa función no es propia de Delphi, es una WinApi, puedes ver la ayuda desde el menú de Delphi \ Help \ Windows SDK
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
|
|
|