8 replies to this topic

[enecumene]

Hola a todos, tengo una aplicación cliente donde el usuario carga varias imágenes en un dataset (Almaceno su ruta no la imagen en sí) y luego procedo copiar cada uno a una carpeta compartida, hasta ahora todo bien, pero necesito reducir el peso de esas imágenes, por ejemplo, si un usuario intenta copiar una imagen que tiene una resolución de 1200x764 y un peso digamos de 4MB, puede ser imágenes Jpg, Gif o PNG, mas regularmente JPG, a un peso más reducido por lo menos 1MB hacia abajo, ¿cómo se podría hacer eso conjuntamente con la función CopyFile que estoy utilizando?.

 

Saludos

 

 vme.png   43.23KB   2 downloads

[Delphius]

Mucho me temo amigo que con Copy no hay forma de conseguir reducirle el tamaño. Una copia es una copia.

Y como seguramente sabes, JPG es ya un formato de compresión con pérdida, pero compresión al fin y a cabo. Lamentablemente lo que incide más en el tamaño del archivo es la resolución con la cual fue sacada y no hay mucho por hacer... salvo que apliques un cambio de resolución y sacrificarse a que se pierda mucha calidad e información.

Lo que en última podría hacerse, y que yo propondría, es convertir esas imágenes a PNG. PNG es un formato de compresión sin pérdida, y tiende a ser mucho más liviano que el JPG.

 

Si en verdad lo que les está preocupando es el espacio en disco, ya que están midiendo demasiado cuanto pesan los archivos, yo les sugeriría que inviertan en un disco de más capacidad. O que en todo caso capturen las imágenes a menor resolución. A mi entender es un esfuerzo casi inútil buscar reducir el peso de los archivos de imágenes... ¡ni con pasarle una compresión con 7zip u otro se gana mucho!

 

Saludos,

[enecumene]

Hola Delphius, lo que me refería es hacer la reducción antes de hacer la copia, o sea, crear una imagen nueva ya reducida (ya sea en un stream o en una carpeta temporal) y realizar la copia de ésta y no la original, lo que mas me preocupa no es el espacio, sino, más bien la carga de las imágenes desde la red, ¿o no es de preocuparse?.

Saludos.

[Delphius]

Ha, ahora entiendo mejor.

Si lo pasas a un stream lo bueno es que con éste lo puedes llevar a cualquier tipo de imagen, como para aplicar la conversión como te sugeria.

 

Sobre la carga desde red (ya sea LAN o internet) no te sabría decir... Si son unos cuantas no creo que sea tan significativo y preocupante... Ahora si es una carga masiva y/o que se va a estar realizando con mucha frecuencia si es un tanto más complicado el asunto. No estoy muy seguro, pero creo que otro buen motivo por el que se estila codificar imagenes en Base64 es que es muy rápido de enviar. Como última opción en lugar de estar comprimiendo, si es que esto de Base64 sirve para ganar algo de velocidad, lo puedes codificar y luego al recibirlo lo decodificas.

 

Saludos,

[genriquez]

Hola enecumene
 
Definitivamente no hay manera de reducir una imagen sin pérdida de calidad, pero se requiere, sobre todo en el caso del envío de imágenes por internet,  lo mejor en estos casos es guardar la imagen del tamaño necesario para el formato de salida,  ej.  de nada te sirve una imagen de 1024, si el lugar donde va la imagen es de solo 200 pixeles,  obviamente existen diferentes métodos para reducir imágenes, algunas con mayor o menor grado de calidad.  pero para las aplicaciones comerciales normales, como mostrar la imagen del producto, es más que suficiente.
 
En firemonkey está casi todo hecho, es mucho más sencillo, pero asumo que estamos hablando de VCL,  por lo tanto los ejemplos que te doy son de VCL, si requieres de firemonkey me avisas y revisamos ese tema que también es fascinante.
 
En VCL el formato para la manipulación de imágenes es del BMP, así que prácticamente hay que llevarlo todo a BMP, manipularlo y finalmente retornarlo al formato requerido, en VCL hasta donde trabajé el PNG no es muy usado, no se ahora,  el estándar más usado es el JPG, mientras que en firemonkey casi todo es sobre PNG.

delphi

Function LoadImageFromFile(FileName : String) : TBitMap;  //Lee casi cualquier formato de un archivo y retorna un bitmap de la imagen 
Function ScaleImage(Image : TBitMap; Alto : Integer) : TBitMap;    //Dado el alto de una imagen, la escala proporcionalmente
Function BitMapToJPG(Bm : TBitMap; CompressRate : Integer) : TJPEGImage;  //convierte un bitmap en un JPG con una taza de compresión
Function CrearMiniaturaImg(FileName : String; Alto : Integer) : TJPegImage; //Crea una miniatura de un archivo, sin importar el formato 
Function GetImageFormat(Stream : TStream) : String;  //Retorna un string con la extensión del archivo
Function LoadGraphicFromFile(FileName : String) : TGraphic;  //lee un archivo y crea el objeto de acuerdo al formato
Function LoadGraphicFromStream(St : TStream) : TGraphic;  //Lee un stream y crea el objeto de acuerdo al formato
Function GraphicToBitmap(Graphic : TGraphic) : TBitMap; //Convierte cualquier grafico a un bitmap

delphi

Function LoadImageFromFile(FileName : String) : TBitMap;
var
  jp   : TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
  bm   : TBitmap;
  Mf   : TMetaFile;
  Ic   : TIcon;
  Gif  : TGIFImage;
  png  : TPngImage;
  Ext  : String;
  Ext1 : String;
  St   : TMemoryStream;
Begin
   If Not FileExists(FileName) then
      Raise Exception.create('El archivo "'+FileName+'" no existe');
 
   Result := Nil;
   Ext := Trim(AnsiLowerCase(ExtractFileExt(FileName)));
 
   St := TMemoryStream.Create;
   St.LoadFromFile(FileName);
   St.Position := 0;
 
   Ext1 := AnsiLowerCase(GetImageFormat(St));
 
   If Ext1 <> '' then  //Revisa el formato real del archivo, sin importar el nombre del archivo.
      Ext := Ext1;
 
 
   If not ((ext = '.jpg') or (ext = '.jpeg') or (ext = '.bmp') or
           (ext = '.ico') or (ext = '.emf')  or (ext = '.wmf') or
           (ext = '.gif') or (ext = '.png')) then
      Raise Exception.Create('El formato "'+Ext+'" del archivo no es soportado');
 
 
   St.Position := 0;
   Bm := TBitMap.Create;
 
  Try
 
     If (ext = '.jpg') or (ext = '.jpeg') then
     Begin
        jp   := TJPEGImage.Create;
        Jp.LoadFromStream(St);
        bm.Assign(Jp);
        Result     := Bm;
        FreeAndNil(Jp);
     End
     Else
     If (ext = '.gif') then
     Begin
        Gif  := TGIFImage.Create;
        Gif.LoadFromStream(St);
        bm.Assign(Gif);
        FreeAndNil(Gif);
     End
     Else
     If (ext = '.png') then
     Begin
        Png  := TPngImage.Create;
        Png.LoadFromStream(St);
        bm.Assign(Png);
        Result  := Bm;
        FreeAndNil(Png);
     End
     Else
     If (ext = '.ico') then
     Begin
        Ic   := TIcon.Create;
        Ic.LoadFromStream(St);
        Bm.Width  := Ic.Width;
        Bm.Height := Ic.Height;
        Bm.Canvas.Draw(0,0,Ic);
        Result     := Bm;
        FreeAndNil(Ic);
     End
     Else
     If (ext = '.emf') or (ext = '.wmf') then
     Begin
        Mf   := TMetaFile.Create;
        Mf.LoadFromStream(St);
        Bm.Width  := Mf.Width;
        Bm.Height := Mf.Height;
        Bm.Canvas.Draw(0,0,Mf);
        Result     := Bm;
        FreeAndNil(Mf);
     End
     Else
     If (ext = '.bmp')  then
     Begin
        Bm.LoadFromStream(St);
        Result     := Bm;
     End
     Else
        Raise exception.create('El formato del archivo "'+FileName+'" no es soportado');
 
  Finally
  End;
End;
 
Function LoadGraphicFromFile(FileName : String) : TGraphic;
var
  jp   : TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
  bm   : TBitmap;
  Mf   : TMetaFile;
  Ic   : TIcon;
  Gif  : TGIFImage;
  png  : TPngImage;
  Ext  : String;
  Ext1 : String;
  St   : TMemoryStream;
Begin
   If Not FileExists(FileName) then
      Raise Exception.create('El archivo "'+FileName+'" no existe');
 
   Result := Nil;
   Ext := Trim(AnsiLowerCase(ExtractFileExt(FileName)));
 
   St := TMemoryStream.Create;
   St.LoadFromFile(FileName);
   St.Position := 0;
 
   Ext1 := AnsiLowerCase(GetImageFormat(St));
 
   If Ext1 <> '' then  //Revisa el formato real del archivo, sin importar el nombre del archivo.
      Ext := Ext1;
 
 
   If not ((ext = '.jpg') or (ext = '.jpeg') or (ext = '.bmp') or
           (ext = '.ico') or (ext = '.emf')  or (ext = '.wmf') or
           (ext = '.gif') or (ext = '.png')) then
      Raise Exception.Create('El formato "'+Ext+'" del archivo no es soportado');
 
 
   St.Position := 0;
 
  Try
 
     If (ext = '.jpg') or (ext = '.jpeg') then
     Begin
        jp   := TJPEGImage.Create;
        Jp.LoadFromStream(St);
        Result     := Jp;
     End
     Else
     If (ext = '.gif') then
     Begin
        Gif  := TGIFImage.Create;
        Gif.LoadFromStream(St);
        Result := Gif;
     End
     Else
     If (ext = '.png') then
     Begin
        Png  := TPngImage.Create;
        Png.LoadFromStream(St);
        Result  := Png;
     End
     Else
     If (ext = '.ico') then
     Begin
        Ic   := TIcon.Create;
        Ic.LoadFromStream(St);
        Result     := Ic;
     End
     Else
     If (ext = '.emf') or (ext = '.wmf') then
     Begin
        Mf   := TMetaFile.Create;
        Mf.LoadFromStream(St);
        Result := Mf;
     End
     Else
     If (ext = '.bmp')  then
     Begin
        Bm := TBitMap.Create;
        Bm.LoadFromStream(St);
        Result     := Bm;
     End
     Else
        Raise exception.create('El formato del archivo "'+FileName+'" no es soportado');
 
  Finally
     St.Free;
  End;
End;
 
Function LoadGraphicFromStream(St : TStream) : TGraphic;
var
  jp   : TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
  bm   : TBitmap;
  Mf   : TMetaFile;
  Ic   : TIcon;
  Gif  : TGIFImage;
  png  : TPngImage;
  Ext  : String;
Begin
   If Not Assigned(St) then
      Raise Exception.create('El formato de Imágen no es válida');
 
   If St.Size < 40 then
      Raise Exception.create('El formato de Imágen no es válida');
 
   Result := Nil;
   St.Position := 0;
 
   Ext := AnsiLowerCase(GetImageFormat(St));
 
   If not ((ext = '.jpg') or (ext = '.jpeg') or (ext = '.bmp') or
           (ext = '.ico') or (ext = '.emf')  or (ext = '.wmf') or
           (ext = '.gif') or (ext = '.png')) then
      Raise Exception.Create('El formato "'+Ext+'" del archivo no es soportado');
 
 
   St.Position := 0;
 
  Try
 
     If (ext = '.jpg') or (ext = '.jpeg') then
     Begin
        jp   := TJPEGImage.Create;
        Jp.LoadFromStream(St);
        Result     := Jp;
     End
     Else
     If (ext = '.gif') then
     Begin
        Gif  := TGIFImage.Create;
        Gif.LoadFromStream(St);
        Result := Gif;
     End
     Else
     If (ext = '.png') then
     Begin
        Png  := TPngImage.Create;
        Png.LoadFromStream(St);
        Result  := Png;
     End
     Else
     If (ext = '.ico') then
     Begin
        Ic   := TIcon.Create;
        Ic.LoadFromStream(St);
        Result     := Ic;
     End
     Else
     If (ext = '.emf') or (ext = '.wmf') then
     Begin
        Mf   := TMetaFile.Create;
        Mf.LoadFromStream(St);
        Result := Mf;
     End
     Else
     If (ext = '.bmp')  then
     Begin
        Bm := TBitMap.Create;
        Bm.LoadFromStream(St);
        Result     := Bm;
     End
     Else
        Raise exception.create('El formato del archivo "'+Ext+'" no es soportado');
 
  Finally
  End;
End;
 
Function GraphicToBitmap(Graphic : TGraphic) : TBitMap;
var
  jp   : TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
  bm   : TBitmap;
  Mf   : TMetaFile;
  Ic   : TIcon;
  Gif  : TGIFImage;
  png  : TPngImage;
