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 |
#7
|
||||
|
||||
Pues es muy raro, el código que puse lo copié tal cual de la prueba que hice y funcionó bien. Por el error que te marca tal pareciera que no estuvieras usando la unidad Jpeg de Delphi (el error significa que la clase TJPegImage no define el método AssignTo) o quizá tu versión aún no lo maneja. Yo lo he probado en Delphi 7.
// Saludos |
#8
|
||||
|
||||
El error contínua
Hermano Roman, todavía continuo con el error. Tu recomendación del uses unit también está corregida. Me pregunto cual es el error. He realizado varias pruebas pero me da vuelta la cabeza. Gracias.....
|
#9
|
|||
|
|||
sierraja:
En delphi 7 me funciono muy bien el primer codigo... Que version de delphi usas? y que maquina tienes? Que tan grande es la imagen a convertir?. Si me la envias puedo hacer la prueba.
__________________
if Vivir = Vivir + Aprender then Aprender = ? Alfredo Borges |
#10
|
||||
|
||||
El error continua...
Gracias por tu atención:
Versión de Delphi= 6.0 Delphi Enterprise S.O.=Windows 2000 SP4 Máquina: procesador x86 (pentium III) 260Kb RAM Tamaño de la imagen= 6k Hermano he realizado cualquier prueba y siempre se me cae en lo mismo. De antemano muchas gracias por tu atención. |
#11
|
|||
|
|||
Y que tal en un proyecto nuevo y mejor si reinstalas delphi.
|
#12
|
|||
|
|||
Cita:
__________________
if Vivir = Vivir + Aprender then Aprender = ? Alfredo Borges |
#13
|
||||
|
||||
Echarle Lupa
Gracias por su atencion.
Realmente he hecho muchas preguntas y he tratado de realizar cualquier cosa que se me ocurra a mi y otras personas y no he tenido resultados favorables, intentaremos de nuevo. La necesidad que tengo es almacenar en un archivo db.gdb (interbase, campo blob) una imagen proveniente de BMP y/o JPG, pero tengo problemas para pasar una imagen de jpg a bmp y no he podido, al principio del foro esta una rutina pero no me funciona. Recientemente encontré una rutina que te anexo al final, donde lee archivos bmp y jpg y los almacena en un archivo gdb y en un campo blob. Esta rutina la ejecuto en mi computador y me funcionan, es màs, la pego en mi proyecto y funciona, trato de desmembrarla para aplicarla a mi proyecto y no encuentro el momento en que se graba en la base de datos, puede ser por falta de conocimiento del funcionamiento de la funcion o simplemente no la veo. Por tal motivo, me veo en la necesidad de enviarte el fuente y esperando cualquier tipo de ayuda. Adolfo Sierra Venezuela
Última edición por roman fecha: 15-03-2005 a las 21:51:17. Razón: agregar etiquetas [delphi] para mayor legibilidad |
#14
|
||||
|
||||
Echarle Lupa
A todos, quien me puede ayudar
|
|
|
|