Proyecto, digitalización de imagenes

[mrnovice]

Saludos nuevamente, disculpen por preguntar tanto ,¿Alguien sabe si es posible realizar un explorador de imagenes miniatura? y ¿Cómo se puede hacer?, tengo ideas pero no se que es óptimo, es el crear réplicas de Timage, pero no se si involucre el usar punteros ya que los voy a ir acumulando conforme se van escaneando, supongo que lo haré para ADF,mm diculpen si no realizé conforme a la guia de estilo. Saludos

[Ñuño Martínez]

Pues sí es posible. En vez de utilizar punteros, que siempre terminan dando dolores de cabeza, utiliza una lista de objetos. Busca en la documentación información sobre la clase TList. Creo que también se ha comentado su uso en este foro, así que si buscas seguro que encuentras algo.

[[cHackAll]]

Empezado por mrnovice

Saludos nuevamente, disculpen por preguntar tanto ,¿Alguien sabe si es posible realizar un explorador de imagenes miniatura? y ¿Cómo se puede hacer?, tengo ideas pero no se que es óptimo, es el crear réplicas de Timage, pero no se si involucre el usar punteros ya que los voy a ir acumulando conforme se van escaneando, supongo que lo haré para ADF,mm diculpen si no realizé conforme a la guia de estilo. Saludos

Aparte de lo dicho por Ñuño;
Truco 433 y Truco 8. Tambien puedes buscar en el Club como hacer los thumbnails.

[mrnovice]

Muchas gracias por el apoyo, en cuanto tenga resultados, les comentaré al respecto,pasen un buen día.

Saludos

[mrnovice]

Empezado por cHackAll

Aparte de lo dicho por Ñuño;
Truco 433 y Truco 8. Tambien puedes buscar en el Club como hacer los thumbnails.

Imágenes JPEG
Saludos, estoy en proceso de hacer los thumbnail, pero surgió un problemita así de pequeño,
Hagan de cuenta uso el componente en DelphiTwain, al guardar la imagen, me lo guarada con una extensión JPEG, pero no estoy tan seguro de que sea, ya que por el tamaño, es muy grande aprox 24MB cuando uso el Microsoft Office Picture Manager,lo exporto como JPEG me lo guarda como a 516 K ,hize una prueba lo cambie a un BMP , el tamaño salió igualosea 24 MB.mmm,entonces, he buscado respuestas, y sigo igual, entonces como le asignaría un formato real JPG sin afectar al tamaño, es decir supongo una conversión. o si existe por ahi un tutorial acerca de el TBitmap y el TJPEG, porque la verdad al escanear no se que imagen me esta pasando y cómo usarla
Saludos y gracias nuevamente.

[[cHackAll]]

Corrigeme si me equivoco; estas intentando realizar una converción entre formatos de archivos de imagen BMP->JPG;

Código Delphi [-]
procedure TForm1.Image1Click(Sender: TObject);
var Bitmap: TBitmap; jpeg: TJPEGImage;
begin
 Bitmap := TBitmap.Create;
 Bitmap.LoadFromFile('c:\logo.bmp');
 jpeg := TJPEGImage.Create;
 jpeg.Assign(Bitmap);
 Bitmap.Destroy;
// jpeg.CompressionQuality := 66 // porcentaje
 jpeg.SaveToFile('c:\logo.jpg');
 jpeg.Destroy;
end;

[mrnovice]

Empezado por cHackAll

Corrigeme si me equivoco; estas intentando realizar una converción entre formatos de archivos de imagen BMP->JPG;

Código Delphi [-]procedure TForm1.Image1Click(Sender: TObject);
var Bitmap: TBitmap; jpeg: TJPEGImage;
begin Bitmap := TBitmap.Create; Bitmap.LoadFromFile('c:\logo.bmp');
jpeg := TJPEGImage.Create;
jpeg.Assign(Bitmap);
Bitmap.Destroy;
// jpeg.CompressionQuality := 66 // porcentaje
jpeg.SaveToFile('c:\logo.jpg');
jpeg.Destroy;
end;

Saludos, Gracias de antemano por ayudarme, en serio gracias,en cuanto la conversión, pués sí, esa es la idea sólo y sí es BMP, pero no estoy seguro de que formato sea.
No se si sea un JPEG el que me guarda, o un Bitmap disfrazado de JPEG, ó un TIF disfrazado de BMP ó algún formato disfrazado de lo que tu quieras, ya que por el tamaño del archivo(en archivos de 2480x3507 píxeles, ó 2550 * 4200 píxeles me guarda el archivo de 10 o incluso 20 MB para arriba) dudo que sea un jpeg (Ya que estos en píxeles similares tienes archivos de 150 k hasta 1 MB como máximo) , pero BMP(Sé que estos archivos son pesados) si, deja te paso el código parea que veas cómo lo asigna(Es un procedimiento de un menú para Guardar como...), es una fracción, espero que sirva de referencia.De nuevo gracias por el tiempo tomado:

Código Delphi [-]
procedure TFormMain.ItemSaveClick(Sender: TObject);
var
  Image: TBitmap;
begin
  {If there is an image}
  if GetCurrent(Image) and SavePic.Execute then
    case SavePic.FilterIndex of
      {JPEG image}
      0: with tjpegimage.Create do
      begin
        showmessage('TJPEG');
        assign(Image);
        SaveToFile(SavePic.FileName);
        free;
      end;
      {Bitmap}
      1: Image.SaveToFile(SavePic.FileName);
      2: begin
          Image.SaveToFile(SavePic.FileName);
          showmessage('otros');
         end
    end {case}
end;

Nota:Este procedimiento lo realiza cuando ya adquirio la imagen,estando en la etapa 6 del Estándar TWAIN, nosé si tenga algo que ver pero pues no debería, tengo entendido, esta es su página http://www.twain.org/,
La verdad es que no entiendo lo que paso en ese paso,, por fas help , Gracias nuevamente.Disculpen las molestias, valoro lo que estan haciendo y conozco su sacrificio por ayudar a los demás.

[mrnovice]

Ya encontre el detalle un error de caculo.

[mrnovice]

He logadograndes avances, comprendo mejor el comportamiento de TWAIN jojo, solo que cada vez encuentras más mañas, gracias a los foreros he salido adelante y estoy en deuda, si se tiene alguna duda al respecto, comuninquelo, gracias