Begin
 
  Bm := TBitMap.Create;
 
 
  Try
     If Graphic is TJPEGImage then
     Begin
        jp   := TJPEGImage(Graphic);
        bm.Assign(Jp);
        //Result     := Bm;
     End
     Else
     If Graphic is TGIFImage then
     Begin
        Gif  := TGIFImage(Graphic);
        bm.Assign(Gif);
        //Result     := Bm;
     End
     Else
     If Graphic is TPngImage then
     Begin
        Png  := TPngImage(Graphic);
        bm.Assign(Png);
        //Result     := Bm;
     End
     Else
     If Graphic is TIcon then
     Begin
        Ic   := TIcon(Graphic);
        Bm.Width  := Ic.Width;
        Bm.Height := Ic.Height;
        Bm.Canvas.Draw(0,0,Ic);
        //Result     := Bm;
     End
     Else
     If Graphic is TMetaFile then
     Begin
        Mf   := TMetaFile(Graphic);
        Bm.Width  := Mf.Width;
        Bm.Height := Mf.Height;
        Bm.Canvas.Draw(0,0,Mf);
        //Result     := Bm;
     End
     Else
     If Graphic is TBitMap then
     Begin
        //Result     := Bm;
     End
     Else
        Raise exception.create('El formato del archivo no es soportado');
 
  Finally
  End;
  Result := Bm;
End;
 
 
Function ScaleImage(Image : TBitMap; Alto : Integer) : TBitMap;
var
  bm   : TBitmap;
  X, Y : Integer;
begin
 
  If (Image = Nil) then
     Raise Exception.Create('La imagen no es válida');
 
  Y := Alto; // altura máxima
  If Y <= 0 then  Y := 100;
 
  Bm := TBitMap.Create;
  Try
     X := Trunc(Image.Width*Y/Image.Height);
     If X > (Y*1.8) then
        X := Trunc(y*1.8);
 
     Bm.Width  := X;
     Bm.Height := Y;
     Bm.Canvas.StretchDraw(Rect(0,0,X,Y),Image);
     Result     := Bm;
  Finally
  End;
End;
 
Function BitMapToJPG(Bm : TBitMap; CompressRate : Integer) : TJPEGImage;
Var
  jp   : TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
Begin
 
  If Bm = Nil then
     Raise Exception.Create('La imagen no ha sido asignada');
 
  jp   := TJPEGImage.Create;
  Try
     Jp.CompressionQuality := CompressRate;
     Jp.Assign(Bm);
     Result := Jp;
  Finally
  End;
End;
 
 
Function CrearMiniaturaImg(FileName : String; Alto : Integer) : TJPegImage;
Begin
  Result := BitMapToJPG(ScaleImage(LoadImageFromFile(FileName),Alto), 80);
End;
 
Function GetImageFormat(Stream : TStream) : String;
Var
   FirstBytes: AnsiString;
begin
   Result := '';
   if (Stream <> nil) and (Stream.Size > 40) then
   begin
      try
         SetLength(FirstBytes, 8);
         Stream.Read(FirstBytes[1], 8);
         if Copy(FirstBytes, 1, 2) = 'BM' then
            Result := '.bmp'
         else if FirstBytes = #137'PNG'#13#10#26#10 then
            Result := '.png'
         else if Copy(FirstBytes, 1, 3) = 'GIF' then
            Result := '.gif'
         else if Copy(FirstBytes, 1, 2) = #$FF#$D8 then
            Result := '.jpg'
         else if Copy(FirstBytes, 1, 3) = #$49#$49#$2A then
            Result := '.tif'
         else if Copy(FirstBytes, 1, 3) = #$0#$0#$01 then
            Result := '.ico'
      Finally
      end;
   end;
End;
 
procedure HideApplication(Application : TApplication);
begin
   ShowWindow(Application.Handle, SW_HIDE) ;
   SetWindowLong(Application.Handle, GWL_EXSTYLE,
     getWindowLong(Application.Handle, GWL_EXSTYLE) or
     WS_EX_TOOLWINDOW) ;
   ShowWindow(Application.Handle, SW_SHOW) ;
end;
 
 
procedure ScreenShot(DestBitmap : TBitmap) ;
var
   DC : HDC;
