Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Scaneo con Twain - Problema con Bandeja Multipagina con Tamaño Legal (https://www.clubdelphi.com/foros/showthread.php?t=88749)

shoulder 26-07-2015 17:49:47

Scaneo con Twain - Problema con Bandeja Multipagina con Tamaño Legal
 
Hola mi programa escanea, pasa las imagenes a un Timage (el error solo me da en la bandeja alimentadora de multipaginas en la bandeja comun funciona bien), Sino abro con el aplicativo del Twain me escanea bien pero siempre en A4, no me respeta si la hoja es tamaño mas grande o sea legal.
Ejemplo:

Código Delphi [-]
 Twain.Source[CurrentSource].EnableSource(FALSE, FALSE);

con esta sentencia me escanea perfectamente varias hojas pero no me respeta tamaño de las hojas.

........................................................................................

Ahora si uso:
Código Delphi [-]
 Twain.Source[CurrentSource].EnableSource(ItemShowInterface.Checked, FALSE);
Desde el aplicativo por defecto del Twain elijo tamaño de hoja aprieto el boton digitalizar, pero las imagenes me vienen todas distorsionadas.
................................
Hay una forma para la primera opcion de pasar por comando twain el tamaño de hoja?, o que estoy haciendo mal cuando uso el alimentador de hojas con el aplacativo por defecto twain que me trae todo distorcionado (aunque coloque una hoja en alimentador igual me la trae todas distorsionada la imagen.

...........................
Sentencias completa

Código Delphi [-]
begin
  {If user is already using Status menu}
  if Twain.LibraryLoaded then
    ItemStatus5Click(ItemStatus5)
  else
  begin
    {Load library, source manager and source}
    Twain.LoadLibrary;
    Twain.LoadSourceManager;
    Twain.Source[CurrentSource].Loaded := TRUE;
    {Enable source}
    Twain.Source[CurrentSource].TransferMode := Self.TransferMode;
    ClearImageList; {Clear list of images}
    Twain.Source[CurrentSource].EnableSource(ItemShowInterface.Checked, FALSE);// aqui es cuando me da el error si uso True.
    while Twain.Source[CurrentSource].Enabled do Application.ProcessMessages;
    {Unload library}
    Twain.UnloadLibrary;
  end {if Twain.SourceLoaded}


La franja horaria es GMT +2. Ahora son las 01:33:53.

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