Remote Webcam - Das volle Programm

[Zacherl]

Hi,

in unserem Haus etwas weiter oben steht ein Computer mit Webcam, der normalerweise immer an ist direkt vor dem Fenster. Die Cam habe ich so ausgerichtet, dass man sehen kann, wer an der Haustür steht.

Jetzt wollte ich ein Programm schreiben mit dem ich die Webcam anzapfen und die Einzelbilder auf meinen Computer übertragen kann.
Zu meinen Fragen:

* Wie kann ich ermitteln, ob die Webcam überhaupt angeschlossen ist
* Wie kann ich alle verfügbaren Webcamtreiber auflisten lassen
* Wie kann ich ein Einzelbild machen (mit dem gewählten Treiber) und das am besten in einem Stream ...

Florian

[alias5000]

Hmm, ganz dunkel erinnere ich mich dran, das es in der JVCL eine Kompo gibt, mit der du evtl. die Bilder der Webcam angucken kannst, schau mal nach. Das könnte im Reiter "Images,.." liegen. Iss aber ne sehr waage Erinnerung

Gruß alias

[Zacherl]

Wenns geht würde ich gerne keine externen Komponenten verwenden, nicht zuletzt, weil ich momentan Probleme mit den JEDIs hab.

[Matze]

Vieles müsstest du über die Suche finden: webcam.

Da gibt es einige Threads wie diesen hier oder gleich den aus der Code-Library.

[flossinger]

Hallo,

zum Glück brauchst du da nicht lange zu suchen, das geht mit video capture und steht genau in der MSDN Library.

Hast du eine USB cam? Wenn die nicht angeschlossen ist, dann findest du keinen Treiber.

Die Treiber kannst du mit capgetdriverdescription ausfindig machen, in dem du den driverindex durchgehst.
Wenn du ohnehin nur eine cam hast, dann ist es noch einfacher:

Delphi-Quellcode:

driverindex:=0; // only first one working  ie 0
capGetDriverDescription(driverindex,drvrname,80,drvrdescr,100);
   log(drvrname);
   log(drvrdescr);

Vollen Zugriff auf den Videostrem hast du mit der callback Funktion. Du musst definieren wie die heisst und dann den Videostream starten. In der call back aus kannst du auch deine Schnappschüsse zwischenspeichern und das Abspeichern, Verschicken, oder was auch immer veranlassen. Die zeitaufwändige Weiterverarbeitung selbst, sollte natürlich nicht in der callback selbst stattfinden. Ich finde, dass das der komfortabelste Weg ist, wenn du ohnehin streamst und es werkelt zuverlässig.

Delphi-Quellcode:

capSetCallbackOnVideoStream(capwinh,longint(@callbackvideostream));
capCaptureSequenceNoFile(capwinh);

grüsse,
der flossinger

edit: präzisiert, was in der callback geschieht und besser nicht geschieht.

[Zacherl]

Vielen Dank, dass guck ich mir direkt mal an.