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" rel="nofollow - https://raw.githubusercontent.com/KULLANICI_ADI/REPO_ADI/BRANCH_ADI/DOSYA_ADI.mp3
Örneğin: https://raw.githubusercontent.com/ornekKullanici/assets/main/ses2.mp3" rel="nofollow - 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" rel="nofollow - 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.