delphi android 实例,Delphi Android实例-红外线操作(XE10.2+小米5)

unit Unit1;

interface

uses

System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,

FMX.Controls.Presentation, FMX.StdCtrls,

Androidapi.Helpers,//需要引入

AndroidAPI.jni.OS,//需要引入

Androidapi.JNIBridge,//需要引入

Androidapi.JNI.GraphicsContentViewText,//需要引入

Androidapi.JNI.JavaTypes,//需要引入

FMX.Helpers.Android;//需要引入

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

//外国大神写的

type

JConsumerIrManager_CarrierFrequencyRange = interface;

JConsumerIrManager_CarrierFrequencyRangeClass = interface(JObjectClass)

['{191A7F08-B93B-40D4-9B6E-3D908B37578E}']

{class} function init(min, max: Integer): JConsumerIrManager_CarrierFrequencyRange; cdecl;

end;

[JavaSignature('android/hardware/ConsumerIrManager$CarrierFrequencyRange')]

JConsumerIrManager_CarrierFrequencyRange = interface(JObject)

['{5AC0C73D-9DA2-49B0-A072-55EA03FE3B78}']

function getMaxFrequency: Integer; cdecl;

function getMinFrequency: Integer; cdecl;

end;

TJConsumerIrManager_CarrierFrequencyRange = class(TJavaGenericImport) end;

JConsumerIrManagerClass = interface(JObjectClass)

['{C8AB7EEA-046F-429C-8585-EF69EBB53718}']

end;

[JavaSignature('android/hardware/ConsumerIrManager')]

JConsumerIrManager = interface(JObject)

['{FF469731-5B57-46AB-9C83-4FB51CA6F2BA}']

function getCarrierFrequencies: TJavaArray; cdecl;

function hasIrEmitter: Boolean; cdecl;

procedure transmit(carrierFrequency: Integer; pattern: TJavaArray); cdecl;

end;

TJConsumerIrManager = class(TJavaGenericImport) end;

var

Form1: TForm1;

implementation

{$R *.fmx}

function MakeJavaIntArray(arr: array of Integer): TJavaArray;

var

I: Integer;

begin

Result := TJavaArray.Create(Length(arr));

for I := Low(arr) to High(arr) do

Result.Items[I] := arr[I];

end;

procedure TForm1.Button1Click(Sender: TObject);

var

mCIR: JConsumerIrManager;

mRanges: TJavaArray;

mRange: JConsumerIrManager_CarrierFrequencyRange;

I, DesiredFrequency: Integer;

HasDesiredFrequency: Boolean;

begin

//得到红外服务

mCIR := TJConsumerIrManager.Wrap((SharedActivityContext.getSystemService(TJContext.JavaClass.CONSUMER_IR_SERVICE)

as ILocalObject).GetObjectID);

//查看手机是否支持红外功能

if mCIR.hasIrEmitter then

begin

//根据需要使用红外线

DesiredFrequency := 3800;//一般的遥控板都是38KHz

HasDesiredFrequency := False;

//mRanges := mCIR.getCarrierFrequencies;//获得支持的Hz范围(不知道为什么我得到一个范围，取里面的值时出错了，我只能注掉)

//for I := 0 to mRanges.Length-1 do

//begin

//mRange := mRanges.Items[I];

//if (DesiredFrequency >= mRange.getMinFrequency) and (DesiredFrequency <= mRange.getMaxFrequency) then

//begin

//HasDesiredFrequency := True;

//Break;

//end;

//end;

//

//if HasDesiredFrequency then

//发送红外信号内容

mCIR.transmit(DesiredFrequency, MakeJavaIntArray([8950,4350,650,500,600,500,550,600,550,550,600,500,550,550,600,550,600,500,550,1650,600,1600,650,1600,550,1700,600,1600,600,1600,600,1650,600,1600,650,1600,550,1650,650,1600,600,550,550,550,550,550,550,550,600,500,600,550,550,550,550,550,550,1650,650,1600,600,1600,600,1650,600,1600,600])); //pattern values here

end;

end;

end.