Error al capturar la pantalla!!

[DarkByte]

Hola de nuevo, estoy haciendo una aplicación para iniciarme en el uso de Streams y los componentes Indy. La aplicación trata de que el servidor hace una captura de la pantalla y se la envía al cliente. Tengo un TImage en el servidor para ver cómo sale la imagen que captura, la captura es de una pequeña porción de la pantalla, la cual la amplía en el Image, el cual tiene sus propieades Stretch en True y AutoSize en False;

El código del Timer que hace la captura de la pantalla (imgEnviar es el nombre del TImage):

procedure TExplorer.Timer1Timer(Sender: TObject);
var
  DeskTop : TCanvas ;
begin
  DeskTop := TCanvas.Create ;
  try
    with DeskTop do
      Handle := GetWindowDC (GetDesktopWindow) ;
    with imgEnviar.Canvas do
    CopyRect (Rect (0, 0, screen.Width, screen.Height),DeskTop,Rect (0, 0, screen.Width, screen.Height));
  finally
    DeskTop.Free
  end

end;

Este código lo he encontrado en trucomanía y lo he modificado cómo venía en un hilo de ClubDelphi llamado "Optimizar el envío de una imagen (JPG)" o algo así.

Mi pregunta es: ¿Cómo puedo hacer que me haga una captura completa de la pantalla?

[delphi.com.ar]

Empezado por DarkByte

¿Cómo puedo hacer que me haga una captura completa de la pantalla?

A simple vista, es lo que estas haciendo con este código!

[cone220]

Para que te tome toda la pantalla, deberías hacer:

imgEnviar.Height := screen.Width;
imgEnviar.Width := screen.Height;

De esa manera, vas a tener la imágen de toda la pantalla.

Saludos

Federico

[Amilius]

Te sugiero que la amplies la imagen DESPUES de mandarla por red.

Tambien es mejor si usas directamente el "Bitblt" (Usando el handle que obtienes) para no crear ese Tcanvas por que no estás usando las funciones para graficar lineas, texto, etc. que son enormemente facilitadas por el Tcanvas.

[DarkByte]

¿Tiene algo que ver el tamaño del TImage del servidor?

[DarkByte]

Empezado por cone220

Para que te tome toda la pantalla, deberías hacer:

imgEnviar.Height := screen.Width;
imgEnviar.Width := screen.Height;

De esa manera, vas a tener la imágen de toda la pantalla.

Saludos

Federico

Me da error al poner el TImage que ocupe toda la pantalla

... raised exception class EWriteError with message 'Stream write error".Process stopped ...

¿Sabéis cual es el error u os hace falta el código del stream del servidor y cliente?

[DarkByte]

Nadie sabe lo que pasa?

[opardor]

En lugar de usar el TImage te recomiendo uses TBitmap y luego se lo asignes al imgEnviar..

procedure TExplorer.Timer1Timer(Sender: TObject);
var
  DeskTop : TBitmap ;
begin
  DeskTop := TBitmap.Create ;
  try
	with DeskTop do begin
	  Handle := GetWindowDC (GetDesktopWindow) ;
	  Width :=  GetDeviceCaps( handle, HORZRES );
	  Height := GetDeviceCaps( handle, VERTRES );
	  BitBlt(Canvas.Handle,0,0,Width, Height,handle,0,0,SRCCOPY);
	  imgEnviar.Picture.Bitmap := Desktop;
   end;
 finally
   DeskTop.Free;
 end
end;

Espero te sirva!!