Listboxtaki Müzikleri Playlist Yapma

[Ejdad]

S.aleykum
Arkadaşlar..bir mp3player yapıyorum sorunum var.
Listbox1: Burdaki verileri Saveplaylist butonuyla belirttigimiz uzantıda kopyalayacak.
Saveplaylist:Buton: Buraya kopyalama kodları gelecek
Open playlis:Buton: bunu ben hallettim.

Bunun çözümünü rica ediyorum ilgili arkadaşlardan iyi günler.

[pilgetir]

istediğini anlamadım ki tam ?

[Ejdad]

Öncelikle konuyu yanlış yere açmışım dargınlıktan pardon..ilgililer taşınırsa sevinirim.

Müzikplayere çalması için yüklenen mp3leri bir buton aracagılıyla..playlist yapması

[pilgetir]

Demek istediğin şumu bir buton olacak bir listbox buton ile bilgisayardan şarkıyı seçeceğiz listboxa yüklenecek listboxdan da üstüne tıklayınca çalacak bumu ? Edited September 9, 2011 by pilgetir

[Ejdad]

Hyr kardeş onlar projede mevcut benim demek istedigim...listboxa yüklenen müzikleri bir buton aracılıgıyla bir playlist dosyası oluşturacak.

[pilgetir]

Proje dosyanı verirsen projene uyarlayayım.

[KintaRo]

Bu konu "Örnek Çalışmalar" forumundan "AutoPlay Media Studio" forumuna taşınmıştır.

[Ejdad]

http://www.multiupload.com/4JW0K2DJUF

Kardeş...save butonuyla kayıt edecek.

[pilgetir]

artı arkadaşımızdan ayrdım alarak yapıldı.Al buyur;
Gözat butonu;

[quote]AddList("list");[/quote]

Çalma listesi oluştur butonu;

[quote]CreatePlayList("list")[/quote]

Global Function kodları;
[quote]--listeye ekle
function AddList(list)
local tFile = Dialog.FileBrowse(true,"Dosya Seçin:",_DesktopFolder,"MP3 Dosyası(*.mp3)|*.mp3|","","",true,false);
if (tFile and tFile[1]~="CANCEL") then
ListBox.SetUpdate(list,false);
for i=1,#tFile do
local split = String.SplitPath(tFile[i]);
ListBox.AddItem(list,split.Filename..split.Extension,tFile[i]);
end
ListBox.SetUpdate(list,true);
end
end
--çalma listesi oluştur
function CreatePlayList(list)
local count = ListBox.GetCount(list)
if (count>0) then
local tFile = Dialog.FileBrowse(false,"Dosya Kaydet",_DesktopFolder,"Çalma Listesi(*.m3u)|*.m3u|","","m3u",false,false);
if (tFile and tFile[1]~="CANCEL") then
local str = ""
for i=1,count do
str = str .. ListBox.GetItemData(list,i).."\r\n"
end
TextFile.WriteFromString(tFile[1],str,false);
end
else
Dialog.Message("Uyarı","Listede veri yok.");
end
end[/quote]



[codebox]http://www.mediafire.com/?z8qurx9yc8sawj2 [/codebox]

artı teşekkürler (kadir abi)

Edited September 9, 2011 by pilgetir

[Ejdad]

Teşekkür ederim kardeş çok iyi oldu.
Bir istegim daha olacak sizden tabi müsaitseniz birde bu kaydedilen playlisti projede açacak open kodu nedir ?

Edited September 9, 2011 by Ejdad

[pilgetir]

Projede açacak derken neresinde açacak media player plugindemi neyde açıklasan biraz.

[DivaneTR]

[quote name='Ejdad' date='09 September 2011 - 22:43 ' timestamp='1315597435' post='1076760']
Teşekkür ederim kardeş çok iyi oldu.
Bir istegim daha olacak sizden tabi müsaitseniz birde bu kaydedilen playlisti projede açacak open kodu nedir ?
[/quote]

