Genel İşlemler - İnternet Üzerinden kendi .wav dosyamızı yükleme

İnternet Üzerinden kendi .wav dosyamızı yükleme

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=897
Tarih: 07 Ocak 2025 Saat 23:21
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: İnternet Üzerinden kendi .wav dosyamızı yükleme

Mesajı Yazan: Osman
Konu: İnternet Üzerinden kendi .wav dosyamızı yükleme
Mesaj Tarihi: 20 Ağustos 2024 Saat 18:20

Merhaba, localde olan .wav dosyalarımızı internet üzerinden url formatına getiremiyorduk daha öncesinde bazı arkadaşlarımız drive denemişti fakat olmamıştı.Bunun çözümü için Github kullanabilirsiniz.

Aşamalar:

1) Github repo açıp içerisinde .wav dosyamızı yüklemek.

2) .wav dosyasını github üzerinden açarak sag üstten raw olarak linkini almak.

3.Projede https://raw.githubusercontent.com/OgeaN/repo/main/ses.wav" rel="nofollow - https://raw.githubusercontent.com/OgeaN/repo/main/ses.wav şeklinde kullanmak.

Cevaplar:

Mesajı Yazan: Developer
Mesaj Tarihi: 21 Ağustos 2024 Saat 11:13

Merhaba Osman,

Paylaşımın için teşekkürler.

Mesajı Yazan: NadireNurSaglam
Mesaj Tarihi: 21 Ağustos 2024 Saat 11:28

Merhaba,

dediklerinizi yaptım. Aşağıdaki kodu yazdım. Ama bu fonksiyonu çağırınca ses çalmıyor. Nasıl düzeltebilirim?

void sesCal;

{

oyunForm.AddGameAssetFromUrl(' https://raw.githubusercontent.com/nnurrs/GuessWhatGame/main/startGame.wav" rel="nofollow - https://raw.githubusercontent.com/nnurrs/GuessWhatGame/main/startGame.wav ');

oyunuBaslatSound = oyunForm.RegisterSound('startGame.wav');

oyunForm.SoundIsActive = True;

oyunForm.PlayGameSound(oyunuBaslatSound);

}

Mesajı Yazan: Osman
Mesaj Tarihi: 21 Ağustos 2024 Saat 12:03

fonksiyonun çalışıyor test ettim herhangi bir sıkıntı yok aldığın hatayı paylaşabilir misin

Mesajı Yazan: NadireNurSaglam
Mesaj Tarihi: 21 Ağustos 2024 Saat 12:42

Telefonumda projeyi açtığım zaman fonksiyon çalışmıyor ama bilgisayardan açtığım zaman fonksiyon çalışıyor, ses geliyor. Bu neyle ilgili olabilir?

Mesajı Yazan: Osman
Mesaj Tarihi: 21 Ağustos 2024 Saat 13:12

oyunForm.AddGameAssetFromUrl(' https://raw.githubusercontent.com/nnurrs/GuessWhatGame/main/startGame.wav" rel="nofollow - https://raw.githubusercontent.com/nnurrs/GuessWhatGame/main/startGame.wav ');

oyunuBaslatSound = oyunForm.RegisterSound('startGame.wav');

oyunForm.SoundIsActive = True;

bu 3'ünü mainin içine yazıp

void zil;{

MyGameForm.PlayGameSound(oyunuBaslatSound);

}

fonksiyonu bu şekilde bırakmayı dener misin

Mesajı Yazan: NadireNurSaglam
Mesaj Tarihi: 21 Ağustos 2024 Saat 14:09

Hala aynı şekilde maalesef bu da olmadı. Teşekkür ederim yine de.

Mesajı Yazan: Developer
Mesaj Tarihi: 21 Ağustos 2024 Saat 14:23

Merhaba Nadire

Aşağıdaki kodu dener misin:

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 = 0.3;

}

{

MyForm = TCLForm.Create(Self);

MyForm.AddAssetFromUrl(' https://raw.githubusercontent.com/nnurrs/GuessWhatGame/main/startGame.wav" rel="nofollow - https://raw.githubusercontent.com/nnurrs/GuessWhatGame/main/startGame.wav ');

MediaPlayer1 = TclMediaPlayer.Create(MyForm);

MediaPlayer1.FileName = clPathCombine('startGame.wav',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;

}