Error al capturar 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!!