老程序员之DELPHI XE5之手机应用开发案例之一

Delphi XE5发布已有一年了，本人通过其已实现了几个小的手机应用，评价如下：

1）XE5稳定性和性能都得到了很好的提升，至少目前没有感觉任何不适；

2）真正实现了一次编码，多版本发布的目标，无论是Andrio各版本，还是iOS和WP8都只需要切换部署参数即可完成；（注意配置相应的开发环境还是有些困难的）

3）第三方SDK接入方便，本人已完成对微信开放平台，QQ开发平台，迅飞语音开放平台，以及百度开放平台接入，均正常，细节可深入交流。

4）FireMoney套件很好的用，完全在移动开发中实现了VCL的功能，而且很玄！

示例：以下本人通过一段手机录音程序做一下简单演示

新建：FireMoney Mobile Application

界面：可视化手机窗口下增加两按钮,两张图片以示录音机状态

引用单元：FMX.Media

类申明：

var

    FMicrophone: TAudioCaptureDevice;

procedure TfrmMain.btnStartRecordClick(Sender: TObject);

//开始录音
begin
  FMicrophone := TCaptureDeviceManager.Current.DefaultAudioCaptureDevice;
  if Assigned(FMicrophone) then
  begin
    FMicrophone.FileName := TPath.GetHomePath + '/RecordTest.3GP';
    try
      FMicrophone.StartCapture;
      imgOn.Visible := True;
    except
      imgOn.Visible := False;
      ShowMessage('设备不识别或不支持。');
    end;
  end
  else
    ShowMessage('没有可用的麦克风。');
end;

procedure TfrmMain.btnStopRecordClick(Sender: TObject);

//停止录音
begin
  if Assigned(FMicrophone) then
  try
    if FMicrophone.State = TCaptureDeviceState.Capturing then
    begin
      FMicrophone.StopCapture;
      imgOn.Visible := False;
    end;
  except
    imgOn.Visible := False;
    ShowMessage('设备不识别或不支持');
  end;
end;

OK了，真的很简单：）