Webcam Anzeigen - PInvoke Fehler

AsdAsd1337 · 19. Dezember 2010, 16:56

Hallo,
und zwar möchte ich die Webcam anzeigen lassen in Vb.

Code:

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Public Class Form1
Const WM_CAP As Short = &H400S
Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10 : Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11
Const WM_CAP_EDIT_COPY As Integer = WM_CAP + 30 : Const WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50
Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP + 52 : Const WM_CAP_SET_SCALE As Integer = WM_CAP + 53
Const WS_CHILD As Integer = &H40000000 : Const WS_VISIBLE As Integer = &H10000000
Const SWP_NOMOVE As Short = &H2S : Const SWP_NOSIZE As Short = 1
Const SWP_NOZORDER As Short = &H4S : Const HWND_BOTTOM As Short = 1
Dim iDevice As Integer = 0 : Dim hHwnd As Integer
<DllImport("User32.dll")> Private Shared Function SendMessage(ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Object) As Integer
End Function
<DllImport("User32.dll")> Private Shared Function 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
End Function
<DllImport("User32.dll")> Private Shared Function DestroyWindow(ByVal hndw As Integer) As Boolean
End Function
<DllImport("Avicap32.dll")> Private Shared Function capCreateCaptureWindowA(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
End Function
<DllImport("Avicap32.dll")> Private Shared Function capGetDriverDescriptionA(ByVal wDriver As Short, ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, ByVal cbVer As Integer) As Boolean
End Function
Private Sub LoadDeviceList()
Dim strName As String = Space(100) : Dim strVer As String = Space(100) : Dim bReturn As Boolean
Dim x As Integer = 0
Do
bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)
If bReturn Then lstDevices.Items.Add(strName.Trim)
x += 1
Loop Until bReturn = False
End Sub
Private Sub StartCam()
Dim iHeight As Integer = picCapture.Height : Dim iWidth As Integer = picCapture.Width
hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, picCapture.Handle.ToInt32, 0)
If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0) : SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0) : SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)
SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, picCapture.Width, picCapture.Height, SWP_NOMOVE Or SWP_NOZORDER)
btnSave.Enabled = True : btnStop.Enabled = True : btnStart.Enabled = False
Else
DestroyWindow(hHwnd) : btnSave.Enabled = False
End If
End Sub
Private Sub ClosePreviewWindow()
SendMessage(hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0) : DestroyWindow(hHwnd)
End Sub

Fehler :

Spoiler anzeigen

In Codezeile :

VB.NET-Quellcode

If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then

Kann mir jemand helfen?

AsdAsd1337 · 20. Dezember 2010, 19:02

Hat niemand Ahnung davon?

bla · 20. Dezember 2010, 19:25

viellt hilf es eine andere sendmessage deklaration zu nutzen: pinvoke.net/default.aspx/user32/SendMessage.html

hal2000 · 20. Dezember 2010, 21:10

Deine p/invoke-Deklarationen sind nicht korrekt. Wenn in den Signaturen nicht die passenden Typen stehen, ruft der Marshaller die unverwaltete Funktion falsch auf und es kommt zu Fehlern im Aufrufstack. Verhindern kannst du das nur mit richtigen Deklarationen. Eine Hilfe dabei ist diese Tabelle und allgemein diese Seite.

Instant · 20. Dezember 2010, 22:23

Den Code einfügen

VB.NET-Quellcode

Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot

( bild machen)

dann zum speichern

VB.NET-Quellcode

Dim savefiledialog1 As New SaveFileDialog
Try
savefiledialog1.Title = "Save File"
savefiledialog1.FileName = "*.bmp"
savefiledialog1.Filter = "Bitmap |*.bmp"
If savefiledialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
End If
Catch ex As Exception
'Do Nothing
End Try

??!?!

Profit!
problem solved!

AsdAsd1337 · 21. Dezember 2010, 14:45

Instant,
ich möchte nicht den Bildschirm aufnehmen , sonder mit meiner Webcam.

hal2000 schrieb:

Deine p/invoke-Deklarationen sind nicht korrekt. Wenn in den Signaturen nicht die passenden Typen stehen, ruft der Marshaller die unverwaltete Funktion falsch auf und es kommt zu Fehlern im Aufrufstack. Verhindern kannst du das nur mit richtigen Deklarationen. Eine Hilfe dabei ist diese Tabelle und allgemein diese Seite.

Hey,
Was meinst du mit in den Signaturen nicht die passenden Typen stehen?
Kannst du das vielleicht mal konkreter erklären?

hal2000 · 21. Dezember 2010, 20:49

Eine C++-Signatur sieht z.B. so aus:

Quellcode

extern "C" __declspec(dllexport) long Calculate(int a, int b); //Achtung: long = 32 Bit, int ebenso. 64 Bit wäre "long long".

Für p/invoke;

VB.NET-Quellcode

'falsch:
<DllImport("MyLib.dll")> _
Public Function Calculate(a As Int32, b As Int32) As Long 'Long = 64 Bit
End Function
'richtig:
<DllImport("MyLib.dll")> _
Public Function Calculate(a As Int32, b As Int32) As Int32 'Int32 = 32 bit
End Function

Für den Rückgabetyp wird bei der falschen Variante mehr Speicher reserviert als nötig --> Fehler. Die Signatur muss typrichtig sein, wie im zweiten Beispiel angegeben.

AsdAsd1337 · 22. Dezember 2010, 15:18

hal2000 schrieb:

Eine C++-Signatur sieht z.B. so aus:

Quellcode

1

extern "C" __declspec(dllexport) long Calculate(int a, int b); //Achtung: long = 32 Bit, int ebenso. 64 Bit wäre "long long".

Für p/invoke;

Visual Basic Quellcode

1
2
3
4
5
6
7
8
9

'falsch:
_
Public Function Calculate(a As Int32, b As Int32) As Long 'Long = 64 Bit
End Function

'richtig:
_
Public Function Calculate(a As Int32, b As Int32) As Int32 'Int32 = 32 bit
End Function

Für den Rückgabetyp wird bei der falschen Variante mehr Speicher reserviert als nötig --> Fehler. Die Signatur muss typrichtig sein, wie im zweiten Beispiel angegeben.

Hey,
danke für die super Erklärung.
Kann ich nachvollziehen.

Aber ich benutze ja nur Integer ?

Meinst du damit das ich Short benutzen soll?

hal2000 · 22. Dezember 2010, 23:09

Nein - ich meine damit, dass du in die Dokumentation der DLL schauen und die Datentypen in VB entsprechend der verlinkten Tabelle wählen sollst.

SystemUnknow · 23. Dezember 2010, 06:54

Du hast Argumente von APIs mit falschen datentyp deklariert. Was hal2000 sagen will, du sollst APIs/Konstanten Deklarationen von pinvoke.net nemen.

AsdAsd1337 · 25. Dezember 2010, 13:50

SystemUnknow schrieb:

Du hast Argumente von APIs mit falschen datentyp deklariert. Was hal2000 sagen will, du sollst APIs/Konstanten Deklarationen von pinvoke.net nemen.

Hey,
leider kann ich nichts zur Avicap32.dll finden.

Was mach ich denn jetzt?

hal2000 · 25. Dezember 2010, 16:38

SystemUnknow schrieb:

Was hal2000 sagen will, du sollst APIs/Konstanten Deklarationen von pinvoke.net nemen.

Nein, das möchte ich damit nicht sagen. Er soll sich die Dokumentation der DLL ansehen und die Signaturen entsprechend der Tabelle interpretieren.

Dieser Post sollte eigentlich #11 sein und war wohl nicht im eingespielten Backup enthalten. Siehe: 25.12.10: VB-Paradise.de nun wieder online (Kopie der Rundmail) *Update*

leider kann ich nichts zur Avicap32.dll finden.

Dann hast du nicht gründlich genug gesucht: google.de/search?q=capCreateCa…official&client=firefox-a

fraju · 25. Dezember 2010, 21:27

[VB 2008] Kann man es hinbekommen dass die Webcam angezeigt wird ?

..hilft das?

lokue · 25. Dezember 2010, 22:44

Dieses Problem habe ich auch!
Bin auch seit Tagen dabei irgendwas herauszufinden um den Fehler zu vermeiden, leider vergebens.
Haltet mich auf dem laufenden! :thumbsup:

lokue · 25. Dezember 2010, 23:37

Ok meine Freunde, ich habe es rausgefunden ! es funktioniert nun alles.

dotnet-snippets.de/dns/webcam-…box-anzeigen-SID1370.aspx

du musst nur diesen Code hier nehmen, das funktioniert 1 a !

Du brauchst nur die Userform erstellen, ein Button und eine PictureBox...

COM 2000 · 27. Dezember 2010, 15:17

ich habe eine Frage zu dem fast gleichen Code und wollte jetzt nicht extra ein neues Topic aufmachen...

Und zwar klappt alles gut aber wenn ich auf den Button klicke um die Cam zu starten kommt dieses Auswahlfenster von Windows:
"Wählen sie das Videogerät aus..."

Nur wie kann ich das umgehen ? Gibt es eine Möglichkeit sich per Code gleich für eine der z.B 2 angeschlossenen Kamera's zu entscheiden bzw. beide abzufangen ?

Wäre über eine Antort sehr dankbar

lokue · 28. Dezember 2010, 21:28

COM 2000 schrieb:

Nur wie kann ich das umgehen ? Gibt es eine Möglichkeit sich per Code gleich für eine der z.B 2 angeschlossenen Kamera's zu entscheiden bzw. beide abzufangen ?

Möglichkeiten gibt es, aber es ist schwierig.
Bin auch nicht durchgestiegen. Nimm mal den ersten Link den ich gepostet habe. Da wird nur zwischen EINER unterschieden.

Wenn du auswählen möchtest welche du benutzten willst oder net, musste das Hardwareseitig bei dir im Geräte-Manager einstellen.
8-)

