Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-09-2003
Adrix Adrix is offline
Miembro
 
Registrado: jul 2003
Ubicación: Argentina
Posts: 23
Poder: 0
Adrix Va por buen camino
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!
Responder Con Cita
  #2  
Antiguo 08-09-2003
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 27
delphi.com.ar Va por buen camino
Te recomiendo este Link:
http://software.iamcal.com/cvs/viewc..._with_tag=MAIN

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #3  
Antiguo 08-09-2003
Adrix Adrix is offline
Miembro
 
Registrado: jul 2003
Ubicación: Argentina
Posts: 23
Poder: 0
Adrix Va por buen camino
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!
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 12:07:26.


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
Copyright 1996-2007 Club Delphi