ОсновноеRadiotalkПользовательское
Общие вопросы по интернет радио вещанию
6   •   Посмотреть все темы

Программа зациклилась, что не так в коде?

 

1
Vlad @Vlad_Lux
var advFile : String;
var condition1, condition2 : Boolean;
var advFile1, advFile2, advFile3, advFile4, advFile5, advFile6, advFile7, advFile8, advFile9, advFile10, advFile11, advFile12, sciFile1, sciFile2, sciFile3, advFile0: String;

PAL.Loop := True;

//============================== BREAK at 05-15 ==================================

condition1 := FormatDateTime('hh', now) = '05';
condition2 := FormatDateTime('nn', now) < '15';

//advFile1:= 'C:\RADIO\content\reklama_temp\radio.sumdu.edu.ua_-_moygorod.sumy.ua.mp3';
//advFile2:= 'C:\RADIO\content\reklama_temp\radio.sumdu.edu.ua_-_100.sumy.ua.mp3';
//äî êîíöà àïðåëÿ
//advFile4 := 'C:\RADIO\content\FDR\Anons\2016\Bussiness_school.mp3';
//äî îïðåäåëåííîãî ÷èñëà
//advFile0:= 'C:\RADIO\content\FDR\Anons\2016\RadioSumDUSumyFiolet_Promo.wav';
//÷åòâåðã
//advFile5 := 'C:\RADIO\content\FDR\Anons\2016\LuikuKarpatskiKvity_Anons.wav';
//ïÿòíèöà
//advFile6:= 'C:\RADIO\content\FDR\Anons\2016\MichailGryckanAhKakHotelos_Anons.wav';
//ñóááîòà
//advFile7:= 'C:\RADIO\content\FDR\Anons\2016\KozakSystemSnig_Anons.wav';
//âîñêðåñåíüå
//advFile8:= 'C:\RADIO\content\FDR\Anons\2016\SocialClassesTanciuiesh_Anons.wav';
//ïîíåäåëüíèê
//advFile9:= 'C:\RADIO\content\FDR\Anons\2016\YaroslavaZaPolChasa_Anons.wav';
//âòîðíèê
//advFile10:= 'C:\RADIO\content\FDR\Anons\2016\OE_ID_for_Song.mp3';
//ñðåäà
//advFile11:= 'C:\RADIO\content\FDR\Anons\2016\Okean Elzy-Lyst_Do_Mamy.mp3';


while condition1 and condition2 do
begin

PAL.WaitForTime('05:15:00');
CAT['Info'].QueueTop(smLemmingLogic, NoRules);
Queue.AddFile(advFile0, ipTop);
Queue.AddFile(advFile5, ipTop);
Queue.AddFile(advFile8, ipTop);
//Queue.AddFile('C:\RADIO.SUMDU\content\KTV\utro.mp3', ipTop);
//Queue.AddFile('C:\RADIO.SUMDU\content\sumdu.radio.hymn_08-00.mp3', ipTop);

PAL.WaitForTime('05:20:00');
Queue.AddFile(advFile10, ipTop);
CAT['Info'].QueueTop(smLemmingLogic, NoRules);
Queue.AddFile(advFile11, ipTop);
Queue.AddFile(advFile6, ipTop);

PAL.WaitForTime('05:25:00');
CAT['Info'].QueueTop(smLemmingLogic, NoRules);
Queue.AddFile(advFile7, ipTop);
Queue.AddFile(advFile4, ipTop);
Queue.AddFile(advFile9, ipTop);

condition1 := False;
condition2 := False;

PAL.WaitForTime('06:25:00');
end;
//============================== BREAK at 06-25 ==================================

condition1 := FormatDateTime('hh', now) = '06';
condition2 := FormatDateTime('nn', now) < '25';

while condition1 and condition2 do
begin

PAL.WaitForTime('06:25:00');
CAT['Info'].QueueTop(smLemmingLogic, NoRules);
Queue.AddFile(advFile2, ipTop);
//Queue.AddFile(advFile8, ipTop);
Queue.AddFile(advFile6, ipTop);
// Queue.AddFile(advFile5, ipTop);
//Queue.AddFile(advFile4, ipTop);
//Queue.AddFile('C:\RADIO.SUMDU\content\KTV\C?????.10.10.11.mp3', ipTop);

PAL.WaitForTime('06:30:00');
//Queue.AddFile(advFile11, ipTop);
CAT['Info'].QueueTop(smLemmingLogic, NoRules);
// Queue.AddFile(advFile7, ipTop);
Queue.AddFile(advFile1, ipTop);
Queue.AddFile(advFile10, ipTop);
Queue.AddFile(advFile11, ipTop);
Queue.AddFile(advFile0, ipTop);

PAL.WaitForTime('06:35:00');
CAT['Info'].QueueTop(smLemmingLogic, NoRules);
//Queue.AddFile(advFile9, ipTop);
Queue.AddFile(advFile5, ipTop);
Queue.AddFile(advFile9, ipTop);

condition1 := False;
condition2 := False;

PAL.WaitForTime('05:15:00');

end;