PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Камера - создание нескольких изображений

Камера - создание нескольких изображений

Страница: 1

Сообщений 1 страница 8 из 8

1

  • Автор: Racer
  • Активный участник
  • Racer
  • Откуда: Херсон
  • Зарегистрирован: 26.04.2013
  • Приглашений: 0
  • Сообщений: 59
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Возраст: 28 [1996-02-03]
  • Провел на форуме:
    22 часа 15 минут
  • Последний визит:
    28.09.2014 22:46:09

Здравствуйте, пытаюсь сделать несколько изображений из Web камеры, но что-то не получается, не пойму как реализовать, 3-й вечер сижу, есть код, при нажатии на кнопку создает изображение нормально, а в цикле создает одно и тоже изображение.

Код:
OpenWindow(0, 261, 165, 845, 481, "") 

If OpenLibrary(0, "avicap32.dll") 
*capAddress = GetFunction(0, "capCreateCaptureWindowA")    
hWndCap.l = CallFunctionFast(*capAddress, 0, #WS_CHILD + #WS_VISIBLE, 0, 0, 150, 150, WindowID(0),0) 
SendMessage_(hWndCap, #WM_CAP_DRIVER_CONNECT, 0, 0) 
SendMessage_(hWndCap, #WM_CAP_SET_PREVIEW, #True, 0) 
SendMessage_(hWndCap, #WM_CAP_SET_PREVIEWRATE, 33, 0) 
SendMessage_(hWndCap, #WM_CAP_SET_SCALE, #True, 0) 
EndIf 

For i=0 To 5
FileName$ = "1"+i+".bmp"    
SendMessage_(hWndCap, #WM_CAP_FILE_SAVEDIBA, 0, FileName$) 
Debug i
Delay(500)
Next i

Repeat
Event = WaitWindowEvent()
WindowID = EventWindow()
GadgetID = EventGadget()  
EventType = EventType()

If Event = #PB_Event_Gadget 
If GadgetID = 1
i + 1
FileName$ = "1"+i+".bmp"    
SendMessage_(hWndCap, #WM_CAP_FILE_SAVEDIBA, 0, FileName$) 
EndIf 
EndIf 
   
Until Event = #PB_Event_CloseWindow
SendMessage_(hWndCap, #WM_CAP_STOP, 0, 0) 
SendMessage_(hWndCap, #WM_CAP_DRIVER_DISCONNECT, 0, 0) 
DestroyWindow_(hWndCap) 
CloseLibrary(0) 
End

Отредактировано Racer (15.01.2014 22:01:07)

0

2

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2997
  • Уважение: [+97/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Вчера 18:39:54

А если создавать не в цикле, а по таймеру?

0

3

  • Автор: Racer
  • Активный участник
  • Racer
  • Откуда: Херсон
  • Зарегистрирован: 26.04.2013
  • Приглашений: 0
  • Сообщений: 59
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Возраст: 28 [1996-02-03]
  • Провел на форуме:
    22 часа 15 минут
  • Последний визит:
    28.09.2014 22:46:09

ну петр респект вам, совсем забыл про таймер, все отлично работает.

0

4

  • Автор: Racer
  • Активный участник
  • Racer
  • Откуда: Херсон
  • Зарегистрирован: 26.04.2013
  • Приглашений: 0
  • Сообщений: 59
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Возраст: 28 [1996-02-03]
  • Провел на форуме:
    22 часа 15 минут
  • Последний визит:
    28.09.2014 22:46:09

теперь назрел другой вопрос, можно ли как-то делать снимок без окна? тоесть без использования openWindow() ?

Код:
OpenWindow(0, 0, 0, 1, 1, "" )

If OpenLibrary(0, "avicap32.dll") 
*capAddress = GetFunction(0, "capCreateCaptureWindowA")
Camera.l = CallFunctionFast(*capAddress, 0, #WS_CHILD + #WS_VISIBLE, 0, 0, 1, 1, WindowID(0), 0)
SendMessage_(Camera, #WM_CAP_DRIVER_CONNECT, 0, 0) 
SendMessage_(Camera, #WM_CAP_SET_PREVIEW, #True, 0) 
SendMessage_(Camera, #WM_CAP_SET_PREVIEWRATE, 33, 0) 
EndIf


AddWindowTimer(0, 123, 500)
UseJPEGImageEncoder()


Repeat
Event = WindowEvent() 


If Event = #PB_Event_Timer And EventTimer() = 123
SendMessage_(Camera, #WM_CAP_EDIT_COPY, 0, 0)
GetClipboardImage(11, 32)
If SaveImage(11,"p.jpg",#PB_ImagePlugin_JPEG, 3)
Debug "Ok"  
EndIf
EndIf   


Until Event = #PB_Event_CloseWindow
SendMessage_(Camera, #WM_CAP_STOP, 0, 0) 
SendMessage_(Camera, #WM_CAP_DRIVER_DISCONNECT, 0, 0) 
CloseLibrary(0) 
End

Отредактировано Racer (15.01.2014 22:00:58)

0

5

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2997
  • Уважение: [+97/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Вчера 18:39:54

Можно создать невидимое окно. Возможно в этом случае, получится делать снимки.

0

6

  • Автор: Racer
  • Активный участник
  • Racer
  • Откуда: Херсон
  • Зарегистрирован: 26.04.2013
  • Приглашений: 0
  • Сообщений: 59
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Возраст: 28 [1996-02-03]
  • Провел на форуме:
    22 часа 15 минут
  • Последний визит:
    28.09.2014 22:46:09

А без окна вообще никак? Кстати, если оно невидимое, то снимков не будет, (HideWindow(), или #PB_Invisible_Window), скорее всего буду создавать окно за пределами границ экрана, с флагами #PB_Window_SystemMenu и #PB_Window_Tool.

0

7

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2997
  • Уважение: [+97/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Вчера 18:39:54
Racer написал(а):

А без окна вообще никак?

Racer написал(а):

CallFunctionFast(*capAddress, 0, #WS_CHILD + #WS_VISIBLE, 0, 0, 1, 1, WindowID(0), 0)

Функция требует окно.
Без него скорее всего работать не будет.

0

8

  • Автор: ВиниПур
  • Активный участник
  • Зарегистрирован: 11.11.2010
  • Приглашений: 0
  • Сообщений: 271
  • Уважение: [+8/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 22 часа
  • Последний визит:
    12.03.2022 21:07:46
Racer написал(а):

если оно невидимое, то снимков не будет,

Надо так, и окна не видно, и снимки есть.

Код:
OpenWindow(0,0,0,0,0,"")

0

Страница: 1

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Камера - создание нескольких изображений