begin
  DC := GetDC (GetDesktopWindow) ;
  try
   DestBitmap.Width := GetDeviceCaps (DC, HORZRES) ;
   DestBitmap.Height := GetDeviceCaps (DC, VERTRES) ;
   BitBlt(DestBitmap.Canvas.Handle,
          0,
          0,
          DestBitmap.Width,
          DestBitmap.Height,
          DC,
          0,
          0,
          SRCCOPY) ;
  finally
   ReleaseDC (GetDesktopWindow, DC) ;
  end;
end;

[enecumene]

Muchissimas gracias ghenriquez, ahora mismo comienzo a estudiarlo y aplicarlo, cualquier cosa les comento.

 

Saludos.

[Delphius]

Hola enecumene
 
Definitivamente no hay manera de reducir una imagen sin pérdida de calidad, pero se requiere, sobre todo en el caso del envío de imágenes por internet,  lo mejor en estos casos es guardar la imagen del tamaño necesario para el formato de salida,  ej.  de nada te sirve una imagen de 1024, si el lugar donde va la imagen es de solo 200 pixeles,  obviamente existen diferentes métodos para reducir imágenes, algunas con mayor o menor grado de calidad.  pero para las aplicaciones comerciales normales, como mostrar la imagen del producto, es más que suficiente.
 
En firemonkey está casi todo hecho, es mucho más sencillo, pero asumo que estamos hablando de VCL,  por lo tanto los ejemplos que te doy son de VCL, si requieres de firemonkey me avisas y revisamos ese tema que también es fascinante.
 
En VCL el formato para la manipulación de imágenes es del BMP, así que prácticamente hay que llevarlo todo a BMP, manipularlo y finalmente retornarlo al formato requerido, en VCL hasta donde trabajé el PNG no es muy usado, no se ahora,  el estándar más usado es el JPG, mientras que en firemonkey casi todo es sobre PNG.

delphi

Function LoadImageFromFile(FileName : String) : TBitMap;  //Lee casi cualquier formato de un archivo y retorna un bitmap de la imagen 
Function ScaleImage(Image : TBitMap; Alto : Integer) : TBitMap;    //Dado el alto de una imagen, la escala proporcionalmente
Function BitMapToJPG(Bm : TBitMap; CompressRate : Integer) : TJPEGImage;  //convierte un bitmap en un JPG con una taza de compresión
Function CrearMiniaturaImg(FileName : String; Alto : Integer) : TJPegImage; //Crea una miniatura de un archivo, sin importar el formato 
Function GetImageFormat(Stream : TStream) : String;  //Retorna un string con la extensión del archivo
Function LoadGraphicFromFile(FileName : String) : TGraphic;  //lee un archivo y crea el objeto de acuerdo al formato
Function LoadGraphicFromStream(St : TStream) : TGraphic;  //Lee un stream y crea el objeto de acuerdo al formato
Function GraphicToBitmap(Graphic : TGraphic) : TBitMap; //Convierte cualquier grafico a un bitmap

delphi

Function LoadImageFromFile(FileName : String) : TBitMap;
var
  jp   : TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
  bm   : TBitmap;
  Mf   : TMetaFile;
  Ic   : TIcon;
  Gif  : TGIFImage;
  png  : TPngImage;
  Ext  : String;
  Ext1 : String;
  St   : TMemoryStream;
