потоковое видео (Page 2 of 2)

function cam(n:integer):string;
begin
  result :=
  'ffmpeg -y -i "http://user:password@ip:port/ISAPI/Streaming/channels/'+IntToStr(n)+'01/picture?'+
  'snapShotImageType=JPEG&videoResolutionWidth=1920&videoResolutionHeight=1080" -vframes 1 out.jpg';
end;

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var ws:variant;
begin
    ws := CreateOleObject('WScript.Shell');

    ws.Run( cam(1), 0, True);
    Form1.DBImage1.Picture.LoadFromFile('out.jpg');

    ws.Run( cam(2), 0, True);
    Form1.DBImage2.Picture.LoadFromFile('out.jpg');

    ws.Run( cam(3), 0, True);
    Form1.DBImage3.Picture.LoadFromFile('out.jpg');

    ws := 0;

end;