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:10'); 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); PAL.WaitForTime ('+00:00:20'); pause(); end; if D['msg'] <> '' then begin S['artist'] := ''; S['title'] := 'Текст: '+D['msg']; S['duration'] := 0; Encoders.SongChange(S); PAL.WaitForTime ('+00:00:20'); pause(); pause(); end; D.Free; P.Free; Song.Free;