FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Conversion de BMP a JPG
Amigos, por favor necesito convertir ficheros BMP a JPG he utilizado una rutina que circula por alli pero no me funciona. Y para los que conocen la rutina se ubicaran cuando les indique que el error me da cuando llega a la linea bmp.canvas.draw(0,0,jpg). Me dice que los tipos son distintos. Por favor necesito que me ayuden. Gracias Adolfo Sierra (sierraja2000@yahoo.com)
|
#2
|
||||
|
||||
Pues no dejas mucho rango para ayudarte. Si pones la rutina o mencionas de dónde la sacaste quizá alguien pueda determinar en qué falla.
// Saludos |
#3
|
||||
|
||||
Hermano disculpa, tienes razón, pensé que conocías la siguiente rutina:
procedure TForm1.Button2Click(Sender: TObject); var MyJPEG : TJPEGImage; MyBMP : TBitmap; begin { Convert a JPEG to a BMP } MyJPEG := TJPEGImage.Create; with MyJPEG do begin LoadFromFile('YourJpegHere.JPEG'); MyBMP := TBitmap.Create; with MyBMP do begin Width := MyJPEG.Width; Height := MyJPEG.Height; Canvas.Draw(0,0,MyJPEG); ////aqui es donde me da el error///// SaveToFile('YourBmpHere.BMP'); Free; end; Free; end; end; Esta rutina aparece en varios foros y paginas que he consultado. Sólo quiero convertir un jpg a bmp para luego almacenarlo en un campo Blob de interbase posteriormente. Hermano de antemano gracias por tu atención.... |
#4
|
||||
|
||||
¿Y ésta no te sirve?
// Saludos |
#5
|
||||
|
||||
El Error continua
El error continua y aparece en la linea:
Bitmap.Assign(jpg); Y el error que aparece es: Cannot assign a TJPEGImage to TBitmap. EL codigo está tal y cual tu lo escribiste. Gracias |
#6
|
||||
|
||||
El error continua...
El error continua y aparece en la linea:
Bitmap.Assign(jpg); Y el error que aparece es: Cannot assign a TJPEGImage to TBitmap. EL codigo está tal y cual tu lo escribiste. Gracias |
|
|
|