FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Convertir de BMP a JPG y viceversa
De BMP a JPG
De JPG a BMP
|
#2
|
|||
|
|||
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. |
|
|
|