Begin
   If Not FileExists(FileName) then
      Raise Exception.create('El archivo "'+FileName+'" no existe');
 
   Result := Nil;
   Ext := Trim(AnsiLowerCase(ExtractFileExt(FileName)));
 
   St := TMemoryStream.Create;
   St.LoadFromFile(FileName);
   St.Position := 0;
 
   Ext1 := AnsiLowerCase(GetImageFormat(St));
 
   If Ext1 <> '' then  //Revisa el formato real del archivo, sin importar el nombre del archivo.
      Ext := Ext1;
 
 
   If not ((ext = '.jpg') or (ext = '.jpeg') or (ext = '.bmp') or
           (ext = '.ico') or (ext = '.emf')  or (ext = '.wmf') or
           (ext = '.gif') or (ext = '.png')) then
      Raise Exception.Create('El formato "'+Ext+'" del archivo no es soportado');
 
 
   St.Position := 0;
   Bm := TBitMap.Create;
 
  Try
 
     If (ext = '.jpg') or (ext = '.jpeg') then
     Begin
        jp   := TJPEGImage.Create;
        Jp.LoadFromStream(St);
        bm.Assign(Jp);
        Result     := Bm;
        FreeAndNil(Jp);
     End
     Else
     If (ext = '.gif') then
     Begin
        Gif  := TGIFImage.Create;
        Gif.LoadFromStream(St);
        bm.Assign(Gif);
        FreeAndNil(Gif);
     End
     Else
     If (ext = '.png') then
     Begin
        Png  := TPngImage.Create;
        Png.LoadFromStream(St);
        bm.Assign(Png);
        Result  := Bm;
        FreeAndNil(Png);
     End
     Else
     If (ext = '.ico') then
     Begin
        Ic   := TIcon.Create;
        Ic.LoadFromStream(St);
        Bm.Width  := Ic.Width;
        Bm.Height := Ic.Height;
        Bm.Canvas.Draw(0,0,Ic);
        Result     := Bm;
        FreeAndNil(Ic);
     End
     Else
     If (ext = '.emf') or (ext = '.wmf') then
     Begin
        Mf   := TMetaFile.Create;
        Mf.LoadFromStream(St);
        Bm.Width  := Mf.Width;
        Bm.Height := Mf.Height;
        Bm.Canvas.Draw(0,0,Mf);
        Result     := Bm;
        FreeAndNil(Mf);
     End
     Else
     If (ext = '.bmp')  then
     Begin
        Bm.LoadFromStream(St);
        Result     := Bm;
     End
     Else
        Raise exception.create('El formato del archivo "'+FileName+'" no es soportado');
 
  Finally
  End;
End;
 
Function LoadGraphicFromFile(FileName : String) : TGraphic;
var
  jp   : TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
  bm   : TBitmap;
  Mf   : TMetaFile;
  Ic   : TIcon;
  Gif  : TGIFImage;
  png  : TPngImage;
  Ext  : String;
  Ext1 : String;
  St   : TMemoryStream;
Begin
   If Not FileExists(FileName) then
      Raise Exception.create('El archivo "'+FileName+'" no existe');
 
   Result := Nil;
   Ext := Trim(AnsiLowerCase(ExtractFileExt(FileName)));
 
   St := TMemoryStream.Create;
   St.LoadFromFile(FileName);
   St.Position := 0;
 
   Ext1 := AnsiLowerCase(GetImageFormat(St));
 
   If Ext1 <> '' then  //Revisa el formato real del archivo, sin importar el nombre del archivo.
      Ext := Ext1;
 
 
   If not ((ext = '.jpg') or (ext = '.jpeg') or (ext = '.bmp') or
           (ext = '.ico') or (ext = '.emf')  or (ext = '.wmf') or
           (ext = '.gif') or (ext = '.png')) then
      Raise Exception.Create('El formato "'+Ext+'" del archivo no es soportado');
 
 
   St.Position := 0;
 
  Try
 
     If (ext = '.jpg') or (ext = '.jpeg') then
     Begin
        jp   := TJPEGImage.Create;
        Jp.LoadFromStream(St);
        Result     := Jp;
     End
     Else
     If (ext = '.gif') then
     Begin
        Gif  := TGIFImage.Create;
        Gif.LoadFromStream(St);
        Result := Gif;
     End
     Else
     If (ext = '.png') then
     Begin
        Png  := TPngImage.Create;
        Png.LoadFromStream(St);
        Result  := Png;
     End
     Else
     If (ext = '.ico') then
     Begin
        Ic   := TIcon.Create;
        Ic.LoadFromStream(St);
        Result     := Ic;
     End
     Else
     If (ext = '.emf') or (ext = '.wmf') then
     Begin
        Mf   := TMetaFile.Create;
        Mf.LoadFromStream(St);
        Result := Mf;
     End
     Else
     If (ext = '.bmp')  then
     Begin
        Bm := TBitMap.Create;
        Bm.LoadFromStream(St);
        Result     := Bm;
     End
     Else
        Raise exception.create('El formato del archivo "'+FileName+'" no es soportado');
 
  Finally
     St.Free;
  End;
End;
 
Function LoadGraphicFromStream(St : TStream) : TGraphic;
var
  jp   : TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
  bm   : TBitmap;
  Mf   : TMetaFile;
  Ic   : TIcon;
  Gif  : TGIFImage;
  png  : TPngImage;
  Ext  : String;
