powered by simpleCommunicator - 2.0.47     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с фотоаппаратом
13 сообщений из 38, страница 2 из 2
Работа с фотоаппаратом
    #35950719
Pilchard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
DimV,

Еще бы знать где это искать
...
Рейтинг: 0 / 0
Работа с фотоаппаратом
    #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
Работа с фотоаппаратом
    #35950855
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Pilchard,

посмотрите здесь Сканированный документ
...
Рейтинг: 0 / 0
Работа с фотоаппаратом
    #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
Работа с фотоаппаратом
    #35952266
Pilchard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
DimVпроверьте ссылку на библиотеку типов

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

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

В правом поле правой мышкой => References... => Либо ставим галку, либо Обзор и ище DLL
...
Рейтинг: 0 / 0
Работа с фотоаппаратом
    #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

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

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

Помогите, разрешение очень маленькое (320*240) как это увеличить до 640*480
...
Рейтинг: 0 / 0
Работа с фотоаппаратом
    #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
Работа с фотоаппаратом
    #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
Работа с фотоаппаратом
    #36121189
ProRock1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dmitry3, камера несовместима с WIA...
То же самое было. Заменил Genius на Logitech - все отлично.
...
Рейтинг: 0 / 0
Работа с фотоаппаратом
    #36530106
Фотография udgeen69
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Коллеги, кто трудился с фотоаппаратом, подскажите, как устанавливать зум или фокусное расстояние?
...
Рейтинг: 0 / 0
Работа с фотоаппаратом
    #36879692
alf3d
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
%?*?%Документацию читать не получилось. Как и следовало ожидать.

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

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

Скачал пример, а в форме не предпологалось предварительного просмотра?
...
Рейтинг: 0 / 0
Работа с фотоаппаратом
    #37002618
Pilchard,

можно выложить образец с кнопками
...
Рейтинг: 0 / 0
Работа с фотоаппаратом
    #37371356
Dmitry04
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
никто не решал проблему с Windows 7, в Referens не могу сменить путь к dll wiaaut.dll
давлю кнопку обзор, выбираю dll, но ничего не происходит, пусть остается
старым, на system32. и не получается получить доступ к устройству,
что тут можно сделать?
...
Рейтинг: 0 / 0
13 сообщений из 38, страница 2 из 2
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с фотоаппаратом
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]