FMX TCameracomponent geht auf Windows nicht ?

[QuickAndDirty]

Geht leider nicht same error
Welches Delphi setzt du ein?

[TiGü]

Delphi 11.3 mit Patch 1.
Logitech Webcam mit HD 1080p.

[TiGü]

Check mal Grafikkartentreiber etc.
Ist am Ende ja eine DirectShow/Direct3D9 Anbindung.

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

Der FehlerCode den ich bekomme ist der
Winapi.DirectShow9.VFW_E_CANNOT_CONNECT super
warum auch immer.