Problemas con Clipboard

[madiazg]

Hola,
tengo problemas para copiar una imagen desde el clipboard.
Utilizo el siguiente código:

procedure TForm1.Button1Click(Sender: TObject);
var
  Memoria : TMemoryStream;
  bitmap : TBitmap;
begin
  if Clipboard.HasFormat(CF_BITMAP) then
  begin
    Bitmap := TBitMap.Create;
    Try
      Bitmap.PixelFormat := pf24bit;
      Bitmap.Assign(Clipboard);
    Finally
      Image1.Picture.Bitmap.Assign(bitmap);
      bitmap.Free;
    End;
  end;
end;

Si copio esta imagen desde el navegador no tengo ningún problema:
http://www.plano3dphotography.com/im...iella/D09x.jpg

Si copio esta otra produce el error Unsupported clipboard format.
http://www.plano3dphotography.com/im...ssie/CJ09X.jpg

¿Saben cuál puede ser el problema?

Saludos...
Miguel Angel

[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