Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

vb.net webcamzugriff problem

Mitglied: 60734

60734 (Level 1)

24.11.2009, aktualisiert 15:30 Uhr, 2589 Aufrufe

Hallo Leute!

Habe mir heute Mittag aus einem Codebeispiel, wie man ne Webcam in vb.net ansteuert ne Klasse draus gebastelt, sieht jetzt so aus:

01.
Public Class Webcam 
02.
    Const WM_CAP As Short = &H400S 
03.
    Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10 
04.
    Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11 
05.
    Const WM_CAP_EDIT_COPY As Integer = WM_CAP + 30 
06.
    Const WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50 
07.
    Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP + 52 
08.
    Const WM_CAP_SET_SCALE As Integer = WM_CAP + 53 
09.
    Const WS_CHILD As Integer = &H40000000 
10.
    Const WS_VISIBLE As Integer = &H10000000 
11.
    Const SWP_NOMOVE As Short = &H2S 
12.
    Const SWP_NOSIZE As Short = 1 
13.
    Const SWP_NOZORDER As Short = &H4S 
14.
    Const HWND_BOTTOM As Short = 1 
15.
    Dim iDevice As Integer = 0 
16.
    Dim hHwnd As Integer  
17.
 
18.
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Object) As Integer 
19.
    Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer 
20.
    Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean 
21.
    Declare Function capCreateCaptureWindowA Lib "avicap32.dll" (ByVal lpszWindowName As String, ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Short, ByVal hWndParent As Integer, ByVal nID As Integer) As Integer 
22.
    Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, ByVal cbVer As Integer) As Boolean 
23.
 
24.
 
25.
    Function OpenPreviewWindow(ByVal fenster As Object, ByVal previewrate As Integer, ByVal width As Integer, ByVal height As Integer) 
26.
 
27.
        hHwnd = capCreateCaptureWindowA("webcam", WS_VISIBLE Or WS_CHILD, 0, 0, width, height, fenster.Handle.ToInt32, 0) 
28.
        If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, 0, 0) Then 
29.
            SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0) 
30.
            SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, previewrate, 0) 
31.
            SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0) 
32.
            SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, width, height, SWP_NOMOVE Or SWP_NOZORDER) 
33.
        Else 
34.
            DestroyWindow(hHwnd) 
35.
        End If 
36.
    End Function 
37.
    Function ClosePreviewWindow() 
38.
        SendMessage(hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0) 
39.
        DestroyWindow(hHwnd) 
40.
    End Function 
41.
 
42.
    Private Sub preview_save(ByVal filename As String) 
43.
        Dim data As IDataObject 
44.
        Dim bmap As Image 
45.
        SendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0) 
46.
        data = Clipboard.GetDataObject() 
47.
        If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then 
48.
            bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image) 
49.
            bmap.Save(filename, Imaging.ImageFormat.Jpeg) 
50.
        End If 
51.
    End Sub 
52.
 
53.
End Class
Um die webcam dann zu starten mache ich es wie folgt:
01.
Dim webcamxy as new webcam()
Und dann z.B.

01.
Private Sub abc () Handles Button.Click 
02.
webcamxy.openPreviewWindow(PictureBox1, 50, 320, 240) 
03.
End Sub

Leider wird mir jedes mal, sobald ich ich dann die Webcam starten will, dieses blöde Fenster angezeigt !!! http://www.abload.de/img/bildx8rh.jpg

Wie kriege ich das weg, sodass mir das Bild der Webcam direkt in der PictureBox angezeigt wird, ohne erst dieses Zwischenfenster, gerade wenn's nur eine!!!! webcam gibt.???

Gruss Markus
Ähnliche Inhalte
Visual Studio

VB.Net - Problem mit Umleitung der Standard-Ausgabe

gelöst Frage von emeriksVisual Studio4 Kommentare

Hi, habe eine Consolen-Anwendung in VB.Net, welche nichts anderes tut, als in der Console "Hallo Welt!" auszugeben. Habe weiterhin ...

Visual Studio

Variablen in VB.NET

gelöst Frage von MarcoBornVisual Studio4 Kommentare

Hallo Forum, in VB.NET gibt es ja die Möglichkeit, Variablen global oder lokal zu definieren. Zusätzlich können Variablen auch ...

Visual Studio

Automatische Treiberinstallation mit VB.NET

gelöst Frage von joehuabaVisual Studio3 Kommentare

Hallo Zusammen, Folgende Problemstellung: 1. Ich habe einen Rechner per Hand neu installiert, da fehlen einige Treiber 2. Ich ...

Visual Studio

Netzwerkdrucker installieren, vb.net

gelöst Frage von Tealk144Visual Studio

Hallo Leute, also nach langem Tüfteln habe ich jetzt einen Funktionierenden Drucker installationscode, den ich gerne mit euch teilen ...

Neue Wissensbeiträge
Windows 10

Neue Sicherheitslücke in Windows 10 (Version 1709) durch Google öffentlich geworden

Information von kgborn vor 8 StundenWindows 10

Vor ein paar Tagen haben Googles Sicherheitsforscher vom Projekt Zero eine Sicherheitslücke im Edge-Browser publiziert. Jetzt wurde eine weitere ...

iOS
IOS 11.2.6 verfügbar
Information von sabines vor 14 StundeniOS

Mit dem Update soll der Bug behoben werden, bei dem eine bestimmte Zeichenkette IOS zum Absturz gebracht hat.

Sicherheit
Sicherheitsrisiko: Die Krux mit 7-Zip
Information von kgborn vor 1 TagSicherheit8 Kommentare

Bei vielen Anwendern ist das Tool 7-Zip zum Entpacken von Archivdateien im Einsatz. Die Software ist kostenlos und steht ...

Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 1 TagInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Heiß diskutierte Inhalte
Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server25 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

LAN, WAN, Wireless
VPN Cisco ASA5505 PaloAlto PA-200
gelöst Frage von YannoschLAN, WAN, Wireless22 Kommentare

Hallo zusammen, ich würde gerne ein Site-to-Site VPN zwischen den beiden Standorten aufbauen. PaloAlto PA200 Internetanschluss Deutsche Telekom GK ...

Visual Studio
Singletone Objekt in Datei speichern
gelöst Frage von it4baerVisual Studio13 Kommentare

Hallo, ist es möglich ein Singleton-Objekt zu "serialisieren" und dann in eine Datei zu speichern um es später wieder ...