Problemas con Clipboard

[madiazg]

He estado haciendo pruebas y el problema parece ser que se produce con imágenes de gran tamaño. Lo que desconozco es a partir de qué tamaño de fotografía se produce el error y, sobre todo, por qué se produce el error y como evitarlo.
¿Alguien puede ayudarme?

Saludos...
Miguel Angel

[[escafandra]]

Prueba así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Picture : TPicture;
begin
  if Clipboard.HasFormat(CF_PICTURE) then
  begin
    Picture := TPicture.Create;
    Try
      Picture.Assign(Clipboard);
    Finally
      Image1.Picture.Assign(Picture);
      Picture.Free;
    End;
  end;
end;

Saludos.

[madiazg]

Gracias escafandra por tu interés pero sigue el mismo problema y con el mismo mensaje de error.

Con la imagen más pequeña se ejecuta correctamente pero no así cuando intento copiar una imagen de un tamaño mayor como la del ejemplo que indiqué en mi primer mensaje.

Saludos...
Miguel Angel