Como cargar una imagen JPG en un DBIMAGE

[flystar]

Amigos, hermanos:

Ya Resolví el problema exactamente como lo necesita saben como?

Con el componente TEDBImage que es IGUALITO que el dbimage
pero con todas las funcionalidades para manejar CUALQUIER tipo de imagen popular, Ah pero cuidado!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

NO funciona sin las librerias GraphicEx que tambien son gratuitas,
estas ultimas solamente las deben copiar en el directorio donde desempacaron
el componenten TEDBImage y ya.
DE hecho las pueden usar en cualquier aplicacion simplemente copiando las unidades en el directorio de trabajo de su proyecto y mandarlas llamar en el uses.

Espero esto le sirva a alguien, hasta se me hace muy "estupido" que Delphi 5 no pueda cargar una imagen Jpg en un componente DBimage simple..es raro.

[ixMike]

Y yo que te iba a decir que añadieras la unit Jpeg a la uses de tu form .


Salu2.

[flystar]

Oh Muchas Gracias Amigo!!!

Tambien lo voy a probar

[flystar]

Ya probe que agregar la unidad jpg no soluciona el problema
te sigue marcando error en el dbimage al cargar una foto formato JPG


Gracias.

[jorge82]

Empezado por flystar

Ya probe que agregar la unidad jpg no soluciona el problema
te sigue marcando error en el dbimage al cargar una foto formato JPG


Gracias.

A mi me funciona con solo añadir la unidad Jpeg al uses, con eso puedo cargar cualquier imagen con esa extensión.

¿Te marca algún error en específico?

-
Un saludito.

[Delfino]

Con el componente TEDBImage que es IGUALITO que el dbimage

Mejor q este seguro es el JvDBImage de la JVCL, permite grabar casi todos los tipos de imagenes incluidos los gif y png y ani ..

[spia]

hola amigo que tal mira el problema es que con el dbimage si las puedo leer las jpg y cuando la seleccione para abrir si me la muestra en el dbimage pero cuando le doy al navigator grabar ahi es cuando me la desaparece y cuando son formato *.bmp esas si me las graba gracias

[spia]

hola amigo yo tambien tengo el problema de que no puedo grabar la imagen en jpg. solo me acepta bmp haber si me puedes ayudar con esto gracias


[

[jorge82]

Empezado por spia

hola amigo yo tambien tengo el problema de que no puedo grabar la imagen en jpg. solo me acepta bmp haber si me puedes ayudar con esto gracias


[

Para guardar la imagen como .jpg haz lo siguiente:
Un TImage y un TButton.
Doy por sentado que ya añadiste la unidad Jpeg al uses...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  jpg: TJPEGImage;
begin
  with TSaveDialog.Create(Self) do
  begin
    Filter:= GraphicFilter(TJPEGImage);
    DefaultExt:= GraphicExtension(TJPEGImage);
    if Execute then
    begin
      jpg:= TJPEGImage.Create;
      jpg.Assign(Image1.Picture.Bitmap);
      jpg.SaveToFile(Filename);
      jpg.Free;
    end;
  end;
end;

Con lo anterior conviertes cualquier imagen que tengas en Image1 a Jpg.

EDIT: Si quieres comprimir la imagen antes de guardar...
añade estas dos líneas antes de llamar a SaveToFile:

Código Delphi [-]
jpg.CompressionQuality:= 80; // 1=Peor calidad, menor tamaño <-> 100=Mejor calidad mayor tamaño 
jpg.Compress;

-
Un saludito.