Tema: Delphi Twain
Ver Mensaje Individual
  #1  
Antiguo 14-02-2015
shoulder shoulder is offline
Miembro
 
Registrado: abr 2008
Posts: 441
Reputación: 17
shoulder Va por buen camino
Delphi Twain

Buscando en google pude hacer con las rutinas que fui encontrando, llamar el scanner, scanear que me traiga la imagen en un Timage y grabarla en PDF. Mi gran problema es y no lo encuentro por ningun lado, en el scanner van a colocar una carpeta de 300 hojas que lo haga en pdf o jpeg no me importa despues lo transformo pero desde delphi twain como doy la orden para que me junte los 300 scaneos en un solo archivo?.
Encontre la siguiente rutinas funciona muy bien para un scaneo individual pero multiples paginas?.

Código Delphi [-]
procedure TFormMain.Button1Click(Sender: TObject);
var
  SourceIndex: Integer;
  XV : WORD ;
begin
  //Try loading the library
  if Twain.LoadLibrary then
  begin
    //Same as SourceManangerLoaded := TRUE
    Twain.LoadSourceManager();
    //Select the source
    SourceIndex := Twain.SelectSource();
    if SourceIndex <> -1 then
      BEGIN
      with Twain.Source[SourceIndex] do
      begin
        //Prepare for transfering using ttmFile mode
        Loaded := TRUE;
        TransferMode := ttmFile;
        ShowUI := False ;
        Enabled := TRUE;
        SetIXResolution(150) ;
      end ;
      END
    else ShowMessage('Cancel')
  end
  else MessageDlg('No Está Instalado Twain ', mtError, [mbOK], 0)


end;

Última edición por Casimiro Notevi fecha: 14-02-2015 a las 10:19:23.
Responder Con Cita