vb.netmp3数据 vbnet import

VB.net 如何用WindowsMediaPlayer控件播放Resource目录下的mp3文件首先列出目录下的所有MP3文件并赋给某个数组变量,然后再播放 。没时间帮你写,只能说一下方法了 Private Sub Command1_Click() Dim file As String file = Dir("C:\windows\*.mp3") '改成绝对路径,这个变量换成数组的,利用FOR来赋值,得到正确的文件路径后就再播放就可以了,自己完善一下吧 Do While file"" Print file file = Dir Loop End Sub
vb.net 中 如何实现 播放mp3文件在.NET里,没有托管的音乐播放器,用API只能播放WAV格式,对于MP3等形式的音频文件,就要依赖于其他控件了 , 常用的就是
MediaPlayer 。使用方法:
在工具箱上点右键 , 选择“选择项目(Choose Items)”,切到COM选项卡,找到 Windows Media Player,勾?。?确定
在t工具箱上,把刚才加入的MediaPlayer控件 , 拖放到窗体上
代码:
WindowsMediaPlayer1.URL = "mp3文件路径,支持网络路径"
WindowsMediaPlayer1.Ctlcontrols.play
基本就OK了,至于其他的操作诸如下一曲上一曲暂停停止,直接看 WindowsMediaPlayer1.Ctlcontrols. 里面的方法吧 。
求用《VB.NET》获取文件夹下的所有MP3文件名的代码 。Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For Each FileName As String In IO.Directory.GetFiles("E:\音乐", "*.mp3")
TextBox1.Text = vbNewLineIO.Path.GetFileName(FileName)
Next
End Sub
我用二进制读取了声音文件,VB或VB.net如何播放二进制声音数据 , 请高手赐教!不明白你为什么要二进制读取声音文件vb.netmp3数据,VB可以直接调用API播放声音文件vb.netmp3数据,不需要你二进制来读取声音文件vb.netmp3数据的 。
Private
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub PlayWavFile(strFileName As String, PlayCount As Long, JianGe As Long)
'strFileName 要播放vb.netmp3数据的文件名(带路径)
'playCount 播放的次数
'JianGe多次播放时,每次的时间间隔
If Len(Dir(strFileName)) = 0 Then Exit Sub
If PlayCount = 0 Then Exit Sub
If JianGe1000 Then JianGe = 1000
DoEvents
sndPlaySound strFileName, 161
Sleep JianGe
Call PlayWavFile(strFileName, PlayCount - 1, JianGe)
End Sub
Private Sub Form_Click()
PlayWavFile "C:\aaa.wav", 1, 1000 '参数vb.netmp3数据:播放文件,播放次数,播放间隔
End Sub
vb.net读写MP3各项属性,急~~从MP3中提取歌曲信息
一首MP3歌曲除了音乐信息外,还包含了如歌名、演唱者等信息,当我们用winamp软件听音乐时,播放清单就自动将这些信息读出来 。大部分人都喜欢从网上下载音乐,但下载下来的MP3文件名都是文件上传系统自动取名的,和歌曲本身根本不相符,所以,给用户带来了很大的麻烦 。但是,懒人有懒人的做法,我们何不自己写一个程序 , 将歌曲信息自动读出来并为MP3文件自动更名呢?
下面以C#为工具,把开发过程写出来 。
一首MP3的额外信息存放在文件的最后面,共占128个字节,其中包括以下的内容(我们定义一个结构说明):
public struct Mp3Info
{
public string identify;//TAG,三个字节
public string Title;//歌曲名,30个字节
public string Artist;//歌手名,30个字节
public string Album;//所属唱片,30个字节
public string Year;//年,4个字符
public string Comment;//注释,28个字节
public char reserved1;//保留位 , 一个字节
public char reserved2;//保留位,一个字节
public char reserved3;//保留位,一个字节
}
所以,我们只要把MP3文件的最后128个字节分段读出来并保存到该结构里就可以了 。函数定义如下:
///
/// 获取MP3文件最后128个字节
///
/// 文件名
/// 返回字节数组
private byte[] getLast128(string FileName)
{
FileStream fs = new FileStream(FileName,FileMode.Open,FileAccess.Read);
Stream stream = fs;
stream.Seek(-128,SeekOrigin.End);
const int seekPos = 128;
int rl = 0;
byte[] Info = new byte[seekPos];
rl = stream.Read(Info,0,seekPos);
fs.Close();
stream.Close();
return Info;
}
再对上面返回的字节数组分段取出,并保存到Mp3Info结构中返回 。
///
/// 获取MP3歌曲的相关信息
///
/// 从MP3文件中截取的二进制信息
/// 返回一个Mp3Info结构
private Mp3Info getMp3Info(byte[] Info)
{
Mp3Info mp3Info = new Mp3Info();
string str = null;
int i;
int position = 0;//循环的起始值
int currentIndex = 0;//Info的当前索引值
//获取TAG标识
for(i = currentIndex;i
{
str = str (char)Info[i];
position;
}
currentIndex = position;
mp3Info.identify = str;
//获取歌名
str = null;
byte[] bytTitle = new byte[30];//将歌名部分读到一个单独的数组中
int j = 0;
for(i = currentIndex;i
{
bytTitle[j] = Info[i];
position;
j;
}
currentIndex = position;
mp3Info.Title = this.byteToString(bytTitle);
//获取歌手名
str = null;
j = 0;
byte[] bytArtist = new byte[30];//将歌手名部分读到一个单独的数组中
for(i = currentIndex;i
{
bytArtist[j] = Info[i];
position;
j;
}
currentIndex = position;
mp3Info.Artist = this.byteToString(bytArtist);
//获取唱片名
str = null;
j = 0;
byte[] bytAlbum = new byte[30];//将唱片名部分读到一个单独的数组中
for(i = currentIndex;i
{
【vb.netmp3数据 vbnet import】bytAlbum[j] = Info[i];
position;
j;
}
currentIndex = position;
mp3Info.Album = this.byteToString(bytAlbum);
//获取年
str = null;
j = 0;
byte[] bytYear = new byte[4];//将年部分读到一个单独的数组中
for(i = currentIndex;i
{
bytYear[j] = Info[i];
position;
j;
}
currentIndex = position;
mp3Info.Year = this.byteToString(bytYear);
//获取注释
str = null;
j = 0;
byte[] bytComment = new byte[28];//将注释部分读到一个单独的数组中
for(i = currentIndex;i
{
bytComment[j] = Info[i];
position;
j;
}
currentIndex = position;
mp3Info.Comment = this.byteToString(bytComment);
//以下获取保留位
mp3Info.reserved1 = (char)Info[position];
mp3Info.reserved2 = (char)Info[position];
mp3Info.reserved3 = (char)Info[position];
return mp3Info;
}
上面程序用到下面的方法:
///
/// 将字节数组转换成字符串
///
/// 字节数组
/// 返回转换后的字符串
private string byteToString(byte[] b)
{
Encoding enc = Encoding.GetEncoding("GB2312");
string str = enc.GetString(b);
str = str.Substring(0,str.IndexOf('\0') = 0 ? str.IndexOf('\0') : str.Length);//去掉无用字符
return str;
}
改名怎么办呢?我们按(演唱者)歌名 的格式对歌曲进行改名,程序如下:
///
/// 更改文件名
///
/// 文件名
///
private bool ReName(string filePath)
{
if(File.Exists(filePath))
{
Mp3Info mp3Info = new Mp3Info();
mp3Info = this.getMp3Info(this.getLast128(filePath));//读出文件信息
mp3Info.Artist = this.DeleteNotValue(mp3Info.Artist);
mp3Info.Title = this.DeleteNotValue(mp3Info.Title);
if(mp3Info.Artist.Trim().Length==0)
{
mp3Info.Artist="未命名";
}
if(mp3Info.Title.Trim().Length==0)
{
mp3Info.Title="未知名歌曲";
}
try
{
//更名
File.Move(filePath,filePath.Substring(0,filePath.ToLower().LastIndexOf("\\")).Trim()"\\""("mp3Info.Artist.Trim()")"mp3Info.Title.Trim()".mp3");
return true;
}
catch(Exception)
{
return false;
}
}
else
{
return false;
}
}
VB.NET中怎么将图片和MP3等存进SQL server2000的数据库中?为图片、照片、MP3、rmvb指定专属文件名称和文件夹,SQL数据库中定义字符串字段存储他们的路径 。
制作对应控件,绑定到对应的文件类型上去 。
范例 网页中插入图片图片来源数据库
1、在网站主目录下建立一个文件夹 Photo 将 张三.jpg图片存进去
2、数据库表1.字段1中存放 张三
3、在pic.aspx中使用一个Image控件 ID=Image1
4、pic.aspx.cs文件中代码如下
string x=""
*****************//查询数据库 并将"张三"赋值给x这部分代码省略
Image1.ImageUrl = "/photo/"x.ToString()".jpg";
希望能解决你的问题 。
vb.netmp3数据的介绍就聊到这里吧,感谢你花时间阅读本站内容 , 更多关于vbnet import、vb.netmp3数据的信息别忘了在本站进行查找喔 。

    推荐阅读