第一次編譯時,設定android SDK:
F:\RAD Studio XE6\PlatformSDKs\adt-bundle-windows-x86-20131030\sdk
F:\RAD Studio XE6\PlatformSDKs\android-ndk-r9c
C:\Program Files\Java\jdk1.7.0_40
SDK更新代理
XE6 不支持JStringToString、StringTojString、StrToJURI:use Androidapi.Helpers
//Splash Image
Delphi XE5,XE6,XE7編譯的程序在Android下啟動會有一段時間黑屏,以前需要用Java擴展Activity增加Splash顯示,
現在Delphi XE7增加了Splash Image顯示功能了。
步驟:
1.鼠標右鍵點擊工程,選擇Options,
2.進入Application分頁
3.勾選Include Splash Image
4.選擇您的Splash Image文件
5.設置Splash Tile mode和Splash Gravity
Splash Tile Mode
disabled -按圖片尺寸大小顯示,顯示位置有Splash Gravity設置
clamp - 圖形邊框適應屏幕大小
repeat - 屏幕水平,豎立方向重復填充滿Splash Image
mirror - 跟repeat差不多,圖片是鏡像的。
Gravity 設置比屏幕小的圖片在屏幕中的位置,只有當Splash Title Mode為Disable時有效,
參數大家一看便知道什麼意思了,我就不提了。
帶文件發布
菜單project ->deployment->然後點擊增加按鈕,選擇中sqlite數據test.s3db,
remote path填寫assets\internal\
應用顯示中文名(工程不能為中文否則會編譯出錯)
菜單project ->Option->Version Info->label
FMX.Consts漢化(需要更改單元)
{DialogStrings}
//SMsgDlgWarning='Warning';
//SMsgDlgError='Error';
//SMsgDlgInformation='Information';
//SMsgDlgConfirm='Confirm';
//SMsgDlgYes='Yes';
//SMsgDlgNo='No';
//SMsgDlgOK='OK';
//SMsgDlgCancel='Cancel';
//SMsgDlgHelp='Help';
//SMsgDlgHelpNone='Nohelpavailable';
//SMsgDlgHelpHelp='Help';
//SMsgDlgAbort='Abort';
//SMsgDlgRetry='Retry';
//SMsgDlgIgnore='Ignore';
//SMsgDlgAll='All';
//SMsgDlgNoToAll='NotoAll';
//SMsgDlgYesToAll='Yesto&All';
//SMsgDlgClose='Close';
//
//SWindowsVistaRequired='%srequiresWindowsVistaorlater';
//
//SUsername='&Username';
//SPassword='&Password';
//SDomain='&Domain';
//SLogin='Login';
SMsgDlgWarning='警告';
SMsgDlgError='錯誤';
SMsgDlgInformation='信息';
SMsgDlgConfirm='確認';
SMsgDlgYes='是的';
SMsgDlgNo='不是';
SMsgDlgOK='確定';
SMsgDlgCancel='取消';
SMsgDlgHelp='幫助';
SMsgDlgHelpNone='沒有提供幫助';
SMsgDlgHelpHelp='幫助';
SMsgDlgAbort='放棄';
SMsgDlgRetry='重試';
SMsgDlgIgnore='忽略';
SMsgDlgAll='全部';
SMsgDlgNoToAll='全選“不是”';
SMsgDlgYesToAll='全選“是”';
SMsgDlgClose='關閉';
SWindowsVistaRequired='%s需要WindowsVista或以上操作系統';
SUsername='&用戶名';
SPassword='&密碼';
SDomain='&域名';
SLogin='登錄';
臨時文件路徑(支持安卓、IOS)
function GeFileName(const AFileName: string): string;
begin
{$IFDEF ANDROID}
Result := TPath.GetTempPath + '/' + AFileName;
{$ELSE}
{$IFDEF IOS}
Result := TPath.GetHomePath + '/Documents/' + AFileName;
{$ELSE}
Result := AFileName;
{$ENDIF}
{$ENDIF}
end;
IOUtils文件說明
路徑類
TPath.GetTempPath; {獲取臨時文件夾路徑}
TPath.GetTempFileName; {獲取一個臨時文件名}
TPath.GetPathRoot(); {提取盤符, 如: c:\}
TPath.GetDirectoryName(); {提取路徑}
TPath.GetFileName(); {提取文件名}
TPath.GetExtension(); {提取擴展名}
TPath.GetFileNameWithoutExtension(); {提取無擴展名的文件名}
TPath.ChangeExtension(); {更換擴展名}
TPath.DriveExists(); {檢查路徑中的驅動器是否存在}
TPath.GetFullPath(); {根據相對路徑給出全路徑}
TPath.HasExtension(); {判斷是否有擴展名}
TPath.IsPathRooted(); {判斷是否是絕對路徑}
TPath.Combine(); {結合路徑}
TPath.GetRandomFileName; {產生一個隨機文件名}
TPath.GetGUIDFileName(); {用於產生一個唯一的文件名, 布爾參數決定名稱中是否包含 -}
TPath.IsValidPathChar(); {判斷給定的字符是否能用於路徑名}
TPath.IsValidFileNameChar(); {判斷給定的字符是否能用於文件名}
TPath.AltDirectorySeparatorChar; {Windows 下是 "\"}
TPath.AltDirectorySeparatorChar; {Windows 下是 "/"}
TPath.ExtensionSeparatorChar; {Windows 下是 "."}
TPath.PathSeparator; {Windows 下是 ";"}
TPath.VolumeSeparatorChar; {Windows 下是 ":"}
//目錄類
TDirectory.CreateDirectory(); {建立新目錄}
TDirectory.Exists(); {判斷文件夾是否存在}
TDirectory.IsEmpty(); {判斷文件夾是否為空}
TDirectory.Copy(); {復制文件夾}
TDirectory.Move(); {移動文件夾}
TDirectory.Delete(); {刪除文件夾, 第二個參數為 True 可刪除非空文件夾}
TDirectory.GetDirectoryRoot(); {獲取目錄的根盤符, 如: C:\}
TDirectory.GetCurrentDirectory; {獲取當前目錄}
TDirectory.SetCurrentDirectory(); {設置當前目錄}
TDirectory.GetLogicalDrives; {獲取驅動器列表; 下有舉例}
TDirectory.GetAttributes(); {獲取文件夾屬性, 譬如只讀、存檔等; 下有舉例}
TDirectory.SetAttributes(); {設置文件夾屬性; 下有舉例}
//文件類
TFile.Exists();//判斷指定的文件是否存在
TFile.Copy();//復制文件
TFile.Move();//移動文件
TFile.Delete();//刪除文件
TFile.Replace();//替換文件
MotionSensor1: TMotionSensor; 加速傳感器
MotionSensor1.Sensor(AngleAccelX、AngleAccelY、AngleAccelZ)加速度
procedure TAccelerometerForm.Timer1Timer(Sender: TObject);
var
LProp: TCustomMotionSensor.TProperty;
begin
for LProp in MotionSensor1.Sensor.AvailableProperties do
begin
{ get the data from the sensor }
case LProp of
TCustomMotionSensor.TProperty.AccelerationX:
begin
lbAccelerationX.Visible := True;
lbAccelerationX.Text := Format('Acceleration X: %6.2f', [MotionSensor1.Sensor.AccelerationX]);
end;
end;
end;
OrientationSensor1: TOrientationSensor;方位傳感器
OrientationSensor1.Sensor(TiltX,TiltY,TiltZ)
procedure TOrientationSensorForm.Timer1Timer(Sender: TObject);
begin
{ get the data from the sensor }
lbTiltX.Text := Format('Tilt X: %f', [OrientationSensor1.Sensor.TiltX]);
lbTiltY.Text := Format('Tilt Y: %f', [OrientationSensor1.Sensor.TiltY]);
lbTiltZ.Text := Format('Tilt Z: %f', [OrientationSensor1.Sensor.TiltZ]);
lbHeadingX.Text := Format('Heading X: %f', [OrientationSensor1.Sensor.HeadingX]);
lbHeadingY.Text := Format('Heading Y: %f', [OrientationSensor1.Sensor.HeadingY]);
lbHeadingZ.Text := Format('Heading Z: %f', [OrientationSensor1.Sensor.HeadingZ]);
end;
TSensorManager傳感器管理器(包含上述兩種傳感器,Samples\Object Pascal\Mobile Samples\Device Sensors and Services\SensorInfo)
TSensorCategory = (Location, Environmental, Motion, Orientation, Mechanical, Electrical, Biometric, Light, Scanner);
位置傳感器,環境傳感器,運動傳感器,方向傳感器,機械傳感器,電傳感器,生物傳感器,光繁傳感器,掃描儀傳感器
TActionList組件可以添加標准事件(New Standard Action)
TakePhotoFromCameraAction1:TTakePhotoFromCameraAction; // 通過手機攝像頭獲取圖片
TakePhotoFromLibraryAction1: TTakePhotoFromLibraryAction; //獲取手機已存在圖片
ShowShareSheetAction1: TShowShareSheetAction;//用其它程序分享圖片(Bitmap.Assign();)
獲取麥克風設置 FMX.Media
FMicrophone: TAudioCaptureDevice;
FMicrophone := TCaptureDeviceManager.Current.DefaultAudioCaptureDevice;
FMicrophone.FileName 設置路徑
FMicrophone.State = TCaptureDeviceState.Capturing 設備狀態
FMicrophone.StartCapture; //開始錄音
FMicrophone.StopCapture; //結束錄音
MediaPlayer: TMediaPlayer; 媒體播放器
MediaPlayer.FileName 設置路徑
MediaPlayer.Play; //開始播放
MediaPlayer.Stop; //結束播放
獲取手機攝像頭
Camera: TCameraComponent;
Camera.Active := True; //打開
Camera.Active := False; //停止
Camera.SampleBufferToBitmap(imgCameraView.Bitmap, True); //保存圖片
TThread.Synchronize(TThread.CurrentThread, GetImage); //線程保存圖片
Camera.Quality 圖像質量
Camera.HasFlash 是否有閃光燈
Camera.TorchMode := TTorchMode.ModeOn; //打開閃光燈Camera.FlashMode := FMX.Media.TFlashMode.fmFlashOff;
Camera.TorchMode := TTorchMode.ModeOff;//關閉閃光燈Camera.FlashMode := FMX.Media.TFlashMode.fmFlashOn;
Camera.Kind := FMX.Media.TCameraKind.ckFrontCamera;//前置攝像頭
Camera.Kind := FMX.Media.TCameraKind.ckBackCamera;//後置攝像頭
獲取設備信息
lbDeviceType.Text := Format('Device Type: %s', [JStringToString(TJBuild.JavaClass.MODEL)]);
lbOSName.Text := Format('OS Name: %s', [GetCodename(JStringToString(TJBuild_VERSION.JavaClass.RELEASE))]);
lbOSVersion.Text := Format('OS Version: %s', [JStringToString(TJBuild_VERSION.JavaClass.RELEASE)]);
GestureManager1: TGestureManager;手勢識別組件(igiRotate|旋轉、igiZoom|縮放、igiLongTap|長按)
組件關聯GestureManager1(Touch.GestureManager,Getures.Standard可以直接添加事件)
procedure TPinchZoom.FormGesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean);
var
LObj: IControl;
LImage: TImage;
LImageCenter: TPointF;
begin
if EventInfo.GestureID = igiZoom then
begin
LObj := Self.ObjectAtPoint(ClientToScreen(EventInfo.Location));
if LObj is TImage then
begin
if (not(TInteractiveGestureFlag.gfBegin in EventInfo.Flags)) and
(not(TInteractiveGestureFlag.gfEnd in EventInfo.Flags)) then
begin
{ zoom the image }
LImage := TImage(LObj.GetObject);
LImageCenter := LImage.Position.Point + PointF(LImage.Width / 2,
LImage.Height / 2);
LImage.Width := LImage.Width + (EventInfo.Distance - FLastDistance);
LImage.Height := LImage.Height + (EventInfo.Distance - FLastDistance);
LImage.Position.X := LImageCenter.X - LImage.Width / 2;
LImage.Position.Y := LImageCenter.Y - LImage.Height / 2;
end;
FLastDistance := EventInfo.Distance;
end;
end;
end;
獲取地理信息
LocationSensor1: TLocationSensor;//定位
LocationSensor1.Active := swLocationSensorActive.IsChecked; //開始
NewLocation.Latitude //經度
NewLocation.Longitude//緯度
FGeocoder: TGeocoder;//地理編碼
procedureTLocationForm.LocationSensor1LocationChanged(Sender:TObject;
constOldLocation,NewLocation:TLocationCoord2D);
const
LGoogleMapsURL:String='https://maps.google.com/maps?q=%s,%s';
var
ENUSLat,ENUSLong:String;//holdersforURLstrings
begin
ENUSLat:=NewLocation.Latitude.ToString(ffGeneral,5,2,TFormatSettings.Create('en-US'));
ENUSLong:=NewLocation.Longitude.ToString(ffGeneral,5,2,TFormatSettings.Create('en-US'));
{convertthelocationtolatitudeandlongitude}
lbLatitude.Text:='Latitude:'+ENUSLat;
lbLongitude.Text:='Longitude:'+ENUSLong;
{andtrackthelocationviaGoogleMaps}
WebBrowser1.Navigate(Format(LGoogleMapsURL,[ENUSLat,ENUSLong]));
// Setup an instance of TGeocoder
try
if not Assigned(FGeocoder) then
begin
if Assigned(TGeocoder.Current) then
FGeocoder := TGeocoder.Current.Create;
if Assigned(FGeocoder) then
FGeocoder.OnGeocodeReverse := OnGeocodeReverseEvent;
end;
except
ListBoxGroupHeader1.Text := 'Geocoder service error.';
end;
// Translate location to address
if Assigned(FGeocoder) and not FGeocoder.Geocoding then
FGeocoder.GeocodeReverse(NewLocation);
end;
//地理信息
procedureTLocationForm.OnGeocodeReverseEvent(const Address: TCivicAddress);
begin
ListBoxItemAdminArea.ItemData.Detail := Address.AdminArea; //省份
ListBoxItemCountryCode.ItemData.Detail := Address.CountryCode; //國家編碼 CN
ListBoxItemCountryName.ItemData.Detail := Address.CountryName; //國家
ListBoxItemFeatureName.ItemData.Detail := Address.FeatureName; //鎮
ListBoxItemLocality.ItemData.Detail := Address.Locality; //市
ListBoxItemPostalCode.ItemData.Detail := Address.PostalCode; //郵政編碼
ListBoxItemSubAdminArea.ItemData.Detail := Address.SubAdminArea;//子級省
ListBoxItemSubLocality.ItemData.Detail := Address.SubLocality;//子級市
ListBoxItemSubThoroughfare.ItemData.Detail := Address.SubThoroughfare;//街道
ListBoxItemThoroughfare.ItemData.Detail := Address.Thoroughfare;//子街道
end;
獲取本機信息
FMX.Android.DeviceInfo.GetInformation;
Memo1.Lines.Add('ID:'+FMX.Android.DeviceInfo.ID);
Memo1.Lines.Add('IMEI:'+FMX.Android.DeviceInfo.IMEI);
Memo1.Lines.Add('User:'+FMX.Android.DeviceInfo.User);
Memo1.Lines.Add('Host:'+FMX.Android.DeviceInfo.Host);
Memo1.Lines.Add('Tags:'+FMX.Android.DeviceInfo.Tags);
Memo1.Lines.Add('Time:'+FMX.Android.DeviceInfo.Time);
Memo1.Lines.Add('AType:'+FMX.Android.DeviceInfo.AType);
Memo1.Lines.Add('Board:'+FMX.Android.DeviceInfo.Board);
Memo1.Lines.Add('Radio:'+FMX.Android.DeviceInfo.Radio);
Memo1.Lines.Add('Brand:'+FMX.Android.DeviceInfo.Brand);
Memo1.Lines.Add('Model:'+FMX.Android.DeviceInfo.Model);
Memo1.Lines.Add('Serial:'+FMX.Android.DeviceInfo.Serial);
Memo1.Lines.Add('Device:'+FMX.Android.DeviceInfo.Device);
Memo1.Lines.Add('CpuABI:'+FMX.Android.DeviceInfo.CpuABI);
Memo1.Lines.Add('CpuABI2:'+FMX.Android.DeviceInfo.CpuABI2);
Memo1.Lines.Add('Display:'+FMX.Android.DeviceInfo.Display);
Memo1.Lines.Add('Product:'+FMX.Android.DeviceInfo.Product);
Memo1.Lines.Add('Hardware:'+FMX.Android.DeviceInfo.Hardware);
Memo1.Lines.Add('Bootloader:'+FMX.Android.DeviceInfo.Bootloader);
Memo1.Lines.Add('FingerPrint:'+FMX.Android.DeviceInfo.FingerPrint);
Memo1.Lines.Add('Manufacturer:'+FMX.Android.DeviceInfo.Manufacturer);
MapView1: TMapView;//地圖足跡
WebBrowser1: TWebBrowser; //浏覽器
WebBrowser1.Navigate('www.baidu.com'); //打開網頁
WebBrowser1.URL := '';//打開網頁
WebBrowser1.GoForward; //前進
WebBrowser1.GoBack;//後退
ShowMessage、MessageDlg、InputQuery //對話框很方便
消息提醒(從手機屏幕頂部向下滑動,出現的提示消息)
NotificationC: TNotificationCenter;
procedure TNotificationsForm.btnSendNotificationImmediatelyClick(
Sender: TObject);
var
Notification: TNotification;
begin
{ verify if the service is actually supported }
if NotificationC.Supported then
begin
Notification := NotificationC.CreateNotification;
try
Notification.Name := 'MyNotification';
Notification.AlertBody := 'Delphi for Mobile is here!';
Notification.FireDate := Now; //可修改發送消息時間
{ Send notification in Notification Center }
NotificationC.ScheduleNotification(Notification);
{ also this method is equivalent }
// NotificationService.PresentNotification(Notification);
finally
Notification.DisposeOf;
end;
end
end;
if NotificationC.Supported then
NotificationC.CancelNotification('MyNotification'); //取消消息
NotificationC.CancelAll; //取消所有消息
程序事件服務
var
FMXApplicationEventService: IFMXApplicationEventService;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService, IInterface(FMXApplicationEventService)) then
FMXApplicationEventService.SetApplicationEventHandler(HandleAppEvent)
else
flag:= false;
end;
function TForm1.HandleAppEvent(AAppEvent: TApplicationEvent; AContext: TObject) : boolean;
begin
if flag = false then
exit;
case AAppEvent of
TApplicationEvent.aeEnteredBackground:
begin
//當程序後台運行了
end;
end;
Result := true;
end;
電話信息(Call撥號)
PhoneDialerService: IFMXPhoneDialerService;
獲取電話服務信息
procedure TPhoneDialerForm.btnGetCarrierInfoClick(Sender: TObject);
var
PhoneDialerService: IFMXPhoneDialerService;
begin
{ test whether the PhoneDialer services are supported }
if TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(PhoneDialerService)) then
begin
{ if yes, then update the labels with the retrieved information }
CarrierNameItem.ItemData.Detail := PhoneDialerService.GetCarrier.GetCarrierName;
CountryCodeItem.ItemData.Detail := PhoneDialerService.GetCarrier.GetIsoCountryCode;
NetworkCodeItem.ItemData.Detail := PhoneDialerService.GetCarrier.GetMobileCountryCode;
MobileNetworkItem.ItemData.Detail := PhoneDialerService.GetCarrier.GetMobileNetwork;
end
else
ShowMessage('PhoneDialer service not supported');
end;
撥號
procedure TPhoneDialerForm.btnMakeCallClick(Sender: TObject);
var
PhoneDialerService: IFMXPhoneDialerService;
begin
{ test whether the PhoneDialer services are supported }
if TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(PhoneDialerService)) then
begin
{ if the Telephone Number is entered in the edit box then make the call, else
display an error message }
if edtTelephoneNumber.Text <> '' then
PhoneDialerService.Call(edtTelephoneNumber.Text)
else
begin
ShowMessage('Please type in a telephone number.');
edtTelephoneNumber.SetFocus;
end;
end
else
ShowMessage('PhoneDialer service not supported');
end;
Intent :TJIntent
uses
Androidapi.JNI.GraphicsContentViewText, FMX.Helpers.Android, Androidapi.JNI.Net,Androidapi.Helpers;
procedureCall_URI(constAAction : JString;constAURI:string);
var
uri: Jnet_Uri;
Intent: JIntent;
begin
uri := StrToJURI(AURI);
Intent := TJIntent.JavaClass.init(AAction, uri);
{Intent.putExtra()
//短信
Call_URI(TJIntent.JavaClass.ACTION_SENDTO,'smsto:137114553XX');
Intent.putExtra(StringToJString('sms_body'), StringToJString('測試短信'));
如果是要發短信等復雜的應用,需要傳遞各種其他的參數.要用到Intent.putExtra()傳遞多個參數.
這裡只封裝最簡單的,具體Intent.putExtra()的用法,可以查詢Java的資料.大把的
}
SharedActivityContext.startActivity(Intent);
end;
//使用例子:
//打電話
Call_URI(TJIntent.JavaClass.ACTION_CALL,'tel:137114553XX');
//打開地圖顯示某個坐標點
Call_URI(TJIntent.JavaClass.ACTION_VIEW,'geo:38.899533,-77.036476');
//打開網頁
Call_URI(TJIntent.JavaClass.ACTION_VIEW,'www.baidu.com');
//發送電子郵件
Call_URI(TJIntent.JavaClass.ACTION_SENDTO,'mailto:
[email protected]');
//播放音樂
Call_URI(TJIntent.JavaClass.ACTION_VIEW,'file:///sdcard/download/最炫民族風.mp3');
回到主畫面
procedureTForm1.Button3Click(Sender:TObject);
var
Intent:JIntent;
begin
Intent:=TJIntent.Create;
Intent.setAction(TJIntent.JavaClass.ACTION_MAIN);
Intent.addCategory(TJIntent.JavaClass.CATEGORY_HOME);
Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
MainActivity.startActivity(Intent);
end;
條碼掃描(需要安裝zxing)
procedureTINVMCForm.btnSCANClick(Sender:TObject);
var
uri:Jnet_Uri;//引用Androidapi.JNI.Net
Intent:JIntent;//引用Androidapi.JNI.GraphicsContentViewText
jstr:JString;
begin
inherited;
uri:=StrToJURI('com.google.zxing.client.android.SCAN');//引用FMX.Helpers.Android
//Intent:=TJIntent.JavaClass.init(jstring(('com.google.zxing.client.android.SCAN');
Intent:=TJIntent.JavaClass.init(StringToJString('com.google.zxing.client.android.SCAN'));
SharedActivityContext.startActivity(Intent);
end;
function GetZXingIntent:JIntent;
const
GOOGLE_ZXING='com.google.zxing.client.android.SCAN';
GOOGLE_ZXING_PACKAGE='com.google.zxing.client.android';
begin
Result:=TJIntent.JavaClass.init(StringToJString(GOOGLE_ZXING));
Result.setPackage(StringToJString(GOOGLE_ZXING_PACKAGE));
end;
//是否存在對應
functionIsIntentCallable(constAIntent:JIntent):Boolean;
var
LJPackageManager:JPackageManager;
begin
Result:=False;
ifAssigned(AIntent)then
begin
LJPackageManager:=SharedActivityContext.getPackageManager;
Result:=LJPackageManager.queryIntentActivities(AIntent,
TJPackageManager.JavaClass.MATCH_DEFAULT_ONLY).size<>0;
end;
end;
獲取手機信息
function GetPhoneInfo(): string;
Var
TelephonyManager: JTelephonyManager;
TelephonyServiceNative: JObject;
begin
result := '';
TelephonyServiceNative := SharedActivityContext.getSystemService
(TJContext.JavaClass.TELEPHONY_SERVICE);
if Assigned(TelephonyServiceNative) then
TelephonyManager := TJTelephonyManager.Wrap
((TelephonyServiceNative as ILocalObject).GetObjectID);
result := JStringToString(TelephonyManager.getLine1Number);//取得手機號
//TelephonyManager.getDeviceId 取IMEI
//TelephonyManager.getLine1Number 取MSISDN 手機號,大部分SIM卡中不會寫入這個信息
//TelephonyManager.getSimSerialNumber 取ICCID
//TelephonyManager.getSubscriberId 取IMSI 運營商實際上是用這個查詢的
end;
手機振動
uses FMX.Helpers.Android, Androidapi.JNI.App, Androidapi.JNI.Os, Androidapi.JNIBridge, FMX.StdCtrls;
procedure TForm1.Button2Click(Sender: TObject);
function GetVibratorArray(const AintArr:array of int64):TJavaArray
;//震動規律函數
var
Lindex:integer;
begin
Result:=TJavaArray.Create(Length(AintArr));
for Lindex:=Low(AintArr) to High(AintArr) do
Result.Items [Lindex]:= AintArr[Lindex];
end;
var
LVibrator:JVibrator;
LJavaArray:TJavaArray
;
begin
LVibrator:=TJVibrator.Wrap((SharedActivity.getSystemService(TJActivity.javaClass.VIBRATOR_SERVICE ) as iLocalObject).GetObjectID );//引用震動
if not LVibrator.hasVibrator then
begin
showmessage('手機不支持震動');
exit;
end;
LVibrator.vibrate(200);//震動200ms
LVibrator.cancel ;//立刻停止震動
LJavaArray:=GetVibratorArray([200,1000,3000,5000]);//調用震動規律
LVibrator.vibrate(LJavaArray,-1);//不重復, 震動一 次
LJavaArray:=GetVibratorArray([200,1000,3000,5000]);//調用震動規律
LVibrator.vibrate(LJavaArray,0);//v不停重復,大於0的參數,可以指定震動次數
end;
網絡傳送文件(類似Server/Client)
TTetheringManager|設備管理、TTetheringAppProfile|文件發送
藍牙
System.Bluetooth單元中主要包含一下幾個類
TBluetoothManager、TBluetoothDeviceList、TBluetoothAdapter、TBluetoothDevice、TBluetoothService、
TBluetoothServiceList、TBluetoothSocket
TBluetoothManager是藍牙管理器,用於藍牙設備管理,包括發現藍牙設備,獲取配對設備,處理遠程配對請求等功能
TBluetoothDeviceList是藍牙設備列表,TBluetoothDeviceList = class(TObjectList),可以通過TBluetoothManager.GetPairedDevices獲得配對設備列表
TBluetoothAdapter本機藍牙設備,實現配對、取消配對等功能,可通過TBluetoothManager.CurrentAdapter得到當前藍牙設備
TBluetoothDevice遠端藍牙設備,每個遠端設備可以提供若干個服務(TBluetoothService),
TBluetoothService遠端藍牙設備服務,包括服務名和UUID
TBluetoothServiceList服務列表 = class(TList
);可通過TBluetoothDevice.GetServices獲得遠端設備服務列表
TBluetoothSocket藍牙通訊套接字,通過TBluetoothDevice.CreateClientSocket(StringToGUID(ServiceGUI), True/False)創建
TimeEdit1: TTimeEdit;//時間選擇
HorzScrollBox1: THorzScrollBox;橫拉組件
MultiView1: TMultiView;//多余視圖(Mode主明細表,可更改彈出方式)
EMSProvider: TEMSProvider;//企業移動服務
BBAS Client(組件組TKinveyProvider、TParseProvider);移動客戶端數據連接組件
TabItem1:TTabItem;//多頁
退出鍵不退出程序
procedure TPForm.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
Shift: TShiftState);
begin
if Key = vkHardwareBack then
begin
{$IFDEFANDROID}
MessageDlg('確認退出嗎?',System.UITypes.TMsgDlgType.mtInformation,
[
System.UITypes.TMsgDlgBtn.mbYes,
//System.UITypes.TMsgDlgBtn.mbNo,
System.UITypes.TMsgDlgBtn.mbCancel
],0,System.UITypes.TMsgDlgBtn.mbCancel,
procedure(constAResult:TModalResult)
begin
ifAResult=mrYESthen
MainActivity.finish;{退出程序}//useFMX.Platform.Android
end);
{$ENDIFANDROID}
//close;
Key:=0;
exit;
end;
end;
Application.FormFactor.Orientations := [TFormOrientation.Landscape]; //堅屏
Application.FormFactor.Orientations := [TFormOrientation.Portrait];//橫屏
當前網絡狀態(Androidapi.JNI.Network.pas)
IsConnected|連接,IsWiFiConnected|Wifi是否連接,IsMobileConnected|移動網絡是否連接
剪貼版FClipboardService: IFMXClipboardService;
TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, IInterface(FClipboardService));
FClipboardService.SetClipboard(Tvalue(Edit1.Text)); //復制
FClipboardService.GetClipboard.ToString; //粘貼
鍵盤FService: IFMXVirtualKeyboardToolbarService;
if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardToolbarService, IInterface(FService)) then
begin
FService.SetToolbarEnabled(true);
FService.SetHideKeyboardButtonVisibility(true);
end;
添加桌面快捷方式
procedure Tform1.Button1Click(Sender: TObject);
{$IFDEF ANDROID}
var
ShortcutIntent: JIntent;
addIntent: JIntent;
wIconIdentifier : integer;
wIconResource : JIntent_ShortcutIconResource;
{$ENDIF}
begin
{$IFDEF ANDROID}
ShortcutIntent := TJIntent.JavaClass.init(SharedActivityContext, SharedActivityContext.getClass);
ShortcutIntent.setAction(TJIntent.JavaClass.ACTION_MAIN);
addIntent := TJIntent.Create;
addIntent.putExtra(TJIntent.JavaClass.EXTRA_SHORTCUT_INTENT, TJParcelable.Wrap((shortcutIntent as ILocalObject).GetObjectID));
addIntent.putExtra(TJIntent.JavaClass.EXTRA_SHORTCUT_NAME, StringToJString(Application.Title));
addIntent.setAction(StringToJString('com.android.launcher.action.INSTALL_SHORTCUT'));
// get icon resource identifier
wIconIdentifier := SharedActivity.getResources.getIdentifier(StringToJString('ic_launcher'), StringToJString('drawable'), StringToJString('com.embarcadero.Project1'));
wIconResource := TJIntent_ShortcutIconResource.JavaClass.fromContext(SharedActivityContext, wIconIdentifier);
// set icon for shortcut
addIntent.putExtra(TJIntent.JavaClass.EXTRA_SHORTCUT_ICON_RESOURCE, TJParcelable.Wrap((wIconResource as ILocalObject).GetObjectID));
SharedActivityContext.sendBroadcast(addIntent);
{$ENDIF}
end;
截取屏幕圖片
function MakeScaleScreenshot(Sender: TControl): TBitmap;
function GetScreenScale: Single;
var
ScreenService: IFMXScreenService;
begin
Result := 1;
if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then
begin
Result := ScreenService.GetScreenScale;
end;
end;
var
fScreenScale: Single;
begin
fScreenScale := GetScreenScale;
Result := TBitmap.Create(Round(Sender.Width * fScreenScale),
Round(Sender.Height * fScreenScale));
Result.Clear(0);
if Result.Canvas.BeginScene then
try
Sender.PaintTo(Result.Canvas, RectF(0, 0, Result.Width, Result.Height));
finally
Result.Canvas.EndScene;
end;
end;