FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Metafile a Jpg, o bmp
Hola!. Tengo el siguente problemita: yo queria insertar imagenes en un texto, eso lo solucione gracias a que me ayudaron en este mismo foro recomendandome el RxRichEdit. El tema se me complica porque al copiar nuevamente la imagen pegada, para poder guardarla en un archivo, el formato que tiene es Metafile y yo preciso guardarlo como jpg, o de ultima como bmp.
¿Como puedo hacer para transformarla? Gracias! |
#2
|
||||
|
||||
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
Gracias delphi.com.ar por tu respuesta, pero a decir verdad no entendi casi nada de lo del enlace, porque tengo poca experiencia en programar (casi nula comparada con la de ustedes!!!). Bueno, pero igual gracias al truco 254 de trucomania, con algun que otro cambio llegue a esto:
Código:
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; No se si se entiende bien lo que quiero decir... Bueno espero que alguien pueda entenderme y ayudarme! Gracias! |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|