[填空题]

利用MediaPlayer 组件实现一个播放wav声音文件的播放器。用户可自己选择要打开的 wav文件，并在播放时有播放进度提示（如图）。首先在在窗体中添加1个MediaPlayer组件MediaPlayer1、1个标签组件Label1、2个按钮组件（“打开文件”－Button1，“退出”－Button2），1个时钟组件Timer1和1个OpenDialog组件OpenDialog1，一个gauge组件（用作播放进度显示）。进度提示条每隔0.1秒更新一次进度。将程序补充完整。

procedure TForm1.Button1Click（Sender： TObject）； 
begin
if OpenDialog1.Execute Then   Begin 
    MediaPlayer1.filename := OpenDialog1. （①） ;    
       Label1.（②） := OpenDialog1.filename;     
       MediaPlayer1.open;    //打开声音文件    
      MediaPlayer1. （③）    ;  //开始播放     
      Timer1.enabled := （④）   ;   
end; 
end; 
procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
Timer1.Interval :=  （⑤） ;   //每隔0.1秒更新一次进度 
gauge1.maxvalue := MediaPlayer1.length; 
gauge1. （⑥）   := MediaPlayer1.Position;   //更改进度 
end;  
procedure TForm1.Button2Click(Sender: TObject); 
begin   
close; 
end;

【背景资料】某工程，建筑面积30000m2.由地上一栋27层，二层以上标准层高3米，地下1层，层高3.5米，框架剪力墙结构体系，基坑最大开挖深度6m，淤泥质土层，地下水较高，本工程外防护脚手架为双排落地式，使用2台塔吊做施工运输用。 签约开工后，项目经理安排某得力施工员编制总体质量控制计划，编制完成后交项目总工程师审批后，即组织实施，项目监理工程师向项目经理部发出通知，要求项目部编制的总体质量控制计划应交监理部审批，并指出深基坑工程应编制专项施工方案，且要求进行专家论证。 请根据上述背景资料完成以下选项下列选项属于最小验收单位的是（）。 ["土方开挖工程","模板安装工程","钢筋工程","地基与基础工程"] Refer to the exhibit. Easy VPN operates in two modes. The exhibit represents network extension mode. Choose the best reason for using this mode.（） ["Teleworker devices must be accessed from the central site (server, printers).","IP addressing is simplified. ","The Teleworker LAN is a transit networking for routing.","The Teleworker router is an MPLS PE node."] 对普通股评估需要对发行企业了解的内容主要有哪些？ 明清两代处于中国封建社会晚期，承古萌新是这一时期文化的特点。从“萌新”的角度看主要表现在（）。①几部集大成的总结性科技巨著相继问世②反封建的早期民主启蒙思想产生③官方组织编纂的大型图书成就突出④西方传教士东来，开始出现西学东渐的现象 ["①③","②④","②③④","①②③④"] Which includes an activity to host a workshop that focuses on the identification and configuration of the actual network components （routers， servers， local-area network or LAN， and so on） that will be incorporated to run and support the Cisco Unified Communications system（） ["Implement","Design","Plan","Prepare"]

利用MediaPlayer 组件实现一个播放wav声音文件的播放器。用户可自己选择要打开的 wav文件，并在播放时有播放进度提示（如图）。首先在在窗体中添加1个MediaPlayer组件MediaPlayer1、1个标签组件Label1、2个按钮组件（“打开文件”－Button1，“退出”－Button2），1个时钟组件Timer1和1个OpenDialog组件OpenDialog1，一个gauge组件（用作播放进度显示）。进度提示条每隔0.1秒更新一次进度。将程序补充完整。

procedure TForm1.Button1Click（Sender： TObject）； 
begin
if OpenDialog1.Execute Then   Begin 
    MediaPlayer1.filename := OpenDialog1. （①） ;    
       Label1.（②） := OpenDialog1.filename;     
       MediaPlayer1.open;    //打开声音文件    
      MediaPlayer1. （③）    ;  //开始播放     
      Timer1.enabled := （④）   ;   
end; 
end; 
procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
Timer1.Interval :=  （⑤） ;   //每隔0.1秒更新一次进度 
gauge1.maxvalue := MediaPlayer1.length; 
gauge1. （⑥）   := MediaPlayer1.Position;   //更改进度 
end;  
procedure TForm1.Button2Click(Sender: TObject); 
begin   
close; 
end;