文档章节

简单播放 mp3 - 回复 "heyongan" 的问题

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 163
阅读 6
收藏 0
问题来源: http://www.cnblogs.com/del/archive/2008/09/17/1288772.html#1319271

代码文件:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MPlayer;

type
  TForm1 = class(TForm)
    Button1: TButton;
    MediaPlayer1: TMediaPlayer;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  MediaPlayer1.Visible := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MediaPlayer1.FileName := 'c:\temp\Test.mp3';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

end.

 
 
 
 
 

 

 

  
窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 149
  ClientWidth = 270
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 96
    Top = 72
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object MediaPlayer1: TMediaPlayer
    Left = 8
    Top = 24
    Width = 253
    Height = 30
    TabOrder = 1
  end
end

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/09/17/1292521.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Rhythmbox中文乱码解决办法

Rhythmbox中文乱码解决办法 分类: Linux 2012-08-10 15:251368人阅读评论(0)收藏举报 转自:http://hi.baidu.com/morgensonne/item/3470aef58747abde6325d2d9 今天在网络上找到了一个比较好...

一叶柳
2012/12/02
0
0
2017-1-9总结

1.处理游戏打地鼠中显示二维码和善融弹出问题。 2.增加close的图片,点击取消显示弹出 3.处理ios 音频不播放问题。尤其音频需要和ios音频对应上,多次转换,和在网上重新下载MP3 格式音频 4....

卡卡就是写
2017/01/09
1
0
HTML 音频(Audio)

声音在HTML中可以以不同的方式播放. 问题以及解决方法 在 HTML 中播放音频并不容易! 您需要谙熟大量技巧,以确保您的音频文件在所有浏览器中(Internet Explorer, Chrome, Firefox, Safari,...

wybo521
2015/12/25
35
0
转贴:ubuntu Rhythmbox歌曲名乱码问题

ubuntu存在好多乱码问题,幸亏网上高人无数,对这些问题还都有解决之道。 先说最简单的解决办法吧! sudo apt-get install python-mutagen 安装上这个东西 然后跳入到存放音乐文件的目录下,...

燃灯
2011/01/13
0
0
MP3解码播放,出现的奇怪问题,不知是什么原因,请教各位?

原本是想做MP3文件传输的,但远程播放时出现噪音,不知是什么原因? 出现的问题: 我用组播实现将MP3文件分帧发送出去,另一个程序加入该组接收并播放,声音可以正常播放,但出现一点小噪音,...

chentian08
2012/07/13
407
2

没有更多内容

加载失败,请刷新页面

加载更多

我的Linux系统九阴真经

我的Linux系统九阴真经 在今天,互联网的迅猛发展,科技技术也日新月异,各种编程技术也如雨后春笋一样,冒出尖来了。各种创业公司也百花齐放百家争鸣,特别是针对服务行业,新型互联网服务行...

linuxCool
24分钟前
2
0
Python程序员需要知道的30个技巧

1 直接交换两个数字位置 1x, y = 10, 202print(x, y)3x, y = y, x4print(x, y)5#1 (10, 20)6#2 (20, 10) 2 比较运算符的链接 1n = 102result = 1 < n < 203print(result)4# True5result = 1 ......

糖宝lsh
24分钟前
1
0
[LintCode] Linked List Cycle(带环链表)

描述 给定一个链表,判断它是否有环。 样例 给出 -21->10->4->5, tail connects to node index 1,返回 true。 这里解释下,题目的意思,在英文原题中,tail connects to node index 1 表示的...

honeymose
35分钟前
3
0
Android :报错Your project path contains non-ASCII characters.

报错内容如下 Your project path contains non-ASCII characters. This will most likely cause the build to fail on Windows. Please move your project to a different directory. See ht......

lanyu96
46分钟前
4
0
Nginx平滑添加模块

Nginx已经编译安装并运行了一段时间, 然后某一天, 发现需要用到某个模块但当初没有编译, 这个时候怎么办呢? 卸载重新安装肯定可以的, 如果Nginx版本没有变更的话, 则有一个相对平滑的方法来添...

老菜鸟0217
51分钟前
6
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部