Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   Problemas con Clipboard (https://www.clubdelphi.com/foros/showthread.php?t=67656)

madiazg 28-04-2010 19:47:15

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

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 30-04-2010 10:59:18

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 30-04-2010 11:25:50

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 30-04-2010 17:22:46

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


La franja horaria es GMT +2. Ahora son las 12:21:29.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi