TsgcHTTPServer | Stream Video

서버를 사용하여 비디오 파일을 스트리밍하려면, 청크 전송 인코딩(chunked transfer encoding)을 사용하여 파일을 스트리밍하는 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;