funcion de conversion de JPGToBMP

[kapullok_2006]

Saben de alguna funcion que haga conversión de jpg a bmp?
Lo importante es que no se pierda calidad de la imagen.



Saludos.

[[xEsk]]

http://q3.nu/trucomania/truco.cgi?193&esp

[jhonny]

O este, http://www.clubdelphi.com/trucos/ind...ll=0&scrollb=0 y tambien este http://www.clubdelphi.com/trucos/ind...l=0&scrollb=19

[kapullok_2006]

Hola,
estuve probando las recomendaciones q me dijeron y no me funciona con lo sgte:

Código Delphi [-]
if (Form1.Memo1.Lines.Strings[i+offset]='*.jpg') then //parece q no me encuentra esta línea.Lo que quiero es q encuentre los jpg y los pase a bmp
       begin
         MyJPEG := TJPEGImage.Create;
         with MyJPEG do
         begin
              Form1.Memo1.Lines.Strings[i+offset]:='*.jpg';
              LoadFromFile(Form1.Memo1.Lines.Strings[i+offset]);
              MyBMP := TBitmap.Create;
              with MyBMP do
              begin
                Width := MyJPEG.Width;
                Height := MyJPEG.Height;
                Canvas.Draw(0,0,MyJPEG);
                Form1.Memo1.Lines.Strings[i+offset]:='*.bmp';
                SaveToFile(Form1.Memo1.Lines.Strings[i+offset]);
                Free;
             end;
             Free;
         end;

No quiero que se sobreescriban los bmp nuevos,con los jpg q he pasado a bmp.
Saludos.