Работа с фотоаппаратом / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с фотоаппаратом

13 сообщений из 38, страница 2 из 2

все

Работа с фотоаппаратом

#35950719

Pilchard

Гость

DimV,

Еще бы знать где это искать

...

Рейтинг:

0 / 0

23.04.2009, 17:26

| Ответить | Цитировать | Написать

Работа с фотоаппаратом

#35950777

Pilchard

Гость

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.

Private Sub Command0_Click()
Dim WIADevice As WIA.Device
Dim WIAProcess As WIA.ImageProcess
Dim WIAItem As WIA.Item
Dim WIAProperty As WIA.Property
Dim WIAImage As WIA.ImageFile
Dim wiaDialog As New WIA.CommonDialog
Dim dc As DeviceCommand

Set WIADevice = wiaDialog.ShowSelectDevice(WIA.WiaDeviceType.VideoDeviceType, False, True)

    Set WIAProcess = New WIA.ImageProcess
    WIAProcess.Filters.Add WIAProcess.FilterInfos("Convert").FilterID
    WIAProcess.Filters(WIAProcess.Filters.Count).Properties("FormatID").Value = _
    WIA.wiaFormatJPEG
   Set WIAItem = WIADevice.ExecuteCommand(wiaCommandTakePicture)
   Set WIAImage = WIAItem.Transfer
   Set WIAImage = WIAProcess.Apply(WIAImage)
   If Dir("C:\Test.jpg") <> "" Then Kill "C:\Test.jpg"
   WIAImage.SaveFile "C:\Test.jpg"
   Me.Image2.Picture = "C:\Test.jpg"

End Sub

Вот что на кнопке

...

Рейтинг:

0 / 0

23.04.2009, 17:44

| Ответить | Цитировать | Написать

Работа с фотоаппаратом

#35950855

mds_world

Участник

Откуда: Ташкент

Сообщения: 27 530

Рейтинг: 0 / 0

Pilchard,

посмотрите здесь Сканированный документ

...

Рейтинг:

0 / 0

23.04.2009, 18:05

| Ответить | Цитировать | Написать

Работа с фотоаппаратом

#35952238

Pilchard

Гость

Всем огромное спасибо все получилось

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.

Private Sub Кнопка1_Click()
Dim WIADevice As WIA.Device
Dim WIAProcess As WIA.ImageProcess
Dim WIAItem As WIA.Item
Dim WIAProperty As WIA.Property
Dim WIAImage As WIA.ImageFile
Dim wiaDialog As New WIA.CommonDialog
Dim dc As DeviceCommand


Set WIADevice = wiaDialog.ShowSelectDevice(WIA.WiaDeviceType.VideoDeviceType, False, True)

    Set WIAProcess = New WIA.ImageProcess
    WIAProcess.Filters.Add WIAProcess.FilterInfos("Convert").FilterID
    WIAProcess.Filters(WIAProcess.Filters.Count).Properties("FormatID").Value = _
    WIA.wiaFormatJPEG
   
   Set WIAItem = WIADevice.ExecuteCommand(wiaCommandTakePicture)
   Set WIAImage = WIAItem.Transfer
   Set WIAImage = WIAProcess.Apply(WIAImage)
   If Dir("C:\Test.jpg") <> "" Then Kill "C:\Test.jpg"
   WIAImage.SaveFile "C:\Test.jpg"
Me!Рисунок0.Picture = "C:\Test.jpg"


End Sub

Подключаемся к камере берем фото, кидаем на диск С: далее отоброжаем в форме

далее поставил кнопку

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.

Private Sub Кнопка3_Click()
If MsgBox("Данная функция предназначена фотографирования." & ChrW( 13 ) & "В уже созданных записях, возможно, изменяться данные." & ChrW( 13 ) + ChrW( 10 ) & "Продолжить?", vbOKCancel, "Внимание!!!") = vbCancel Then
Exit Sub
End If

   Set WIAProcess = Nothing
   Dim rst As DAO.Recordset
   Dim rst2 As DAO.Recordset
   
   Set rst = Form_тест.RecordsetClone
   rst.Edit
   
   Set rst2 = rst.Fields("Вложение").Value
   
   rst2.AddNew
   rst2.Fields("FileData").LoadFromFile "C:\Test.jpg"
   rst2.Update
   rst.Update
   
   DoCmd.Close
   
End Sub

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

Но вот не задача, разрешение очень маленькое (320*240) как бы это увеличить

...

Рейтинг:

0 / 0

24.04.2009, 12:28

| Ответить | Цитировать | Написать

Работа с фотоаппаратом

#35952266

Pilchard

Гость

DimVпроверьте ссылку на библиотеку типов

Именно в этом была проблема...

Открываем VB там жмем Ф2

В правом поле правой мышкой => References... => Либо ставим галку, либо Обзор и ище DLL

...

Рейтинг:

0 / 0

24.04.2009, 12:33

| Ответить | Цитировать | Написать

Работа с фотоаппаратом

#35962926

Pilchard

Гость

PilchardВсем огромное спасибо все получилось

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.

Private Sub Кнопка1_Click()
Dim WIADevice As WIA.Device
Dim WIAProcess As WIA.ImageProcess
Dim WIAItem As WIA.Item
Dim WIAProperty As WIA.Property
Dim WIAImage As WIA.ImageFile
Dim wiaDialog As New WIA.CommonDialog
Dim dc As DeviceCommand


Set WIADevice = wiaDialog.ShowSelectDevice(WIA.WiaDeviceType.VideoDeviceType, False, True)

    Set WIAProcess = New WIA.ImageProcess
    WIAProcess.Filters.Add WIAProcess.FilterInfos("Convert").FilterID
    WIAProcess.Filters(WIAProcess.Filters.Count).Properties("FormatID").Value = _
    WIA.wiaFormatJPEG
   
   Set WIAItem = WIADevice.ExecuteCommand(wiaCommandTakePicture)
   Set WIAImage = WIAItem.Transfer
   Set WIAImage = WIAProcess.Apply(WIAImage)
   If Dir("C:\Test.jpg") <> "" Then Kill "C:\Test.jpg"
   WIAImage.SaveFile "C:\Test.jpg"
Me!Рисунок0.Picture = "C:\Test.jpg"


End Sub

Подключаемся к камере берем фото, кидаем на диск С: далее отоброжаем в форме

далее поставил кнопку

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.

Private Sub Кнопка3_Click()
If MsgBox("Данная функция предназначена фотографирования." & ChrW( 13 ) & "В уже созданных записях, возможно, изменяться данные." & ChrW( 13 ) + ChrW( 10 ) & "Продолжить?", vbOKCancel, "Внимание!!!") = vbCancel Then
Exit Sub
End If

   Set WIAProcess = Nothing
   Dim rst As DAO.Recordset
   Dim rst2 As DAO.Recordset
   
   Set rst = Form_тест.RecordsetClone
   rst.Edit
   
   Set rst2 = rst.Fields("Вложение").Value
   
   rst2.AddNew
   rst2.Fields("FileData").LoadFromFile "C:\Test.jpg"
   rst2.Update
   rst.Update
   
   DoCmd.Close
   
End Sub

...

Рейтинг:

0 / 0

30.04.2009, 11:25

| Ответить | Цитировать | Написать

Работа с фотоаппаратом

#35963051

Гость

Вам уже давали ссылку на ветку про сканирование.
Там я приводил пример работы с Item Properties.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

        For Each WIAProperty In WIAItem.Properties
            Select Case WIAProperty.PropertyID
                Case  6146  ' Current Intent
                    WIAProperty.Value =  4 
                Case  6147  ' Horizontal Resolution
                    WIAProperty.Value =  2400  ' 300 DPI
                Case  6148  ' Vertical Resolution
                    WIAProperty.Value =  2400  ' 300 DPI
            End Select
        Next

И читайте хэлп - там все написано.

...

Рейтинг:

0 / 0

30.04.2009, 11:59

| Ответить | Цитировать | Написать

Работа с фотоаппаратом

#36063118

Dmitry3

Гость

Подскажите плиз
Камера Genius slim 1320

в диалоге
Set WIADevice = wiaDialog.ShowSelectDevice(WIA.WiaDeviceType.VideoDeviceType, False, True)
она видна,
но далее на строке
Set WIAItem = WIADevice.ExecuteCommand(wiaCommandTakePicture)
возникает runtime error:

"-2145320829 (80210083)
Failed to create video windows"

Открываю страницу свойств в разделе Windows "Настройки/Панель управления/Сканеры и камеры"
Камера видна, при открытии "Мастера работы со сканером или цифровой камеры" в окне предварительного просмотра "Сбой при создании предварительного просмотра видео. Убедитесь, что устройство подключено, и что оно не используется другим приложением или пользователем"
ПО, идущее в составе камеры, а также Windows Movie Maker видят камеру, без ошибок формируется превью, все работает. Куда копать???
Дмитрий

...

Рейтинг:

0 / 0

28.06.2009, 12:11

| Ответить | Цитировать | Написать

Работа с фотоаппаратом

#36121189

ProRock1

Гость

Dmitry3, камера несовместима с WIA...
То же самое было. Заменил Genius на Logitech - все отлично.

...

Рейтинг:

0 / 0

31.07.2009, 18:18

| Ответить | Цитировать | Написать

Работа с фотоаппаратом

#36530106

udgeen69

Участник

Откуда: Москва - Подольск

Сообщения: 635

Рейтинг: 0 / 0

Коллеги, кто трудился с фотоаппаратом, подскажите, как устанавливать зум или фокусное расстояние?

...

Рейтинг:

0 / 0

19.03.2010, 09:55

| Ответить | Цитировать | Написать

Работа с фотоаппаратом

#36879692

alf3d

Гость

%?*?%Документацию читать не получилось. Как и следовало ожидать.

Скачайте и зарегестрируйте wiaaut.dll, как было сказано выше, затем скачайте приложеный пример, откройте и нажмите кнопочку на форме. Вебкамера должна быть подключена.

Надеюсь, FAQ по нажиманию кнопочек не потребуется...

Скачал пример, а в форме не предпологалось предварительного просмотра?

...

Рейтинг:

0 / 0

04.10.2010, 10:30

| Ответить | Цитировать | Написать

Работа с фотоаппаратом

#37002618

ГОсть форума

Гость

Pilchard,

можно выложить образец с кнопками

...

Рейтинг:

0 / 0

08.12.2010, 16:40

| Ответить | Цитировать | Написать

Работа с фотоаппаратом

#37371356

Dmitry04

Гость

никто не решал проблему с Windows 7, в Referens не могу сменить путь к dll wiaaut.dll
давлю кнопку обзор, выбираю dll, но ничего не происходит, пусть остается
старым, на system32. и не получается получить доступ к устройству,
что тут можно сделать?

...

Рейтинг:

0 / 0

28.07.2011, 17:07

| Ответить | Цитировать | Написать

13 сообщений из 38, страница 2 из 2

все

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с фотоаппаратом

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&gotonew=1&tid=1626215]:	0ms
get settings:	10ms
get forum list:	12ms
check forum access:	4ms
check topic access:	4ms
track hit:	53ms
get topic data:	10ms
get first new msg:	7ms
get forum data:	2ms
get page messages:	53ms
get tp. blocked users:	2ms
others:	259ms

total:	416ms