Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-06-2006
Avatar de Emilio
*Emilio* Emilio is offline
Capo
 
Registrado: may 2003
Ubicación: Palma de Mallorca
Posts: 2.635
Poder: 10
Emilio Va por buen camino
Convertir de BMP a JPG y viceversa

De BMP a JPG

Código Delphi [-]
uses  JPEG;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyJPEG : TJPEGImage;  
  MyBMP  : TBitmap;
begin  
  MyBMP := TBitmap.Create;  
  with MyBMP do    
  try
    LoadFromFile('A.BMP');      
    MyJPEG := TJPEGImage.Create;
    with MyJPEG do 
        begin        
            Assign(MyBMP);
            SaveToFile('A.JPEG');        
            Free;      
        end;    
   finally
      Free;    
   end;
end;

De JPG a BMP

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  MyJPEG : TJPEGImage;  
  MyBMP  : TBitmap;
begin  
  MyJPEG := TJPEGImage.Create;  
  with MyJPEG do 
     begin
         LoadFromFile('A.JPEG');    
         MyBMP := TBitmap.Create;
         with MyBMP do 
            begin      
                Width := MyJPEG.Width;
                Height := MyJPEG.Height;      
                Canvas.Draw(0,0,MyJPEG);
        SaveToFile('A.BMP');      
                Free;    
             end;    
         Free;  
     end;
end;
Responder Con Cita
  #2  
Antiguo 11-06-2007
kapullok_2006 kapullok_2006 is offline
Miembro
 
Registrado: mar 2007
Posts: 90
Poder: 18
kapullok_2006 Va por buen camino
Yo tengo le siguiente código:

procedure JPGToBMP(f_jpg,f_bmp: string);
var jp: TJPEGImage;
b: TBitMap;
begin
jp:= TJPEGImage.Create;
b:= TBitMap.Create;

jp.LoadFromFile(f_jpg);
b.Assign(jp);

b.SaveToFile(f_bmp);

jp.Free;
b.Free;
end;

//-------------------------------------------------------
En un botón he puesto lo siguiente:

if (Form1.Memo1.Lines.Strings[i+offset]='*.jpg') then
begin
JPGToBMP(Form1.Memo1.Lines.Strings[i+offset],Form1.Memo1.Lines.Strings[i+offset]);
ImageEfecto1.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[i+offset]);
end

//--El programa no da error,pero por lo visto no hace la
conversion de un string de un memo1 q tiene un jpg a un bmp.
Ya que el componente imageefecto1,realiza efectos para bmp's.Este componente me lo recomendaron en estos foros.
Creo q me lo descargué de www.torry.net.el componente es
ProEffectImage.si deseas mirarlo y no lo encuetras,me dices
tu correo y te envío el componente.
saludos.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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 02:25:01.


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