老程序员之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了，真的很简单：）