Ver Mensaje Individual
  #1  
Antiguo 26-07-2015
shoulder shoulder is offline
Miembro
 
Registrado: abr 2008
Posts: 441
Reputación: 17
shoulder Va por buen camino
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}
Responder Con Cita