Autoit - WebcamSnapshotter [Directshow]

Madara

Hallo,

Ich präsentiere mein ersten Skriptrelease: WebcamSnapshotter.
Mit WebcamSnapshotter lassen sich im Handumdrehen Webcam-Schnappschüsse erstellen, ohne
großen Aufwand.
WebcamSnapshotter listet alle Webcams in einer ComboBox auf, der Benutzer kann die gewünschte
Webcam selektieren, und ein Schnappschuss wird erstellt.
Hierbei wird auf eine C-Dll verwendet (http://sol.gfxile.net/escapi/index.html).
Es werden Directshow APIs verwendet, um professionell mit der Webcam kommunizieren zu können.
Der Schnappschuss wird in dem Verzeichnis gespeichert, in dem WebcamSnapshotter gestartet wurde.
Ein Dankeschön an trancexx von autoitscript.com für die Subrogation.au3.

Features:

Schnelle Webcamschnappschüsse erstellen
Professionelle Webcamverwendung durch DirectShow API's
Keine Zusatzdateien notwending, Dll's werden im Speicher verwendet und nicht extrahiert --> Standalone executable
Einfache Auswahl der Webcam per ComboBox
Schnappschüsse werden im .jpg Format gespeichert --> Geringe Dateigröße im vgl zu .png Bildern.
Keine Probleme mit Video-Source-Popups!

[Blockierte Grafik: http://s7.directupload.net/images/140102/83mycfpz.gif]

Version: 1.0
Author: Madara (aka Madara-Uchiha)
Credits: trancexx

Bitte gebt Credits falls ihr mein Programm verwendet.
Konstruktive Kritik ist erwünscht

An alle die eine kleine DeviceList wollen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>

[/autoit][autoit][/autoit][autoit]

$KnownCams = GUICreate("Webcam Device List", 363, 281, 110, 124)
$ListView1 = GUICtrlCreateListView("Webcam Device Name|Light|Popup", 8, 8, 346, 238)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 202)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 70)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 70)
$ListView1_0 = GUICtrlCreateListViewItem("1.3M WebCam|No|No", $ListView1)
$ListView1_1 = GUICtrlCreateListViewItem("1.3M HD WebCam|Yes|No", $ListView1)
$ListView1_2 = GUICtrlCreateListViewItem("Namuga 1.3M Webcam|No|No", $ListView1)
$ListView1_3 = GUICtrlCreateListViewItem("Rocketfish HD Webcam Lite|Yes|No", $ListView1)
$ListView1_4 = GUICtrlCreateListViewItem("USB 2.0 Camera|No|Yes", $ListView1)
$ListView1_5 = GUICtrlCreateListViewItem("USB 2.0 UVC HD Webcam|No|No", $ListView1)
$ListView1_6 = GUICtrlCreateListViewItem("USB-Videodevice|Unknown|No", $ListView1)
$ListView1_7 = GUICtrlCreateListViewItem("WebCam SC-0311139N|No|No", $ListView1)
$ListView1_10 = GUICtrlCreateListViewItem("WebCam SCB-1900N|No|No", $ListView1)
$ListView1_11 = GUICtrlCreateListViewItem("1.3M Integrated Webcam|Yes|Yes", $ListView1)
$ListView1_12 = GUICtrlCreateListViewItem("A4 TECH USB2.0 PC Camera|Yes|No", $ListView1)
$ListView1_13 = GUICtrlCreateListViewItem("Asus built-in Webcams|Yes|No", $ListView1)
$ListView1_14 = GUICtrlCreateListViewItem("BisonCam, NB Pro|Yes|No", $ListView1)
$ListView1_15 = GUICtrlCreateListViewItem("Chicony USB 2.0 Camera|Yes|No", $ListView1)
$ListView1_16 = GUICtrlCreateListViewItem("Compaq Presario CQ60|Yes|No", $ListView1)
$ListView1_17 = GUICtrlCreateListViewItem("HD WebCam|Yes|No", $ListView1)
$ListView1_18 = GUICtrlCreateListViewItem("HP Pavilion Webcam|Yes|No", $ListView1)
$ListView1_19 = GUICtrlCreateListViewItem("Lenovo EasyCamera|Yes|No", $ListView1)
$ListView1_20 = GUICtrlCreateListViewItem("Logitech C270 HD|Yes|No", $ListView1)
$ListView1_21 = GUICtrlCreateListViewItem("Logitech C310|Yes|No", $ListView1)
$ListView1_22 = GUICtrlCreateListViewItem("Logitech C910 HD|Yes|No", $ListView1)
$ListView1_23 = GUICtrlCreateListViewItem("Logitech c920 HD|Yes|No", $ListView1)
$ListView1_24 = GUICtrlCreateListViewItem("Logitech QuickCam|Yes|No", $ListView1)
$ListView1_25 = GUICtrlCreateListViewItem("Microsoft Lifecam|Yes|No", $ListView1)
$ListView1_26 = GUICtrlCreateListViewItem("Microsoft Lifecam VX-3000|Yes|No", $ListView1)
$ListView1_27 = GUICtrlCreateListViewItem("PS3 Eye Camera|Yes|No", $ListView1)
$ListView1_28 = GUICtrlCreateListViewItem("Sony Webcams|Yes|Yes", $ListView1)
$ListView1_29 = GUICtrlCreateListViewItem("Toshiba Web Camera|Yes|No", $ListView1)
$ListView1_30 = GUICtrlCreateListViewItem("TrueVision HD|Yes|No", $ListView1)
$ListView1_31 = GUICtrlCreateListViewItem("USB2.0 UVC 2M|Yes|No", $ListView1)
$ListView1_32 = GUICtrlCreateListViewItem("CyberLink YouCam|Yes|Yes", $ListView1)
$ListView1_33 = GUICtrlCreateListViewItem("WC060 Series SWEEX HD|Yes|No", $ListView1)
$ListView1_34 = GUICtrlCreateListViewItem("Webcam SC-13HDL11939N|Yes|No", $ListView1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

[/autoit]

**alpines**

Sieht schick aus, nur hab ich keine Webcam

//Vielleicht wäre eine Preview noch gut? Also das man sich positionieren kann oder ähnliches und dann snapshotten kann?
Weiß nicht ob das drinne ist da ich keine Webcam habe.

Kannst dir das Script im Anhang mal anschauen, vielleicht hilft es dir.

Madara

Zitat von alpines

Sieht schick aus, nur hab ich keine Webcam

Zu Testzwecken lässt sich mit ManyCam eine Webcam emulieren
Falls es dich interessiert: http://manycam.com/

Cheater Dieter

~~Mh, aus irgendeinem Grund bekomme ich nur ein komplett schwarzes Bild raus. Meine Webcam ist fest ins Laptop integriert, tut sonst auch und im Gerätemanager werden auch keine Fehler angezeigt.~~

Problem gelöst Ich sollte vl. das Klebeband vor der Webcam abmachen, bevor ich anfange, zu fotografieren :pinch:
Schönes Programm, tut was es soll

Madara

Zitat von Cheater Dieter

~~Mh, aus irgendeinem Grund bekomme ich nur ein komplett schwarzes Bild raus. Meine Webcam ist fest ins Laptop integriert, tut sonst auch und im Gerätemanager werden auch keine Fehler angezeigt.~~

Problem gelöst Ich sollte vl. das Klebeband vor der Webcam abmachen, bevor ich anfange, zu fotografieren :pinch:
Schönes Programm, tut was es soll

Haha^^
Freut mich das es funktioniert.
Wäre nett wenn ihr nach erfolgreichem/nicht erfolgreichem Testen euer OS + Bit-System und die Bezeichnung eurer Webcam dazuschreibt
Dann kann ich im Falle von Fehlern der Ursache schneller auf den Grund gehen

**alpines**

Nicht erfolgreicher Test: Win7 64-Bit (Professional)
Vermutlicher Grund: Keine Webcam

Xenon

Schönes Programm, funktioniert an sich super.
Jedoch startet sich beim Ausführen deines Programms bei mir im Hintergrund automatisch CyberLink YouCam (ist mir zuerst gar nicht aufgefallen). Wenn ich das nicht beende, hängt sich dein Programm einfach auf, sobald man auf Snapshot klickt (GUI reagiert nicht mehr...). Ich glaube aber nicht, dass du da was dagegen machen kannst...

BS: Windows 7 Professional (64 Bit)
Webcam: SC-13HDN10939N

MfG Xenon

Madara

alpines: Dann sollte eigentlich diese Meldung erscheinen, und WebcamSnapshotter sollte sich beenden:

[Blockierte Grafik: http://s7.directupload.net/images/140102/eja4tz6d.png]

**alpines**

Tut sie ja auch

Madara

Zitat von Xenon

Schönes Programm, funktioniert an sich super.
Jedoch startet sich beim Ausführen deines Programms bei mir im Hintergrund automatisch CyberLink YouCam (ist mir zuerst gar nicht aufgefallen). Wenn ich das nicht beende, hängt sich dein Programm einfach auf, sobald man auf Snapshot klickt (GUI reagiert nicht mehr...). Ich glaube aber nicht, dass du da was dagegen machen kannst...

BS: Windows 7 Professional (64 Bit)
Webcam: SC-13HDN10939N

MfG Xenon

Dieses Problem kenne ich
Ich habe bei mir ne Build-In Webcam am Lappi, und da war auch CyberLink YouCam mit installiert.
Bei manchen Webcams sind die Treiber halt so konfiguriert das ein PopUp oder ähnliches kommt.
Da kann ich glaube ich nichts machen

Madara

#DeviceList geadded

Xenon

Zitat von Madara

Dieses Problem kenne ich
Ich habe bei mir ne Build-In Webcam am Lappi, und da war auch CyberLink YouCam mit installiert.
Bei manchen Webcams sind die Treiber halt so konfiguriert das ein PopUp oder ähnliches kommt.
Da kann ich glaube ich nichts machen

Bei mir ist es auch eine Build-In Webcam am Laptop

Aber ich habe jetzt einfach vor dem MessageLoop

[autoit]

ProcessClose ("YouCam.exe")

[/autoit]

eingefügt - nicht die perfekte Lösung, aber klappt...

LG Xenon

**alpines**

[autoit]

If ProcessExists("YouCam.exe") Then ProcessClose("YouCam.exe")

[/autoit]

Wäre ein bisschen besser.

Xenon

Ja ja , aber die Lösung ist sowieso nicht die optimalste. Und im schlimmsten Fall gibt ProcessClose halt @error zurück

MfG Xenon

Madara

Sollte aber machbar sein wenn man ein vernünftiges Error-Handling einbaut.
Und schließlich hat nicht jede Webcam die CyberLinkYouCam-Software