Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Мультимедиа
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 29.12.2010, 14:13
Closer Closer вне форума
Прохожий
 
Регистрация: 29.12.2010
Сообщения: 5
Репутация: 10
По умолчанию Плеер потокового flv

Привет!
Пишу плеер 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;

Последний раз редактировалось Closer, 29.12.2010 в 14:23.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:08.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter