[Closer]

Привет!
Пишу плеер flv файлов, ссылки на которые программа берет из определенного файла на сервере, а после проигрывает прямо в ней же.
Все вроде бы ничего, но проигрывается всего 1-3 секунды и видео сразу останавливается.В чем дело? использовал компонент vlc. файлы размещенные на hdd проигрываются без проблем.

Общий код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

procedure TMainForm.FormCreate(Sender: TObject); var  err :integer;  args:array[0..1] of pchar;  val :TValue; begin  err:=VLD_Startup;  if err<>VLD_SUCCESS then begin   case err of    VLD_NOTFOUND: ShowMessage('Библеотека повреждена либо не верная версия!');    VLD_NOLIB   : ShowMessage('Не найдена необходимая библиотека!');   end;   Application.Terminate;   exit;  end;  vlc:=call('VLC_Create',VLC_Create);  args[0]:=pchar(VLD_LibPath);  args[1]:=nil;  call('VLC_Init',VLC_Init(vlc,1,@args[0]));  val.AsInteger:=Panelka.Width;  call('VLC_VariableSet',VLC_VariableSet(vlc,'conf::width',val));  val.AsInteger:=Panelka.Height;  call('VLC_VariableSet',VLC_VariableSet(vlc,'conf::height',val));  val.AsInteger:=Panelka.Handle;  call('VLC_VariableSet',VLC_VariableSet(vlc,'drawable',val));  Caption:=Caption+' [engine-0.14]';  end;   <b>и собственно процедура проигрывания</b>   procedure TMainForm.Image2Click(Sender: TObject); var  link:string; begin  link:='http://site.ru/file.flv';  call('VLC_AddTarget',VLC_AddTarget(vlc,PChar(link),nil,0,PLAYLIST_APPEND,PLAYLIST_END));  VLC_Play(vlc); end;