VPF::idHttpServer передача файла который растёт

walear

Дата 29.12.2008, 01:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 29.12.2008

Репутация: нет
Всего: нет

через ffmpeg конвертирую файл и тутже его передаю "на лету" через idhttpserver, почему-то через несколько секунд передача останавливается.
как я понял idhttpserver отсылает клиенту размер файла как это избежать?
я в delphi не силён.

Код


if (Pos('/setparam', ARequestInfo.Document)=1)  and (ARequestInfo.Params.Values['hvideo']<>'') then
begin
if IsProcesssRun('moxcaffmpeg.exe')=true then
 KillTask('moxcaffmpeg.exe') ;
sleep(1000);
deletefile(ExtractFilePath(Application.ExeName)+'\web\video.flv');
winexec(pansichar('moxcaffmpeg.exe -i '+ARequestInfo.Params.Values['hvideo']+' -ar 44100 -y '+'web\video.flv'),SW_SHOW);
sleep(2000);
html:=tstringlist.Create;
html.LoadFromFile(ExtractFilePath(Application.ExeName)+'\web\flv.html');
randomize;
html.Text:=shablon('#random#',html.Text,inttostr(random(999999)));
AResponseInfo.ContentText:=html.Text;
memo1.Lines.Add(html.Text);
html.Free;
end;
if (Pos('/setparam/getvideoflv/', ARequestInfo.Document)=1) then
begin
 AResponseInfo.ContentType:=scanmime(ARequestInfo.Document);
   try
//эта часть как надо неработает  
 AResponseInfo.ContentStream :=TFileStream.Create (ExtractFilePath(Application.ExeName)+'web/video.flv',fmShareDenyNone) ;
   AResponseInfo.WriteHeader;
   AResponseInfo.WriteContent;
   except
   end;
    if AResponseInfo.ContentStream <> nil then
    AResponseInfo.ContentStream.Free;
end;

помоги пожалуйста, уже второй день бьюсь

Это сообщение отредактировал(а) walear - 30.12.2008, 00:43

sergu

Дата 30.12.2008, 02:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 19.9.2006

Репутация: нет
Всего: нет

Потому, что передатчик перед отправкой узнает размер файла (а он у тебя может быть и 10 кб, так как конвертация только началась), и отсылает его в сеть (эти 10 кб). Нафига тебе вообще делфи для этого?

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »