Delphi 10.1.2 MediaPlayer1控件?
delphi吧
全部回复
仅看楼主
level 12
ymwjz 楼主
Delphi 10.1.2 MediaPlayer1控件如何使用?
2017年02月27日 11点02分 1
level 11
简单地说,就是载入文件,然后播放。如下(为了排版,使用全角空格)
unit Unit1;
interface
uses
 System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
 FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls, FMX.Media;
type
 TForm1 = class(TForm)
  MediaPlayer: TMediaPlayer;
  Button1: TButton;
  OpenDialog: TOpenDialog;
  Button2: TButton;
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
 private
  { Private declarations }
 public
  { Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
begin
 if OpenDialog.Execute then
  MediaPlayer.FileName := OpenDialog.FileName
 else
  Exit;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
 MediaPlayer.Play;
end;
end.
据我测试,MP3是支持的。其余的就没试了。
2017年02月27日 15点02分 2
level 12
ymwjz 楼主
不能运行.
是在什么Delphi版本下运行的?
if OpenDialog.Execute then
第一句就出错.
2017年02月28日 03点02分 3
level 11
delphi 10.1.2,Windows平台。
如果连OpenDialog都无法使用,我猜你用的安卓。如果是安卓的话,是不支持对话框控件的,你换一个方式获取文件名和路径就好,替换掉和打开对话框有关的部分。
比如说MediaPlayer.FileName := fm
fn为文件完整路径。其余的不用变。
2017年02月28日 03点02分 4
level 12
ymwjz 楼主
我用的是安卓。谢谢!
2017年02月28日 04点02分 5
level 12
ymwjz 楼主
win7也不能运行。
2017年02月28日 04点02分 6
level 11
那我就不知道了……我随手在delphi10.1.2下试的[滑稽][滑稽]
2017年02月28日 23点02分 7
1