Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Naziv usb web kamere? (multicam)

[es] :: Visual Basic 6 :: Naziv usb web kamere? (multicam)

[ Pregleda: 1598 | Odgovora: 17 ]

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Jope@Hr
Hrvatska

Član broj: 35997
Poruke: 13
*.net.htnet.hr.



Profil

icon Naziv usb web kamere? (multicam)01.11.2004. u 21:47

Zanima me kad imam vise web kamera na jednom usb hub-u, mogu li (i kako) saznati pojedinacna imena tih kamera preko vb koda. npr. "Veo webcam", "Logitech webcam",... Ovaj kod mi je potreban za softver za nadzor.
01.11.2004. u 21:47 

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Naziv usb web kamere? (multicam)04.11.2004. u 16:18
Mozda ovo pomogne. Pogledaj VBEnumCapDrivers funkciju.

http://www.shrinkwrapvb.com/vcap_src.zip
Prikačeni fajlovi
04.11.2004. u 16:18 

Jope@Hr
Hrvatska

Član broj: 35997
Poruke: 13
*.net.htnet.hr.



Profil

icon Re: Naziv usb web kamere? (multicam)04.11.2004. u 17:32
Nisi me razumio, treba mi poseban api da dobijem samo ime sourcea
04.11.2004. u 17:32 

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Naziv usb web kamere? (multicam)04.11.2004. u 18:22
Pa napisah ti, pogledaj VBEnumCapDrivers funkciju u ovom kodu.
04.11.2004. u 18:22 

Jope@Hr
Hrvatska

Član broj: 35997
Poruke: 13
*.net.htnet.hr.



Profil

icon Re: Naziv usb web kamere? (multicam)04.11.2004. u 22:11
Ej stvarno izvini na sve moguce nacine ali ja to ne mogu dobit. Nasao sam funkciju EnumCapDrivers- (ili sto je vec) i opet ne mogu dobit ime kamere. Posto sam nov u ovim vodama, a ti mi djelujes iskusniji u ovim stvarima mozes li, molim te napisati jednostavni program tipa> -----Print CapturingSourceName--------- ili nesto slicno? Rekao si da to mogu dobit preko gornje funkcije pa to nebi trebalo bit problem(ja sam izuzetak).
04.11.2004. u 22:11 

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Naziv usb web kamere? (multicam)05.11.2004. u 09:58
Pokreni aplikaciju na koju si dobio link (btw, imas je i u attachmentu uz poruku). U options meniju treba da ti se pojavi lista svih devicea koje mozes da koristis za Capture. Aplikacija sluzi da ti prikaze listu svih raspolozivih devicea, da odaberes koji hoces i da radis capture sa selektovanim deviceom.
05.11.2004. u 09:58 

Jope@Hr
Hrvatska

Član broj: 35997
Poruke: 13
*.net.htnet.hr.



Profil

icon Re: Naziv usb web kamere? (multicam)05.11.2004. u 11:51
Vec mi postaje neugodno. Da bude lakse neke stvari cu istaknuti.
Pa reko sam ti da bez PO FRKE mogu dobiti dijalog sa SVIM podatcima o sourceu (isto kao vbenumcapdrivers).
Ali meni treba funkcija koja ce ispisati SAMO ime sourcea! Primjeri su u pocetnom pitanju.
Isto sam ti tako rekao da se dizajn aplikacije NE SLAZE sa windowsima pa navedeni dijalog NE DOLAZI u obzir.
Jope
05.11.2004. u 11:51 

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Naziv usb web kamere? (multicam)05.11.2004. u 12:38
Je l' dobijas sa capGetDriverDescriptionA ono sto ti treba ili ne?
05.11.2004. u 12:38 

Jope@Hr
Hrvatska

Član broj: 35997
Poruke: 13
*.net.htnet.hr.



Profil

icon Re: Naziv usb web kamere? (multicam)06.11.2004. u 08:34
Po imenu mislim da je. Jel mi mozes napisat kako ga iskoristiti?
06.11.2004. u 08:34 

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Naziv usb web kamere? (multicam)06.11.2004. u 11:25
Znaci vracamo se na pocetak. Aplikacija na koju imas link u funkciji VBEnumCapDrivers koristi capGetDriverDescriptionA metod.
06.11.2004. u 11:25 

Jope@Hr
Hrvatska

Član broj: 35997
Poruke: 13
*.net.htnet.hr.



Profil

icon Re: Naziv usb web kamere? (multicam)06.11.2004. u 14:08
Daj pliz!!! Samo je deklarirana u modulu. Nigdje se u programu zapravo ne koristi. Upisi pod |find| vbEnumCapDriversA i neces ga nigdje nac (osim u modulu, deklaraciji). Vidjet ces... Mene zanima kako je iskoristiti, posto primjera nema u programu! Na msdn-u sam bio 2 puta u zivotu, tako da nema svrhe da to trazim.
06.11.2004. u 14:08 

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Naziv usb web kamere? (multicam)06.11.2004. u 14:14
u funkciji VBEnumCapDrivers se koristi capGetDriverDescription
Code:

Public Function VBEnumCapDrivers(ByRef frm As frmMain) As Long
'/*
' * Enumerate the potential capture drivers and add the list to the Options
' * menu.  This function is only called once at startup.
' * Returns 0 if no drivers are available.
' */
Const MAXVIDDRIVERS As Long = 9
Const CAP_STRING_MAX As Long = 128
Dim numDrivers As Long
Dim driverStrings(0 To MAXVIDDRIVERS - 1) As String
Dim Index As Long
Dim Device As String
Dim Version As String
Dim menu As VB.menu
 
Device = String$(CAP_STRING_MAX, 0)
Version = String$(CAP_STRING_MAX, 0)
numDrivers = 0
For Index = 0 To (MAXVIDDRIVERS - 1) Step 1
    If 0 <> capGetDriverDescription(Index, _
                                    Device, _
                                    CAP_STRING_MAX, _
                                    Version, _
                                    CAP_STRING_MAX) _
                                                            Then
        'extend the menu
        If Index > 0 Then
            Load frm.mnuDriver(Index)
        End If
        Set menu = frm.mnuDriver(Index) 'get an object pointer to the new menu
        'Concatenate the device name and version strings to the new menu item
        menu.Caption = left$(Device, InStr(Device, vbNullChar) - 1)
        menu.Caption = menu.Caption & " "
        menu.Caption = menu.Caption & left$(Version, InStr(Version, vbNullChar) - 1)
        menu.Enabled = True
        numDrivers = numDrivers + 1
    End If

Next
VBEnumCapDrivers = numDrivers
End Function


06.11.2004. u 14:14 

Jope@Hr
Hrvatska

Član broj: 35997
Poruke: 13
*.net.htnet.hr.



Profil

icon Re: Naziv usb web kamere? (multicam)06.11.2004. u 14:49
Svejedno ne mogu dobit ime kamere. Jedino driver (microsoft wdm)
06.11.2004. u 14:49 

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Naziv usb web kamere? (multicam)06.11.2004. u 15:43
E onda ces morati nesto drugo da koristis za ovo. Verovatno sa WMI moze da se dobije informacija koja ti treba, potrazi na netu
06.11.2004. u 15:43 

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Naziv usb web kamere? (multicam)06.11.2004. u 16:19
Probaj ovo

Code:

Public Function EnumUSBDevices(Optional strServer As String = ".")
        
    Dim objsUSB
    Dim objUSB
    
    Set objsUSB = GetObject("winmgmts://" & strServer). _
     ExecQuery("SELECT * FROM Win32_USBHub")
    
    For Each objUSB In objsUSB
        Debug.Print objUSB.Name, objUSB.Description, objUSB.DeviceID
    Next objUSB
    
    Set objsUSB = Nothing
        
End Function

06.11.2004. u 16:19 

Jope@Hr
Hrvatska

Član broj: 35997
Poruke: 13
*.net.htnet.hr.



Profil

icon Re: Naziv usb web kamere? (multicam)06.11.2004. u 20:31
Gle sto mi se javlja>
USB Root Hub USB Root Hub USB\ROOT_HUB\4&845673&0
|name| |description| |deviceID|
Jel mogu iz ovog dobit bas ime?
06.11.2004. u 20:31 

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Naziv usb web kamere? (multicam)06.11.2004. u 21:09
ja dobijam sve USB uredjaje na svojoj masini

Code:

USB Root Hub  USB Root Hub  USB\ROOT_HUB\4&182EC3C&0
USB Root Hub  USB Root Hub  USB\ROOT_HUB\4&E147424&0
USB Mass Storage Device     USB Mass Storage Device     USB\VID_0C76&PID_0005\5&C2A9964&0&2
Aladdin USB Key             Aladdin USB Key             USB\VID_0529&PID_0001\5&C2A9964&0&1
USB Root Hub  USB Root Hub  USB\ROOT_HUB\4&1611BE1&0
USB Root Hub  USB Root Hub  USB\ROOT_HUB\4&169BB4E2&0
USB Root Hub  USB Root Hub  USB\ROOT_HUB20\4&3583CF18&1

06.11.2004. u 21:09 

Jope@Hr
Hrvatska

Član broj: 35997
Poruke: 13
*.net.htnet.hr.



Profil

icon Re: Naziv usb web kamere? (multicam)06.11.2004. u 22:17
Pa i ja ih dobijem u takvim zapisima, reko sam ti. Ali meni treba ime uredjaja.
06.11.2004. u 22:17 

[es] :: Visual Basic 6 :: Naziv usb web kamere? (multicam)

[ Pregleda: 1598 | Odgovora: 17 ]

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.