COM 2000 · 29. Dezember 2010, 20:22

Zur Info nochmal, ich habe nur eine Kamera am PC aber Manycam installiert.
Wenn ich meine Normale Kamera auswähle stürzt das Programm mit einer Fehlermeldung ab: "Eine externe Komponente hat eine Ausnahme ausgelöst."
Wenn ich aber Manycam auswähle, heißt es ich muss erst Manycam starten um überhaupt etwas zu sehen.
Ich würde einfach gerne direkt auf meine Kamera zugreifen.

Und wie meinst du das mit "Da wird nur zwischen EINER unterschieden."
Ich muss immer noch auswählen.

AsdAsd1337 · 6. Januar 2011, 11:21

Hallo,

ich habe mich mal rangesetzt und ausprobiert ohne Ende.

Ich bekomme es hin , das in 90% der fällen sofort die WebCam angezeigt wird.

Startet man die Cam jedoch ein 2. Mal , wird der Auswahldialog wieder angezeigt -.-

Code:

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Public Class Cam
Const Start As Short = &H400S
Const Connect As Integer = Start + 10
Const Disconnect As Integer = Start + 11
Const EditCopy As Integer = Start + 30
Const SetPreview As Integer = Start + 50
Const SetPreviewRate As Integer = Start + 52
Const SetScale As Integer = Start + 53
Const Child As Integer = &H40000000
Const Visibl3 As Integer = &H10000000
Const NoMove As Short = &H2S
Const NoSize As Short = 1
Const NozOrder As Short = &H4S
Const Bott0m As Short = 1
Const VideoRec = Start + 62
Const VideoSave = Start + 23
Dim iDevice As Integer = 0 : Dim HwnDD As IntPtr
Private Geräte As New List(Of String)
<DllImport("User32.Dll", SetLastError:=True, CharSet:=CharSet.Auto)> Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
End Function
<DllImport("User32.Dll")> Private Shared Function SetWindowPos(ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As UInt32) As Boolean
End Function
<DllImport("User32.Dll")> Private Shared Function DestroyWindow(ByVal hWnd As IntPtr) As Boolean
End Function
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
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
Private Sub LadeGeräte()
Geräte.Clear()
Try
Dim Name As String = Space(100) : Dim Ver As String = Space(100)
Dim bReturn As Boolean
Dim x As Integer = 0
Do
bReturn = capGetDriverDescriptionA(CShort(x), Name, 100, Ver, 100)
If bReturn Then : Geräte.Add(Name.Trim) : End If
x += 1
Loop Until bReturn = False
Catch
End Try
End Sub
Private Sub StartCam()
Try
HwnDD = CType(capCreateCaptureWindowA(Geräte(0), Visibl3 Or Child, 0, 0, 1200, 1200, PicBox.Handle.ToInt32, 0), IntPtr)
If CBool(SendMessage(HwnDD, Connect, CType(iDevice, IntPtr), CType(0, IntPtr))) Then
SendMessage(HwnDD, SetScale, CType(True, IntPtr), CType(0, IntPtr))
SendMessage(HwnDD, SetPreviewRate, CType(66, IntPtr), CType(0, IntPtr))
SendMessage(HwnDD, SetPreview, CType(True, IntPtr), CType(0, IntPtr))
SetWindowPos(HwnDD, CType(Bott0m, IntPtr), 0, 0, PicBox.Width, PicBox.Height, NoMove Or NozOrder)
Else
DestroyWindow(HwnDD)
End If
Catch
End Try
End Sub
Private Sub StopCam()
Try : SendMessage(HwnDD, Disconnect, CType(iDevice, IntPtr), CType(0, IntPtr)) : DestroyWindow(HwnDD) : Catch : End Try
End Sub
Private Sub SavePic()
Try
Dim Data As IDataObject
SendMessage(HwnDD, EditCopy, CType(0, IntPtr), CType(0, IntPtr)) : Data = Clipboard.GetDataObject()
If Data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
Dim Bmp As Bitmap : Bmp = CType(CType(Data.GetData(GetType(System.Drawing.Bitmap)), Image), Bitmap)
PicBox.Image = Bmp : StopCam()
Bmp.Save(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\WebCamBild.jpg", Imaging.ImageFormat.Jpeg)
End If
Catch
End Try
End Sub
Private Sub Cam_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
StopCam()
Environment.Exit(1)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LadeGeräte()
End Sub

Ich suche allerdings immernoch einen Code , wo niemals das Auswahlfenster angezeigt wird...
Es wäre einfach nur gut , wenn man die Standardcam starten könnte direkt.

Bei Msn z.b. funktioniert das doch auch immer..

Webcam Anzeigen - PInvoke Fehler

Webcam Anzeigen - PInvoke Fehler

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

hal2000 schrieb:

Quellcode

VB.NET-Quellcode

hal2000 schrieb:

SystemUnknow schrieb:

SystemUnknow schrieb:

finish

COM 2000 schrieb:

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben