Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Работа с TWAIN без сторонних компонент

Автор: Darked 9.3.2011, 15:51

    Доброе время суток.

   Люди добрые, подскажите пожалуйста кто сталкивался, или поделитесь примером... работы с TWAIN без исользования сторонних компонент. Есть задача работы со сканером, выбор пал на TWIAN. Посмотрев что присутствует, решил выбрать EZTWAIN обёртку. TDElphiTwain более функциональный, но я не любитель использовать различные компоненты, которые мне нужны - то на один проект...
   В итоге - всё ничего в EZTWAIN, но вот в режиме сканирования нескольких документов потоком, потом не нашёл как вытащить из него несколько документов, сохраняется только последний.

   Работаю с ним примерно так:

Код


var
  bmpTemp:    TBitmap;
  bmpList:       TBitmapList;       

if(TWAIN_OpenDefaultSource() = 1) then
    begin
      TWAIN_SetCurrentResolution(resolution);

      hDib := TWAIN_AcquireNative(hParуте, TWAIN_GRAY);

      if(hDib <> 0) then
      begin
        try
          bmpTemp := TBitmap.Create;
          bmpTemp.Palette := TWAIN_CreateDibPalette(hDib);
          bmpTemp.Width := TWAIN_DibWidth(hDib);
          bmpTemp.Height := TWAIN_DibHeight(hDib);
          TWAIN_DrawDibToDC(bmpTemp.Canvas.Handle, 0, 0, bmpTemp.Width, bmpTemp.Height, hDib, 0, 0);

          bmpList.Add(bmpTemp);
          Result := True;
        finally
          TWAIN_FreeNative(hDib);
          hDib := 0;
        end;
      end;
    end;

Автор: cat512 10.3.2011, 17:21

В eztwain3.dll есть функция TWAIN_SetMultiTransfer, которая поз. раб. с потоком сканирования.
См. документацию и сэмплы для eztwain

Автор: Darked 16.3.2011, 12:51

Цитата(cat512 @ 10.3.2011, 17:21

)

В eztwain3.dll есть функция TWAIN_SetMultiTransfer, которая поз. раб. с потоком сканирования.
См. документацию и сэмплы для eztwain

   Это в платной версии есть. Я рассматривал classic, которая бесплатна.
   Но, похоже, придётся платную использовать. Сейчас скачал пробную версию на тест.