TsgcHTTPServer | 流式视频

如果您想使用服务器对视频文件进行流式传输，可以使用 IndyStreamFileVideo 函数通过分块传输编码来流式传输该文件。

该函数接受以下参数：

• AContext：取自 OnCommandGet 事件。
• AResponseInfo：取自 OnCommandGet 事件。
• aFileName：要进行流式传输的视频的完整文件名。
• ContentType：默认为"video/mpeg"。
• aBufferSize：默认值为 1024 字节。

示例：当用户访问文档 /video.mp4 时流式传输视频，该视频位于文件夹 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;