Как воспроизвести видео с IP-камеры в режиме без ожидания

В этом примере показано, как воспроизводить видео с IP-камеры в режиме без ожидания: операции выполняются в фоновых потоках, без задержек. После завершения операции вызывается событие. Это рекомендуемый режим, позволяющий отображать визуальную обратную связь во время ожидания, а также позволяющий пользователю прервать длительную операцию.

Пример

1. Поместите RVCamera1:TRVCamera и RVCamView1:TRVCamView на форму. Присвойте RVCamView1.VideoSource = RVCamera1.

2. Если вам нужен отдельный компонент для управления движением камеры, разместите компонент RVCamControl1: TRVCamControl на форме. Присвойте RVCamera1.CameraControl = RVCamControl1.

3. Присвойте компоненту RVCamera1 следующие свойства: адрес камеры, имя пользователя и пароль. Например:

•CameraHost = 'novatron.dyndns.tv',

•CameraPort = 8888

•UserName= 'demo15'

•UserPassword = 'demo15'

•DeviceType = rvdtIPCamera

4. Присвойте RVCamera.CommandMode = rvsmNoWait.

5. Добавьте в TForm1.FormCreate:

RVCamera1.SearchCamera;

6. Создайте обработчик события RVCamera1.OnSearchComplete:

procedure Form1.RVCamera1SearchComplete(Sender: TObject;

Status: Integer);

begin

if Status = 0 then

RVCamera1.PlayVideoStream;

end;

Примечание: этот пример использует поиск камеры. Если камера имеет тип, специально поддерживаемый компонентом, это даст возможность управлять ей. В простейшем же случае для показа видео достаточно присвоить свойство URL и вызвать метод PlayVideoStream.