Capturando pantallas

[StartKill]

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 :-)

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;

Si fueran tan amables de ayudarme a solucionar este problema estare muy agradecido.

Your friend,

StartKill
Lima-Perú

[delphi.com.ar]

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!

[StartKill]

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ú

[delphi.com.ar]

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!