[Closer]

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

Общий код:

Код:

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;

и собственно процедура проигрывания

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;