нет.там есть всякие значения.а вот
AResponseInfo.ContentStream равен nil
вот код если что
Код:
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
FileStrm: TRangeFileStream;
LSize, LNumRead: Integer;
LBuf: array[0..1023] of Byte;
begin
//...
FileStrm := TRangeFileStream.Create(Edit1.Text,ARequestInfo.ContentRangeStart, ARequestInfo.ContentRangeEnd);
LSize := FileStrm.Size;
AResponseInfo.ContentType :='video/x-msvideo avi';// для теста пока взял большой файл, фильмец
AResponseInfo.ContentLength := LSize;
AResponseInfo.ContentRangeStart := FileStrm.RangeStart;
AResponseInfo.ContentRangeEnd := FileStrm.RangeEnd;
AResponseInfo.WriteHeader;
FileStrm.Position := 0;
AResponseInfo.ContentStream:=FileStrm;
end;