摘要：
{ Google ZXing Call demo Delphi Version: Delphi XE5 Version 19.0.13476.4176 By: flcop(zylove619@hotmail.com) }unit UMain;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, ... 阅读全文
摘要：
uses Androidapi.JNI.Os, Androidapi.JNIBridge;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;procedure Vibra... 阅读全文