TsgcHTTPServer | Stream Video

Per trasmettere in streaming un file video tramite il server, è possibile utilizzare la funzione IndyStreamFileVideo per trasmettere il file tramite la codifica di trasferimento a blocchi.

La funzione accetta i seguenti parametri:

• AContext: viene preso dall'evento OnCommandGet.
• AResponseInfo: viene recuperato dall'evento OnCommandGet.
• aFileName: è il percorso completo del file video da trasmettere in streaming.
• ContentType: per impostazione predefinita è "video/mpeg".
• aBufferSize: il valore predefinito è 1024 byte.

Esempio: trasmettere in streaming un video quando un utente accede al documento /video.mp4 e questo video si trova nella cartella 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;