Follow with the project management of a webcam with Delphi I present the procedure to stop recording a video sequence:
You have to create a TButton called "PararVideo" and in the onclick event type the following:
PROCEDURE TForm1.PararVideoClick(Sender: TObject);
BEGIN
IF ventana <> 0 THEN
BEGIN
SendMessage(ventana, WM_CAP_STOP, 0, 0);
END;
END;
Related links
Webcam con Delphi ( I )
Webcam con Delphi ( II )
