TsgcHTTPServer | Diffusion vidéo en flux

Si vous souhaitez diffuser un fichier vidéo en utilisant le serveur, vous pouvez utiliser la fonction IndyStreamFileVideo pour diffuser le fichier en utilisant l'encodage de transfert par morceaux.

 

La fonction prend les paramètres suivants :

 

• AContext : provient de l'événement OnCommandGet.
• AResponseInfo : provient de l'événement OnCommandGet.
• aFileName : il s'agit du nom de fichier complet de la vidéo à diffuser.
• ContentType : par défaut "video/mpeg".
• aBufferSize : par défaut 1024 octets.

 

Exemple : diffuser une vidéo lorsqu'un utilisateur accède au document /video.mp4 et que cette vidéo se trouve dans le dossier 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;