Programación General > Delphi
Recuperación De Un Metafile Desde El Portapapeles
fxge:
Saludos:
Tengo un metafile en el portapaples y lo estoy tratando de mostrar en un control TImage a traves de la instrucción:
image1.Picture.Metafile.LoadFromClipboardFormat(Aformat,Adata,Apalette);
Según la documentación, esto debería ser suficiente para cargar el gráfico, pero se origina una excepción con el mensaje "Unsupported clipboard format"
El metafile está allí y es correcto (puede cargarse con Word, p. ejemplo) si se verifica el contenido del clipboard con Delphi se encuentran los formatos cf_metafilepict y cf_enhmetafile presentes.
Conseguí una referencia a este problema en la web pero era un foro en un idioma ininteligible para mí (¿turco?)
Agradezco cualquier ayuda que puedan ofrecerme.
Gracias de antemano.
bartolomeo:
Hola, disculpa la demora pero tengo que presentar un avance de mi proyecto y estoy supercomplicado con eso:
mirate estos link:
http://www.latiumsoftware.com/es/pascal/0011.php
http://community.borland.com/article/0,1410,15878,00.html
fxge:
Agradezco tu respuesta pero no veo como utilizar el enfoque de recuperar metaarchivos de bases de datos para resolver mi problema.... Estoy tratando de cargar el metaarchivo presentes en el portapapeles. :)
Saludos
bartolomeo:
Nooooo lo visteee?????
bueno aqui te mando mas pistass.
Trucos 252 y 254, te podran servir con algunas modificaciones
bartolomeo:
--- Código: Text ---procedure TForm1.WmfToJPG(FicheroJPG:string);var MetaFile:TMetafile; BMP:TBitmap; JPG:TJpegImage;begin If clipboard.HasFormat(CF_METAFILEPICT) then begin Metafile:=TMetaFile.create; Bmp:=TBitmap.create; JPG:=TJpegImage.Create; MetaFile.Assign(clipboard); with Bmp do begin Height:=Metafile.Height; Width:=Metafile.Width; Canvas.Draw(0,0,MetaFile); end; JPG.Assign(BMP); JPG.SaveToFile(FicheroJPG); bmp.Free; MetaFile.Free; JPG.Free; end;end;
Pero espera el problema es especificamente en el portapapeles????
Navegación
[#] Página Siguiente
Ir a la versión completa