NEWS update

For a FREE Trial Download of PowerBuilder 12, click here 

THAIPBL Sections

GO TO

เขียนCODE เล่นเพลง MP3 ด้วย PB PDF พิมพ์ อีเมล
วันจันทร์ที่ 08 มีนาคม 2010 เวลา 17:22 น. เขียนโดย Pattama
ประกาศ External function ก่อนครับ
FUNCTION ULong MciSendString(String lpszCommand, &
      ref String lpszReturnString, &
      ULong cchReturn, ULong hwndCallback) &
LIBRARY "winmm.dll" &
ALIAS FOR "mciSendStringA"

ที่นี้ code สำหรับการกำหนด ชื่อเพลงครับ

String lpszReturnString
string ls_mp3 = "C:TO_CDMUSICNEWENG[01][F]The Piano Love SongsPiano Love Songs - 01 Home (Ac Mix).mp3"
ULong cchReturn, ll_rc

lpszReturnString = Space(100)
ll_rc = MciSendString('close MP3_Device', lpszReturnString, cchReturn, 0)
ll_rc = MciSendString("open ~"" + ls_mp3 + "~" type MPEGVideo alias MP3_Device", &
             lpszReturnString, cchReturn, 0)

เอาไปแก้ไข ทำ Playlist กันเองนะครับ ไม่ยาก

สั่งให้เล่นเพลง ดังนี้ครับ
ll_rc = MciSendString("play Mp3_Device", lpszReturnString, cchReturn, 0)
// ll_rc = 0 Ok!

ถ้าต้องการหยุด ก็นี่ครับ
ll_rc = MciSendString('close MP3_Device', lpszReturnString, cchReturn, 0)

ลองทำแข่ง Winamp ดูนะครับ เผื่อจะมี PBamp กะเขาบ้าง

ทั้งหมดนี้ลองกับ pb ok ครับ