Una preguntonta.... qué componente me sugieren para cargar cualquier tipo de imágenes (*.jpeg, *.jpg, *.ico, *.bmp, *.gif).... etc ?

Grax a todos por su ayuda !!!


Escrito 28 septiembre 2010 - 09:58
Escrito 28 septiembre 2010 - 09:59
Escrito 28 septiembre 2010 - 10:01
Escrito 28 septiembre 2010 - 10:02
Escrito 28 septiembre 2010 - 10:03
Pero si quiero cargar un bitmap o un gif con el TImage me produce el siguiente error:
Bitmap Image is not valid
Saludox !
Escrito 28 septiembre 2010 - 10:03
Saludos.
¿Con cuales fines necesitas subir la imagen? Porque si es para imprimirla puedes tener ciertos inconvenientes.
Escrito 28 septiembre 2010 - 10:07
Escrito 28 septiembre 2010 - 10:07
Pero si quiero cargar un bitmap o un gif con el TImage me produce el siguiente error:
Bitmap Image is not valid
Saludox !
Pero en tiempo de ejecución??? o en diseño???
Escrito 28 septiembre 2010 - 10:12
En ambos casos me manda el mismo error....
En caso de quiera cargar un *.gif me envía el error:
"Unknown picture file extension"
Saludox !
Escrito 28 septiembre 2010 - 10:13
En ambos casos me manda el mismo error....
En caso de quiera cargar un *.gif me envía el error:
"Unknown picture file extension"
Saludox !
Bastante extraño, versión de Delphi??
Escrito 28 septiembre 2010 - 10:14
Escrito 28 septiembre 2010 - 10:21
Escrito 28 septiembre 2010 - 10:21
Escrito 28 septiembre 2010 - 10:29
var m : TStream; /* Tienes q hacer un stream del archivo, aquí proviene de un blob de un registro de una tabla de base de datos*/ m := MainModule.ZTable1.CreateBlobStream(MainModule.ZTable1IMG, bmRead); try SetLength(FirstBytes, 8); m.Read(FirstBytes[1], 8); if Copy(FirstBytes, 1, 2) = 'BM' then Image1.Picture.Graphic := TBitmap.Create else if FirstBytes = #137'PNG'#13#10#26#10 then Image1.Picture.Graphic := TPngImage.Create else if Copy(FirstBytes, 1, 3) = 'GIF' then Image1.Picture.Graphic := TGIFImage.Create else if Copy(FirstBytes, 1, 2) = #$FF#$D8 then Image1.Picture.Graphic := TJPEGImage.Create; try m.Seek(0,0); Image1.Picture.Graphic.LoadFromStream(m); except end; finally m.Free; end;
Escrito 28 septiembre 2010 - 10:33
Escrito 28 septiembre 2010 - 10:37
Escrito 28 septiembre 2010 - 10:40
Escrito 28 septiembre 2010 - 10:44
Me estoy dando cuenta de que no todos los *.bmp me provocan errores ... ésto es aún más extraño de lo que pensaba.... sigo investigando
Escrito 28 septiembre 2010 - 10:45
Solo un detalle, PNGImage no está disponible en D2007, me parece que es hasta 2009.