[b]Listeye Ekle Fonksiyonunu da Vermiş Zaten pilgetir.[/b]

[artı]

[quote]
Ya projene uyarlamadım zamanım yoktu kendim hazırladım.Al buyur;
Gözat butonu;


Alıntı


AddList("list");


Çalma listesi oluştur butonu;


Alıntı


CreatePlayList("list")


Global Function kodları;

Alıntı


--listeye ekle
function AddList(list)
local tFile = Dialog.FileBrowse(true,"Dosya Seçin:",_DesktopFolder,"MP3 Dosyası(*.mp3)|*.mp3|","","",true,false);
if (tFile and tFile[1]~="CANCEL") then
ListBox.SetUpdate(list,false);
for i=1,#tFile do
local split = String.SplitPath(tFile[i]);
ListBox.AddItem(list,split.Filename..split.Extension,tFile[i]);
end
ListBox.SetUpdate(list,true);
end
end
--çalma listesi oluştur
function CreatePlayList(list)
local count = ListBox.GetCount(list)
if (count>0) then
local tFile = Dialog.FileBrowse(false,"Dosya Kaydet",_DesktopFolder,"Çalma Listesi(*.m3u)|*.m3u|","","m3u",false,false);
if (tFile and tFile[1]~="CANCEL") then
local str = ""
for i=1,count do
str = str .. ListBox.GetItemData(list,i).."\r\n"
end
TextFile.WriteFromString(tFile[1],str,false);
end
else
Dialog.Message("Uyarı","Listede veri yok.");
end
end
[/quote]

Çok ayıp mert sana hiç yakıştıramadım kendi hazırlamdığın şeyleri millete ben hazırladım diye yediriyorsun!

[Ejdad]

İşte kayıt edilen playlisti geri listboxta açacak şekilde.

[artı]

Sonradan değiştirmekle olmuyor bu işler mertcim daha çok başındasın bu işlerin birine yaptır işi sonra ben yaptım diye yaz tebrik ederim aynen devam et!

[artı]

Ejdad projenin son halini koy yapıp yollayayım.

[color="#0000FF"][b]Flood yaptığınız için uyarı aldınız.[/b][/color]

[Ejdad]

http://www.multiupload.com/5919T9ZECE
BURDA kardeş Edited September 9, 2011 by Ejdad

[artı]

Buyur kardeş link : http://www.mediafire.com/?bg8ycmnsdpq3uu8

[artı]

Buyur kardeş link : http://www.mediafire.com/?bg8ycmnsdpq3uu8

[artı]

Global functions daki LoadPlayList te ufak bir değişiklik yap dalgınlığıma gelmiş doğrusu şöyle olacak:

[code]--çalma listesini yükle
function LoadPlayList(list)
local tFile = Dialog.FileBrowse(true,"Dosya Kaydet",_DesktopFolder,"Çalma Listesi(*.m3u)|*.m3u|","","m3u",false,false);
if (tFile and tFile[1]~="CANCEL") then
local readTbl = TextFile.ReadToTable(tFile[1]);
if (readTbl) then
ListBox.SetUpdate(list,false);
for i=1,#readTbl do
local split = String.SplitPath(readTbl[i]);
ListBox.AddItem(list,split.Filename..split.Extension,readTbl[i]);
end
ListBox.SetUpdate(list,true);
end
end
end[/code]

[Ejdad]

Çok Saolsın kardeş ya şimdi oldu tekrardan allah razı olsun iyi geceler

[artı]

Rica ederim yoğun biri olduğum için fazla takılmıyorum buraya veya başka forumlara ve kimseye kızdığım yok (pilgetir). Sadece demek istediğim kendi yapmadığı şeyi niye kendi yapmış gibi gösteriyor benim bir sürü işim gücüm varken yardım ediyorum insanlık gösteriyoruz ama anlamıyorlar galiba insanlıktan neyse iyi geceler fazla uzatmayayım konuyu.