Ребят помогите! Вот есть pal скрипт который выводит в плеерах инфу вида:
Релиз: [название текущего трека] Заказал(а): [текст] ну потом через некоторое время строчка меняется и показывается просто название станции и название трека и сообветственно все сначало.
Вот код :
var D : TDataSet;
var P : TPlayer;
var Song : TSongInfo;
var S : TSongInfo;
PAL.Loop := true;
procedure pause();
begin
PAL.WaitForTime ('+00:00:07');
end;
S:=TSongInfo.Create;
P:= ActivePlayer;
Song := P.GetSongInfo;
S['artist'] := '';
S['duration'] := 0;
S['title'] := 'Трек: ' + Song['artist'] + ' - ' + Song['title'];
Encoders.SongChange(S);
PAL.WaitForTime ('+00:00:15');
P := ActivePlayer;
Song := P.GetSongInfo;
S['artist'] := '';
S['duration'] := 0;
if StrToInt(Song['albumyear'])>1980 then S['title'] := 'Релиз: ' + Song['album']+' ('+Song['albumyear']+')' else S['title'] := 'Релиз: ' + Song['album'];
Encoders.SongChange(S);
PAL.WaitForTime ('+00:00:07');
if song['requestid'] > 0 then
D := Query('SELECT * FROM requestlist WHERE ID = :J AND SongID = :I',[Song['requestID'],Song['ID']],true);
if D['name'] <> '' then
begin
S['artist'] := '';
S['title'] := 'Заказал(а): '+D['name'];
S['duration'] := 0;
Encoders.SongChange(S);
pause();
end;
if D['msg'] <> '' then
begin
S['artist'] := '';
S['title'] := 'Текст: '+D['msg'];
S['duration'] := 0;
Encoders.SongChange(S);
pause();
pause();
end;
D.Free;
P.Free;
Song.Free;
Но проблема в том что я что то не пойму как именно пользоваться этим скриптом и куда вводить Имя того кто заказал трек.
Рассшифруйте плз.
Сам придумал или из гугла скопировал?
========================================================================
FMGAMERADIO.RU - Уж както стараемся выделится
