freepascal.ru

А обертку для VLC не желаете сделать?
ЗЫ вопрос с подвохом

Аналог через 5 лет сдохнет.
А вот обертки для плеера, который кушает все, и вещает как угодно, - такого еще нет в FPC.

coyot.rush писал(а):И дискеты тоже исчезли , только они почему- то используются для налоговой

coyot.rush писал(а):в планах прикрутить DVB(S) эх мотоподвеса нет

coyot.rush писал(а):

А обертку для VLC не желаете сделать?
ЗЫ вопрос с подвохом

Лично я нет, у меня почти готова обертка для просмотра аналогового тв на базе xelplayer
PS: ну нет в VLC SlaveMode , а жаль

Кстати, для сборки необходимости в fpc 2.4.3. нет , все прекрасно собралось с fpc 2.4.2

А это работает? Вопрос без издевки, просто с момента моего последнего поста здесь на форуме мои парняги принесли мне два тв-тюнера, но заставить их работать в лине я их так и не смог, поэтому протестировать Ваши дополнения сам пока не могу

ArchLinux (actual)

# Current Release: 2010.05
# Included Kernel: 2.6.33.4

Но хотелось бы использовать Ваши наработки в alsmplayer, конечно не нарушая Вашего авторства.

Меня тема класс-обертки завлекла и пока я буду в основном заниматься ею. Если есть желание - можно совместно поработать

coyot.rush писал(а):

Но хотелось бы использовать Ваши наработки в alsmplayer, конечно не нарушая Вашего авторства.

Support Analog TV by Coyot.RusH

coyot.rush писал(а):Меня лично интересует аналоговое (tv://) и цифровое тв (DVB-S) + радио + возможно интернет тв

coyot.rush писал(а):TODO : Для получения данных в mplayer предусмотрено get_property это сделать легко, но как сразу получить консольный вывод?

Код: Выделить всё

procedure debug(line : string);

Код: Выделить всё

FwriteOutToConsole : boolean; (* internal, mean write output to console *)

Код: Выделить всё

//==========================================================
//                DEBUG OUT
//==========================================================
procedure tmplayer.debug(line : string);
begin
if FwriteOutToConsole then writeln('ALSMPLAYER: ' + line);
if assigned(fgetdebugmessage) then fgetdebugmessage(self, 'ALSMPLAYER: ' + line);
end;


Код: Выделить всё

//==========================================================
//                read output
//==========================================================
procedure tmplayer.on_readterm(const sender: TObject; var atext: AnsiString; const errorinput: Boolean);
Var txt, S : msestring;               
begin
txt  := atext;   (* output text may contain all infarmation at one time *)
if fAddMplayerMessagesToDebug then debug('MPLAYER : ' + trim(txt));
....


Код: Выделить всё

type tplaymode=(__cd,__dvd,__dvb,__tv,__file,__http,__rtsp);