Proyecto, digitalización de imagenes

[mrnovice]

Hola que tal, necesito una ayuda muy grande, lo que pasa, me encargaron un proyecto para hacer un programa que pueda detectar los escaners y digitalizar, y darles edición a las imagenes para poder exportarlo a Oracle, les agradeceria mucho el que me dieran nociones por donde empezar, si es muy difícil, tengo algo de conocimiento de Delphi pero la verdad ando ondeado con esto.
Les agradezco su atención y que tengan un buen año

[Ñuño Martínez]

Pues en principio te recomendaría que aprendieras cosas sobre SANE, pero como no tiene soporte oficial para Windows (al menos no lo he encontrado) también creo que deberías echar un vistazo a TWAIN. Se trata de dos APIs diferentes que permiten obtener imágenes de una mesa digitalizadora, una web-cam, una cámara de fotos digital y otros dispositivos similares. La más versátil es SANE ya que permite una mayor cantidad de dispositivos, no obliga a utilizar un GUI determinado y es soportado por más plataformas.

[mrnovice]

Gracias por el apoyo he seguido investigando, aún me falta mucho por aprender, por lo que veo el realizar el vcl esta larguisisisismo jeje, saludos y suerte no cambien.

[Ñuño Martínez]

Si consigues hacer algo interesante, avisa y dinos qué conseguiste, que tal vez sirva en un futuro. En mi empresa manejamos cámaras de vídeo digital y todavía no me han dicho que haga nada, pero cualquier día de estos cae algo.

[mrnovice]

Saludos,sigo con el proyecto esta muy interesante.
He encontrado un par de cosas, pero parece ser que hay un poco de dudas sobre lo elegido, he encontrado 4 tipos de estándar sino me equivoco son:

• TWAIN
• ISIS
• WIA(Windows Image Acquisition)//o algo por el estilo
• SANE

La verdad he leído sobre ISIS, no se que tan?.. buena alternativa sea y si es mejor que el TWAIN, tengo entendido que el TWAIN es mejor pero eso no se.

Además ya comprobe lo de la GUI Obligada de TWAIN, me preguntaba si se puede poner como una especie de mascara, me refiero si se puede personalizar al gusto del programador.

Otra situación cuando estuve buscando sobre EZTWAIN, nose si pertenezca al grupo TWAIN pero creo que si busca un poco de lucro, ya que tiene diferentes versiones,y la que es gratis pues simplemente si esta un poco limitado el OpenSource.

Bueno estoy con otro componente, lo estoy checando (DelphiTwain) muy buen trabajo, pero sigo buscando, quisiera saber si puede personalizar la GUI del TWAIN, estoy basandome en este estàndar para el desarrollo del proyecto, pero nose si voy por buen camino, y pués la investigación sigue su curso.

Por favor si alguien me pudiera aconsejar como sacarle el máximo provecho a este proyecto, si tienen alguna duda sobre este tema jeje,aunque sea en lo básico les ayudaré con lo que pueda con todo gusto.

Gracias.

[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

[mrnovice]

Un proyecto bastante complejo, según avances quería notificar gracias a los compañeros e ha logrado un avance bastante grande y continúa en desarrollo y saludos nuevamente.