WebCam mit DirectShow

[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
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?

[Gutelo]

Hallo Grizzly,

noch eine weitere Frage. Ich verwende Version 3.0, da ich nicht diese Graphik lib einbinden moechte. Allerdings wuerde ich gerne die doppelten Eintraege bei der Liste der Aufloesung entfernen (korrigiert in version 3.2).

Nun habe ich Unterschiede in FUNCTION TVideoSample.LoadListOfResolution: HResult; zwischen Ver. 3.0 und 3.2 gesucht und die Zeile

IF not(IsEqualGUID(ppmt^.formattype, KSDATAFORMAT_SPECIFIER_VIDEOINFO2)) then

gefunden. Diese habe ich bei Version 3.0 hinzugefuegt. Allerdings aendert das nichts an der Menge der aufgelisteten Aufloesungswerte. Ich bin mir nicht sicher on meine doppelten Eintraege ueberhaupt doppelt sind. Jede Aufloesung kommt zwar doppelt vor, aber jeweils endend mit ...(RGB) oder ...(xyz) wobei xyz chinesische Character sind (siehe Anhang). Ich vermute dass es zwei unterschiedliche Graphikformate sind.

Gutelo

[grizzly]

Hallo!

In der 3.2 ist in TFormatInfo der Typ von FourCC geändert: Von ARRAY[0..3] OF char zu ARRAY[0..3] OF ansichar.
Vielleicht behebt das schon das Problem mit der ulkigen Angabe zum verwendeten Kompressor.

Welche Grafik lib meinst Du? GDI+?
Falls das das Problem ist: In Unit VFrames.pas einfach die Unit UGDIPLus rauswerfen. Beim Kompilieren wird dann ein Fehler in der Methode UnpackFrame moniert. An dieser Stelle ist aber der alte Code noch drinnen. Einfach den GDI+ Zweig auskommentieren, und die 3.2 läuft ohne GDI+:

Delphi-Quellcode:

{
 IF GDIPlusAvailable // GDI+ version is faster than Delphi's JPEG library
   then begin
     if fGray8Bit
       then GDIPlus_LoadBMPStream2(MemStream, FBitmapGray)
       else GDIPlus_LoadBMPStream2(MemStream, FBitmap);
   end
   else begin}
     JPG.Grayscale := fGray8Bit;
     JPG.LoadFromStream(MemStream);
     if fGray8Bit
       then FBitmapGray.Canvas.Draw(0, 0, JPG)
       else FBitmap.Canvas.Draw(0, 0, JPG);
   {end;}

Hätte ich einen Compiler-Switch machen sollen...

Gruß
Michael