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/images/Models/Daniella/D09x.jpg

Si copio esta otra produce el error Unsupported clipboard format.
http://www.plano3dphotography.com/images/Models/Cassie/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í:
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