Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   Metafile a Jpg, o bmp (https://www.clubdelphi.com/foros/showthread.php?t=3462)

Adrix 08-09-2003 16:26:57

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!:)

delphi.com.ar 08-09-2003 18:31:08

Te recomiendo este Link:
http://software.iamcal.com/cvs/viewc..._with_tag=MAIN

Saludos!

Adrix 08-09-2003 20:08:15

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;

Pero al grabarlo queda en el tamaño original, y necesito que si la imagen que se pega en el RxRichEdit se redimensiona, al volver a copiarla al clipboard el tamaño sea el que el usuario le dio...
No se si se entiende bien lo que quiero decir...
Bueno espero que alguien pueda entenderme y ayudarme!
Gracias!
:)


La franja horaria es GMT +2. Ahora son las 00:36:02.

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