TsgcHTTPServer | Transmisión de vídeo

Si desea transmitir un archivo de vídeo usando el servidor, puede usar la función IndyStreamFileVideo para transmitir el archivo mediante codificación de transferencia por fragmentos.

La función acepta los siguientes parámetros:

• AContext: se obtiene del evento OnCommandGet.
• AResponseInfo: se obtiene del evento OnCommandGet.
• aFileName: es el nombre de archivo completo del vídeo a transmitir.
• ContentType: de forma predeterminada es "video/mpeg".
• aBufferSize: por defecto es 1024 bytes.

Ejemplo: transmitir un vídeo cuando un usuario accede al documento /video.mp4 y este vídeo se encuentra en la carpeta 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;