[Visual Foxpro] Mendapatkan Info/Tag Media File (MP3, WMA dll)

Info Media File FoxPro

Hoahmmm..  kayaknya sudah lama saya tidak posting catatan di blog. OK, sambil menunggu partai Inggris vs Swedia (*semoga Inggris menang) saya akan post yang berhubungan dengan Visual Foxpro.

Catatan ini adalah cara mendapatkan informasi atau tag dari file media seperti MP3, WMA, MPG dll dengan menggunakan bahasa pemrograman Visual Foxpro. Code berikut menggunakan Ole Control Windows Media Player bawaan Windows. OK, berikut code simplenya, silahkan tambahkan error hadle jika diperlukan.

*// author: thesuhu
*// date: 15-06-2012 23:17

#Define CR Chr(13)
oWMP = Newobject([WMPlayer.ocx.7])

&& cari file media
lcMediaFile = Getfile([mp3|mpg|wmv|wma])

oMediaCol = oWMP.MediaCollection
oMedia = oMediaCol.Add(m.lcMediaFile)

lcMediaInfo = []
With oMedia
	lcMediaInfo = ;
		[Judul: ] + .getItemInfo([Title]) + CR + ;
		[Artis: ] + .getItemInfo([Artist]) + CR + ;
		[Album: ] + .getItemInfo([Album]) + CR + ;
		[Durasi (detik): ] + .getItemInfo([Duration]) + CR + ;
		[Bitrate (bps): ] + .getItemInfo([Bitrate]) + CR + ;
		[Type: ] + .getItemInfo([FileType]) + CR + ;
		[Media Type: ] + .getItemInfo([MediaType]) + CR + ;
		[Size (byte): ] + .getItemInfo([FileSize]) + CR + ;
		[Genre: ] + .getItemInfo([WM/Genre]) + CR + ;
		[Track: ] + .getItemInfo([WM/TrackNumber]) + CR + ;
		[Tahun: ] + .getItemInfo([WM/Year])
Endwith

MessageBox(m.lcMediaInfo, 0, [Media Info])

Silahkan dimodifikasi sesuai keinginan, mungkin bisa ubah biar lebih informatif misalnya durasi diganti dengan format hh:mm:ss, Size diubah ke KB dll.

Sebaliknya, untuk menuliskan info tag dengan method setItemInfo contoh berikut adalah saya akan menuliskan info artis pada mp3 di atas.

oMedia.setItemInfo([Artist],[Ratna Antika feat Sodiq])

Sekian dulu, semoga bermanfaat.

About these ads

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s