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
if Twain.LoadLibrary then
begin
Twain.LoadSourceManager();
SourceIndex := Twain.SelectSource();
if SourceIndex <> -1 then
BEGIN
with Twain.Source[SourceIndex] do
begin
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;