Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   Problema con el color de la digitalización del componente TWAIN para Delphi (https://www.clubdelphi.com/foros/showthread.php?t=95384)

FitNGo 08-09-2021 18:33:50

Problema con el color de la digitalización del componente TWAIN para Delphi
 
Buenas tardes a todos y todas.

LLevo unos días trabajando con el componente TWAIN (kluug.net/delphitwain.php) para poder digitalizar unas facturas y guardarlas e una Base de Datos en Delphi.

Funciona todo perfectamente, pero el problema aparece cuando termina el escaneo el color de la imagen no es el que corresponde.

También he utilizado los dos tipos de drivers TWAIN y WIA y en ambos casos la previsualización aparece correctamente pero cuando digitalizo la imagen cambia el color. El caso es que ya recibo el bitmap con este color y aunque intente cambiar el el color no lo consigo.

Alguna idea de como evitar el cambio de color durante la digitalización del archivo?

Gracias ^^

Casimiro Noteví 08-09-2021 19:33:35

¿No será un problema de escaner?
Puede que exista alguna opción de configuración, aunque yo lo he usado "sin tocar" desde hace... ¿20 años? y nunca tuve ese problema.

FitNGo 09-09-2021 09:38:44

Cita:

Empezado por Casimiro Notevi (Mensaje 542713)
¿No será un problema de escaner?
Puede que exista alguna opción de configuración, aunque yo lo he usado "sin tocar" desde hace... ¿20 años? y nunca tuve ese problema.

Gracias por responder Casimiro Notevi.

Por desgracia la impresora no era el problema, porque hice pruebas con más de una impresora de diferentes marcas y ocurría lo mismo.

De todos modos seguí investigando un poco y en el objeto TTwainSource encontré una propiedad llamada TransferMode, le espicifiqué el modo de transferencia Native y funcionó. Adjunto el codigo para que se entienda mejor.

Código Delphi [-]
procedure TForm1.btnScanSourcesDialog(Sender: TObject);
  begin
     Twain.SelectedSourceIndex := LBSources.ItemIndex;
     if Assigned(Twain.SelectedSource) then
      begin
        Twain.SelectedSource.Loaded := TRUE;
        Twain.SelectedSource.ShowUI := FALSE;
        Twain.SelectedSource.Enabled := TRUE;
        Twain.SelectedSource.TransferMode := ttmNative;
      end;
end;

Espero que ayude esta solución.

ElKurgan 10-09-2021 07:20:33

Gracias por compartir la solución

Saludos


La franja horaria es GMT +2. Ahora son las 10:23:23.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi