Как получить изображение со сканера или Web-камеры

[Rouch]

Неужели никого этот вопрос не интерисует, у все только могут обсуждать всякую фигню (типа как открыть файл, как конвертировать картинки, или почему не работает то-то...). Давайте идти вперед, разбираться в технологиях, и делать это сообща. Хоть кто-нибудь знает как именно надо работать с TWAIN?

[Ennor]

http://www.pegasustools.com/
Pegasus TWAINPro, Pegasus CapturePro - еще какие-то вопросы?..

[Sirik]

Я этот вопрос подъымал не однократно, всё без результатно
Меня это тоже интересует (на счёт снять изображение с камеры).

Вот только, ответов боюсь не будет

[Ennor]

Либо просто ковырять TWAIN API ручками, т.к. компоненты в большинстве своем платные.

[Samovar]

У меня, после инсталяции драйверов для HPSJ, в компонентах появился TwainCtrl ActiveX Control (или может быть после MSO XP)... Узать не пробывал.

[CodeName33]

С Web-камеры или TV Tuner'а можно получать изображение без TWAIN. Константы sendMessage начинаются на WM_CAP_... и легко находятся в Api Help. Там же и примеры есть.

А для TWAIN можно использовать OCX iTWAIN 4.1. Он платный, но Триал можно продливать сколько угодно вызвав при запуске программы следующую процедуру:

Private Function WriteDate() As Long
Dim S As String, code As String, i As Long
code = "edgfa`cbml"

S = Year(Date) & Format$(Month(Date), "00") & Format$(Day(Date), "00")
For i = 1 To 8
Mid$(S, i, 1) = Mid$(code, Asc(Mid$(S, i, 1)) - 47, 1)
Next

basRegistry.SetRegString HKEY_LOCAL_MACHINE, "SOFTWARE\Imagine IT Limited\PID\00866745", "FID", S
End Function

А окно которое он выдаёт о триале мгновенно закрывается таймером с кодом:

Dim L As Long
'Private Declare Function FindWindowS Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As String) As Long
L = FindWindowS(0, "iTWAIN41")
If L Then PostMessage L, 16, 0, 0

[Dex]

Слушай Rouch тему насчёт сканирования я поднимал она называется
Сканирование и увелечение.А такую фигню гнать как:

Неужели никого этот вопрос не интерисует, у все только могут обсуждать всякую фигню (типа как открыть файл, как конвертировать картинки, или почему не работает то-то...).

нечего у каждого свои вопросы и каждый хочет получить на него ответ.

[SSecurity]

Я точно подобную тему 4 раза открывал ... но эффекта нуль .... нужна технология доступа к камере ...

Вот у меня получается контролом ImgScan получить картинку .... и свойства настроить .... но елки-палки это тока при условии что все окошки будут видны .. когда сетуп запрещаешь он ничего не сохраняет , хотя показывает что сканирует ...