TsgcHTTPServer | Stream Video

Sunucuyu kullanarak bir video dosyasını stream etmek isterseniz, dosyayı chunked transfer encoding kullanarak stream etmek için IndyStreamFileVideo işlevini kullanabilirsiniz.

Fonksiyon aşağıdaki parametreleri alır:

• AContext: OnCommandGet olayından alınır.
• AResponseInfo: OnCommandGet olayından alınır.
• aFileName: akışı yapılacak videonun tam dosya adıdır.
• ContentType: varsayılan olarak "video/mpeg".
• aBufferSize: varsayılan olarak 1024 bayttır.

Örnek: bir kullanıcı /video.mp4 belgesine gittiğinde ve bu video c:\videos\video.mp4 klasöründe olduğunda bir video akışı yapın

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;