Müzik ekleme

Clomosy üzerinde ses dosyalarını projenize eklemek için GitHub’ı uzak depolama alanı olarak kullanabilirsiniz. Bunun için öncelikle bir repository (örneğin assets) oluşturup (ya da var olan repository) içerisine .mp3 veya .wav uzantılı medya dosyanızı (örneğin ses2.mp3) yükleyin. Ardından bu dosyanın bağlantısını aşağıdaki formata uygun şekilde düzenleyin:

https://raw.githubusercontent.com/KULLANICI_ADI/REPO_ADI/BRANCH_ADI/DOSYA_ADI.mp3

Örneğin: https://raw.githubusercontent.com/ornekKullanici/assets/main/ses2.mp3

Bu URL, uzantısı açık ve doğrudan erişilebilir olduğundan Clomosy tarafından sorunsuz şekilde indirilebilir. Proje kodunuzda bu bağlantıyı MyForm.AddAssetFromUrl(...) metodu ile çağırarak Clomosy proje dizinine aktarabilirsiniz. Daha sonra, örneğin MediaPlayer1.FileName = clPathCombine('ses2.mp3', Clomosy.AppFilesPath); satırı ile medya dosyasını kullanıma hazır hale getirebilirsiniz. Böylece GitHub üzerinden ses dosyaları Clomosy projelerinde kolayca oynatılabilir.

Örnek kod:

  var

   MyForm:TCLForm;

   MediaPlayer1 : TclMediaPlayer;

   Panel1 : TclPanel;

   Buton : TclButton;

   i : Integer;

  void trigger; 

  var

    clickedBtn:TClButton;

  {

    clickedBtn = TClButton(MyForm.Clsender); 

    if (clickedBtn.Hint == '0')

    {

      MediaPlayer1.CurrentTime = 0;

      MediaPlayer1.Play;

    }else

    {

       MediaPlayer1.Stop;

       MediaPlayer1.Volume = 1;

    }

  }

  {

  MyForm = TCLForm.Create(Self);

  MyForm.AddAssetFromUrl('https://raw.githubusercontent.com/ornekKullanici/assets/main/ses2.mp3'); 

  MediaPlayer1 = TclMediaPlayer.Create(MyForm);

  MediaPlayer1.FileName = clPathCombine('ses2.mp3',Clomosy.AppFilesPath);

  Panel1 = MyForm.AddNewPanel(MyForm,'Panel1');

  Panel1.Align = alCenter;

  Panel1.Width = MyForm.clWidth / 2;

  Panel1.Height = MyForm.clHeight / 6;

  for (i = 0 to 1)

  {

    if(i == 0)

    {

      Buton = MyForm.AddNewButton(Panel1,'Buton'+IntToStr(i), 'Start');

      Buton.Align = AlLeft;

    }else

    {

      Buton = MyForm.AddNewButton(Panel1,'Buton'+IntToStr(i), 'Stop'); 

      Buton.Align = AlRight;

    }

    Buton.width = Panel1.width / 2;

    Buton.Hint = IntToStr(i);

    MyForm.AddNewEvent(Buton,tbeOnClick,'trigger');

  }

  MyForm.Run;

}

NOT: Yukarıdaki url adresi örnektir. Kendi yapınızı oluşturunuz. Kodu çalıştırdığınızda örnek url den dolayı hata alırsınız.