var

Form : tclform

Music : tclmediaplayer

MusicTimer : TCLTimer

void MusicControl;

{

  if((Music.state == 0) || (Music.state == 2))

  {

    Music.CurrentTime = 0;

    Music.play;

  }

}

{

  form = tclform.create(Self);

  form.Run;

  

  Music = tclmediaplayer.create(Form);

  Music.FileName = clPathCombine('music',Clomosy.AppFilesPath);

  Music.CurrentTime = 0;

  Music.Play;

  

  MusicTimer= Form.AddNewTimer(Form,'musicitimer',1000); 

  Form.AddNewEvent(MusicTimer,tbeOnTimer,'MusicControl');

  

} 


kodum da sesin sürekli çalmasını istiyorum ama nasıl yapabilirim yardımcı olur musunuz?

İstediğin işlemi aşağıdaki koda bakarak yapabilirsin. Sesin çalması için öncelikle telefona kaydedilmesi gerekir addassetfromurl kısmına ses dosyasının linkini yapıştır. Github google drive gibi yerlere yükleyebilirsin. Linkin public olmasına dikkat et. Ayrıca FileName kısmındaki ve url'nin sonundaki ismin aynı olmasına dikkat et.

var

  Form: TCLForm;

  Music: TCLMediaPlayer;

  MusicTimer: TCLTimer;

void MusicControl;

{

  if ((Music.State == 0) || (Music.State == 2))

  {

    Music.CurrentTime = 0;

    Music.Play;

  }

}

{

  Form = TCLForm.Create(Self);

  // Sesi internetten çekip projeye dahil ediyoruz

  Form.AddAssetFromUrl('Buraya Kendi ses dosyanın linkini yapıştır');

  Music = TCLMediaPlayer.Create(Form);

  Music.FileName = clPathCombine('timer.mp3', Clomosy.AppFilesPath);

  Music.CurrentTime = 0;

  Music.Play;

  MusicTimer = Form.AddNewTimer(Form, 'MusicTimer', 1000); 

  MusicTimer.Enabled = True; // DİKKAT: Zamanlayıcının çalışması için bu şart!

  Form.AddNewEvent(MusicTimer, tbeOnTimer, 'MusicControl');

  Form.Run; 

}