FMX TCameracomponent geht auf Windows nicht ?

[QuickAndDirty]

Bei mir ist es Delphi 11.0 Alexandria...aus 2021
No Name HD Cam aber die geht mit dem VCL basierten DX9 programm von Spelt
https://github.com/Spelt/ZXing.Delph....0/demo/webcam

meinst es ist DX9 ???

ICh brauche leider FMX...sonst hätte ich das Das mit der VFrames.pas gemacht..

[TiGü]

Hast du die Möglichkeit eine andere Webcam zu testen?

[QuickAndDirty]

Zitat von TiGü:

Hast du die Möglichkeit eine andere Webcam zu testen?

Hm evtl... Aber wenn die mit der VFrames.Pas geht.... warum dann nicht auch mit FMX?
Ich gucke mal was wir hier rum liegen haben.

[QuickAndDirty]

Der Spelt fügt andere VideoFilter hinzu als Embarcadero! Cheeky basterd!

Und die Error description ist ja auch
"Error Description: VFW_E_CANNOT_CONNECT. No combination of intermediate filters could be found to make the connection."

Delphi-Quellcode:

    // Add Capture filter to our graph.
    Result := pIGraphBuilder.AddFilter(pIBFVideoSource, Widestring('Video Capture'));
    if (FAILED(Result)) then
      begin
        // Couldn''t add the capture filter to the graph!
        exit;
      end;

    Result := pIGraphBuilder.AddFilter(piBFSampleGrabber, Widestring('Sample Grabber'));
    if (FAILED(Result)) then
      EXIT;

    if not(Visible) then
      begin
        Result := pIGraphBuilder.AddFilter(pIBFNullRenderer, WideString('Null Renderer'));
        if (FAILED(Result)) then
          EXIT;
      end;

    // Render the preview pin on the video capture filter
    // Use this instead of pIGraphBuilder->RenderFile
    New(pCut);
    New(pTyp);
    //pCut^ := PIN_CATEGORY_PREVIEW;
    pCut^ := PIN_CATEGORY_CAPTURE;
    pTyp^ := MEDIATYPE_Video;
    try
      if Visible
        then Result := pICapGraphBuild2.RenderStream (pCut, pTyp,
                                    //Addr(PIN_CATEGORY_PREVIEW), Addr(MEDIATYPE_Video),
                                    pIBFVideoSource, piBFSampleGrabber, nil)

        else Result := pICapGraphBuild2.RenderStream (pCut, pTyp,
                                    //Addr(PIN_CATEGORY_PREVIEW), Addr(MEDIATYPE_Video),
                                    pIBFVideoSource, piBFSampleGrabber, pIBFNullRenderer);
    except
      Result := -1;
    end;

Spelt benutzt als Filter 'Video Capture','Sample Grabber' und 'Null Renderer'(???)
Embarcaderod benutzt nur 'Capture' als Filter...

hm
Und meine Kamera macht wohl einen Jpeg stream....als vermutlich ne folge standbilder...

[QuickAndDirty]

Also ich habe es mit einer Logitch Webcam probiert... und es geht auch nicht.
Es könnte an der Delphi 11.0 liegen...

[TurboMagic]

Da ja jetzt die 11.3 CE draußen ist könnte man das entweder mit der oder mit einer Delphi Testversion
mal kostenlos 5 min testen, ob diese Webcam mit dem gleichen testprogramm dann mag.

[QuickAndDirty]

Hört sich nach einem weg an.

[hotrs02]

Der Zugriff auf eine angeschlossen Kamera unterliegt inzwischen auch den Datenschutzeinstellungen von Windows. Hast du in der Richtung schonmal nachgeschaut? Du findest den Abschnitt in den Einstellungen von Windows 10 unter Datenschutz / Kamera. In manchen fällen muss auch noch der Zugriff auf das integrierte Mikrofon erlaubt werden.

Darüber hinaus fängt inzwischen so ziemlich jede Schutzsoftware den Zugriff auf die Kamer ab. Bei mir meldet sich z.B. jedesmal Norton, wenn eine Anwendung die Kamera nutzen will.

hth

[QuickAndDirty]

Ja ich habe die Datenschutz Einstellungen alle geöffnet.
Und wenn ich ein VCL Projekt mit einem anderen Filterbaum benutze funktioniert es ja auch.
Ich habe versucht das VCL projekt(das funktioniert) zu FMXifizieren... aber habe das dann aufgegeben...das ist kein einfaches unterfangen.
Alternative müsste ich versuchen zu verstehen was Filter in DX9 sind und was ein Filterbaum macht und wie ich den selbst benutzen kann....
Wo ich eigentlich echt ein fan von Copy-Pasta, Bibliotheken und Komponenten bin...
Es kann sein dass ich erst in einem Monat vernünftig feedback zu der Neueren Delphi version geben kann.