VPF::Работа с TWAIN без сторонних компонент

Darked

Дата 9.3.2011, 15:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 536
Регистрация: 26.2.2004
Где: Южный Урал

Репутация: нет
Всего: нет

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

   Люди добрые, подскажите пожалуйста кто сталкивался, или поделитесь примером... работы с 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;

--------------------

Veni, Vidi, Vici !!!

cat512

Дата 10.3.2011, 17:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 438
Регистрация: 20.3.2007

Репутация: 1
Всего: 15

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

Это сообщение отредактировал(а) cat512 - 10.3.2011, 17:23

Darked

Дата 16.3.2011, 12:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 536
Регистрация: 26.2.2004
Где: Южный Урал

Репутация: нет
Всего: нет

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

)

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

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

--------------------

Veni, Vidi, Vici !!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »