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;