WebCam mit DirectShow

[krzyk_91]

Ich habe ein Problem mit dem Programm. Wenn ich die Auflösung vergrössern will, klicke ich auf Videosize und ändere eine größere Auflösung und ich bekomme einen Fehler: This format is not currently available. Weiß jemand, wie man das korrigieren kann???

[grizzly]

Die Demo 2.1 kann nur RGB24 Video-Frames verarbeiten. Vielleicht liefert Deine Kamera bei höheren Auflösungen kein RGB24 mehr?
Wenn das das Problem ist, dann mußt Du Dich noch ein wenig gedulden: Demnächst gibt es eine neue Version, welche noch folgende drei Formate unterstützt:

YUY2 (vermtl. baugleich mit YUYV, YUNV)
MJPG,
I420 (vermtl. baugleich mit YV12, IYUV)

Da kann ich mich dann auch gleich um den Splitter kümmern, der ärgert mich selber auch schon....


Gruß
Michael

[krzyk_91]

andere Programme, z. B. amcap stellen mir größere Auflösungen zur Vefügung, aber ich werde warten, bis eine neue Versoin zugänglich ist

[grizzly]

So, die neue Version ist da: Version 3.0 im ersten Post.

Wie immer war zu wenig Zeit zum Schreiben und Testen.

Bekannte Mängel:
1.
Die Software hätte noch gut einen Warnhinweis vertragen, wenn man eine Kamera im Surveillance-Modus betreibt. Da werden bis zu 4000 JPGs auf die Platte geschrieben! Außerdem versucht sie gnadenlos, ein Spy Unterverzeichnis anzulegen - was auch nicht immer klappen wird!
2.
Die Liste der verfügbaren Video-Auflösungen wird nicht angepaßt, wenn man beispielsweise die Auflösung über die Treiber-Dialoge ändert.
3.
Ich mir noch nicht sicher, ob es eine gute Idee war, beim Call-Back von "Buffered" auf das Sample-Interface zu wechseln. Falls es sonderbare Effekt mit der neuen Version gibt, in VFrames.pas, in der Routine VideoStart die 0 in eine 1 umwandeln:

Delphi-Quellcode:

VideoSample := TVideoSample.Create(Application.MainForm.Handle, false, 0, HR)  // 1 statt 0 eintragen

4.
Der direkte Zugriff auf einige Video-Eigenschaften hat gelegentlich keinen Effekt. Vielleicht ist es aber auch nur ein Kamera-Gerätesoftware Problem.

Nachtrag:
Da VSampleDemo mittlerweile viel zu überfrachtet ist, um wirklich noch als "Demo" zu funktionieren, habe ich noch drei Miniatur-Demos erzeugt:
Demo01: Öffnet die erste gefundene Videokamera und zeigt deren Bilder an. Nichts weiter.
Demo02: Erlaubt Auswahl der Kamera und Start/Stop Operationen
Demo03: Wie Demo02, zusätzlich kann man die Eigenschafts-Dialoge der Kamera aufrufen, Bilder abspeichern, und es wird gezeigt, wie sich in die Videobilder malen läßt.
Source dieser simplen Demos findet sich ebenfalls im ersten Post.


Viel Glück :roll:
Michael

[grizzly]

Kleines Update:

Version 3.1 im ersten Post. Dort sind auch die Änderungen am Code vermerkt.


Gruß
Michael

[Zacherl]

Sehr schönes Beispiel zur Webcamverwendung. Habe das Teil grade mal unter XE2 kompiliert und mit FakeWebcam getestet. Dort hängt sich die Anwendung allerdings dauerhaft auf, wenn ich folgende Zeile nicht auskommentiere:

Delphi-Quellcode:

FUNCTION TVideoSample.GetStreamInfo(VAR Width, Height: integer; VAR FourCC: dword): HResult;
VAR
  ..
BEGIN
  Width := 0;
  Height := 0;
  // Die folgende Anweisung führt zum Einfrieren des Programms
  // pIMediaControl.Stop;

[grizzly]

Vielen Dank für den Test!

Ich habe diese Zeile bei mir nun auch mal rausgeworfen, sowie die zugehörige Zeile

Delphi-Quellcode:

pIMediaControl.Run;

am Ende der Prozedur. Und es macht auf keinem meiner Rechner / Webcams etwas aus. Video läuft nach wie vor.

Jetzt muß ich noch rausbekommen, warum ich diese Zeilen überhaupt drinnen hatte und warum es bei keiner meiner 5 verschiedenen Webcams bisher ein Problem war.
Vielleicht gibt's Ende der Woche die Version 3.11 mit Deiner Änderung...

Gruß
Michael

[grizzly]

Neue Version 3.2 im ersten Post.

Da ich für ein anderes Projekt Graustufen Information benötigt habe und der Umweg über Rohdaten --> RGB --> Graustufen bei einigen Codecs echte Zeitverschwendung ist, habe ich jetzt noch den Support für 8-Bit Graustufenbilder eingebaut.

@Zacherl: Deine Änderung ist übernommen. Ich verstehe zwar immer noch nicht ganz, warum es geklemmt hat, aber ich hatte in den letzten Wochen keine Probleme wegen der Änderung (3 Rechner, 5 Cams). Dann wird's schon passen. Nochmals Danke für den Hinweis!

Gruß
Michael

[Drumbo]

Guten Morgen,

Das Tool ist echt super! Ich hab nur folgendes Problem:
Wenn ich es für eine 32bit Zielplattform compiliere und bearbeite funktioniert alles super.
Wähle ich nun jedoch eine 64 bit PLattform bleibt der Compiler schon bei den Directx header hängen.
Jetzt ist meine Frage: gibt es eine möglichkeit dieses Tool auch für 64 Plattformen zu schreiben?

Gruß Drumbo

[Gutelo]

Hallo,

Tolles Paket und funktioniert prima. Ich habe nur ein Problem mit der Property VideoRunning, die immer auf false steht unabhaengig davon ob die Webcam gestartet oder gestoppt wurde. Woran kann das liegen? Oder muss man VideoRunning selber setzen?

Gutelo

Edit: so wie ich das sehe wird VideoRunning nur bei VideoStop auf false gesetzt aber bei VideoStart nicht auf true.

Grizzly, sollte man nicht fVideoRunning := true; bzw fVideoRunning := false; bei den Prozeduren VideoStart, VideoPause, und VideoResume einfuegen?