Begin
   If Not Assigned(St) then
      Raise Exception.create('El formato de Imágen no es válida');
 
   If St.Size < 40 then
      Raise Exception.create('El formato de Imágen no es válida');
 
   Result := Nil;
   St.Position := 0;
 
   Ext := AnsiLowerCase(GetImageFormat(St));
 
   If not ((ext = '.jpg') or (ext = '.jpeg') or (ext = '.bmp') or
           (ext = '.ico') or (ext = '.emf')  or (ext = '.wmf') or
           (ext = '.gif') or (ext = '.png')) then
      Raise Exception.Create('El formato "'+Ext+'" del archivo no es soportado');
 
 
   St.Position := 0;
 
  Try
 
     If (ext = '.jpg') or (ext = '.jpeg') then
     Begin
        jp   := TJPEGImage.Create;
        Jp.LoadFromStream(St);
        Result     := Jp;
     End
     Else
     If (ext = '.gif') then
     Begin
        Gif  := TGIFImage.Create;
        Gif.LoadFromStream(St);
        Result := Gif;
     End
     Else
     If (ext = '.png') then
     Begin
        Png  := TPngImage.Create;
        Png.LoadFromStream(St);
        Result  := Png;
     End
     Else
     If (ext = '.ico') then
     Begin
        Ic   := TIcon.Create;
        Ic.LoadFromStream(St);
        Result     := Ic;
     End
     Else
     If (ext = '.emf') or (ext = '.wmf') then
     Begin
        Mf   := TMetaFile.Create;
        Mf.LoadFromStream(St);
        Result := Mf;
     End
     Else
     If (ext = '.bmp')  then
     Begin
        Bm := TBitMap.Create;
        Bm.LoadFromStream(St);
        Result     := Bm;
     End
     Else
        Raise exception.create('El formato del archivo "'+Ext+'" no es soportado');
 
  Finally
  End;
End;
 
Function GraphicToBitmap(Graphic : TGraphic) : TBitMap;
var
  jp   : TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
  bm   : TBitmap;
  Mf   : TMetaFile;
  Ic   : TIcon;
  Gif  : TGIFImage;
  png  : TPngImage;
Begin
 
  Bm := TBitMap.Create;
 
 
  Try
     If Graphic is TJPEGImage then
     Begin
        jp   := TJPEGImage(Graphic);
        bm.Assign(Jp);
        //Result     := Bm;
     End
     Else
     If Graphic is TGIFImage then
     Begin
        Gif  := TGIFImage(Graphic);
        bm.Assign(Gif);
        //Result     := Bm;
     End
     Else
     If Graphic is TPngImage then
     Begin
        Png  := TPngImage(Graphic);
        bm.Assign(Png);
        //Result     := Bm;
     End
     Else
     If Graphic is TIcon then
     Begin
        Ic   := TIcon(Graphic);
        Bm.Width  := Ic.Width;
        Bm.Height := Ic.Height;
        Bm.Canvas.Draw(0,0,Ic);
        //Result     := Bm;
     End
     Else
     If Graphic is TMetaFile then
     Begin
        Mf   := TMetaFile(Graphic);
        Bm.Width  := Mf.Width;
        Bm.Height := Mf.Height;
        Bm.Canvas.Draw(0,0,Mf);
        //Result     := Bm;
     End
     Else
     If Graphic is TBitMap then
     Begin
        //Result     := Bm;
     End
     Else
        Raise exception.create('El formato del archivo no es soportado');
 
  Finally
  End;
  Result := Bm;
End;
 
 
Function ScaleImage(Image : TBitMap; Alto : Integer) : TBitMap;
var
  bm   : TBitmap;
  X, Y : Integer;
begin
 
  If (Image = Nil) then
     Raise Exception.Create('La imagen no es válida');
 
  Y := Alto; // altura máxima
  If Y <= 0 then  Y := 100;
 
  Bm := TBitMap.Create;
  Try
     X := Trunc(Image.Width*Y/Image.Height);
     If X > (Y*1.8) then
        X := Trunc(y*1.8);
 
     Bm.Width  := X;
     Bm.Height := Y;
     Bm.Canvas.StretchDraw(Rect(0,0,X,Y),Image);
     Result     := Bm;
  Finally
  End;
End;
 
Function BitMapToJPG(Bm : TBitMap; CompressRate : Integer) : TJPEGImage;
Var
  jp   : TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
Begin
 
  If Bm = Nil then
     Raise Exception.Create('La imagen no ha sido asignada');
 
  jp   := TJPEGImage.Create;
  Try
     Jp.CompressionQuality := CompressRate;
     Jp.Assign(Bm);
     Result := Jp;
  Finally
  End;
End;
 
 
Function CrearMiniaturaImg(FileName : String; Alto : Integer) : TJPegImage;
Begin
  Result := BitMapToJPG(ScaleImage(LoadImageFromFile(FileName),Alto), 80);
End;
 
Function GetImageFormat(Stream : TStream) : String;
Var
   FirstBytes: AnsiString;
begin
   Result := '';
   if (Stream <> nil) and (Stream.Size > 40) then
   begin
      try
         SetLength(FirstBytes, 8);
         Stream.Read(FirstBytes[1], 8);
         if Copy(FirstBytes, 1, 2) = 'BM' then
            Result := '.bmp'
         else if FirstBytes = #137'PNG'#13#10#26#10 then
            Result := '.png'
         else if Copy(FirstBytes, 1, 3) = 'GIF' then
            Result := '.gif'
         else if Copy(FirstBytes, 1, 2) = #$FF#$D8 then
            Result := '.jpg'
         else if Copy(FirstBytes, 1, 3) = #$49#$49#$2A then
            Result := '.tif'
         else if Copy(FirstBytes, 1, 3) = #$0#$0#$01 then
            Result := '.ico'
      Finally
      end;
   end;
End;
 
procedure HideApplication(Application : TApplication);
begin
   ShowWindow(Application.Handle, SW_HIDE) ;
   SetWindowLong(Application.Handle, GWL_EXSTYLE,
     getWindowLong(Application.Handle, GWL_EXSTYLE) or
     WS_EX_TOOLWINDOW) ;
   ShowWindow(Application.Handle, SW_SHOW) ;
end;
 
 
procedure ScreenShot(DestBitmap : TBitmap) ;
var
   DC : HDC;
begin
  DC := GetDC (GetDesktopWindow) ;
  try
   DestBitmap.Width := GetDeviceCaps (DC, HORZRES) ;
   DestBitmap.Height := GetDeviceCaps (DC, VERTRES) ;
   BitBlt(DestBitmap.Canvas.Handle,
          0,
          0,
          DestBitmap.Width,
          DestBitmap.Height,
          DC,
          0,
          0,
          SRCCOPY) ;
  finally
   ReleaseDC (GetDesktopWindow, DC) ;
  end;
end;

 

Yo también lo he pensado por el lado de reducir la imagen. Es que no queda otra si es que la idea es "quitarle peso".

Pero esto puede que no siempre sea deseable. No sabemos el propósito y uso real de esas imágenes. Por ejemplo... en un centro médico en donde se hacen estudios y diagnóstico por imagen. Ahora si las imágenes no son un objeto de mucha importancia, o si su visualización no requiere mostrar información super detallada, y es algo secundario o complementario a la funcionalidad del sistema es viable lo que dices... es más hasta en ocasiones se estila tener versiones miniaturas de dichas imágenes, como para dar una "vista previa".

 

Lo de que la manipulación requiere trabajo al nivel de mapa de bits siempre ha sido así. ¡Es la única forma! Todas las técnicas sobre tratamiento de imagen como filtros, etc. trabajan a esa escala (mapa de bits) ya que debe tenerse acceso real a los pixeles de la imagen para producir los efectos deseados.

Luego es que al momento de almacenar la imagen es que tiene lugar la conversión al formato.

 

Hasta antes de la llegada el PNG el formato más extendido de imágenes comprimidas era JPG. Todavía sigue teniendo mucha aceptación. Pero con PNG se tiene nuevas cosas: nada de pérdida por compresión (fundamental si las imagenes van a ser usadas para técnicas de tratamiento de imagen), soporta canal alpha o transparencia, corrección gamma, entre otras. Y hay un detalle que se pasan muchos por alto: ¡Es un formato Open Source! JPG no lo es (Si supieran de los canon que se pagan...) y está pensado para ser universal.

 

Saludos,

[escafandra]

Puedes reducir el tamaño de la imagen y comprimirla en jpg con la API de GDI-plus, mucho más preciso que StretchDraw:

Redimensionar una imagen con GDI+ flat API.
Como guardar archivos gráficos en varios formatos.

Saludos.

[enecumene]

Gracias escafandra, los estoy viendo.