TsgcHTTPServer | Stream Video

Se você deseja transmitir um arquivo de vídeo utilizando o servidor, pode usar a função IndyStreamFileVideo para transmitir o arquivo utilizando chunked transfer encoding.

A função recebe os seguintes parâmetros:

• AContext: é obtido do evento OnCommandGet.
• AResponseInfo: é obtido a partir do evento OnCommandGet.
• aFileName: é o nome completo do arquivo do vídeo a transmitir.
• ContentType: por padrão é "video/mpeg".
• aBufferSize: por padrão é 1024 bytes.

Exemplo: faça streaming de um vídeo quando um usuário acessa o documento /video.mp4 e este vídeo está na pasta c:\videos\video.mp4

procedure OnServerCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  if ARequestInfo.Document = '/video.mp4' then
    IndyStreamFileVideo(Acontext, AResponseInfo, 'C:\videos\video.mp4')
  else
    AResponseInfo.ResponseNo := 404;
end;