delphi android发送与接收广播

在Delphi中，可以使用TLocalBroadcastManager类来发送和接收广播。以下是一个示例：

发送广播：
```delphi
uses
  Androidapi.JNI.GraphicsContentViewText, Androidapi.Helpers, Androidapi.JNI.JavaTypes, Androidapi.JNI.LocalBroadcastManager;

procedure SendBroadcast(const AAction: JString);
var
  Intent: JIntent;
begin
  Intent := TJIntent.Create;
  Intent.setAction(AAction);
  TJLocalBroadcastManager.JavaClass.getInstance(TAndroidHelper.Context).sendBroadcast(Intent);
end;
```

接收广播：
```delphi
uses
  Androidapi.JNI.GraphicsContentViewText, Androidapi.Helpers, Androidapi.JNI.JavaTypes, Androidapi.JNI.LocalBroadcastManager;

type
  TBroadcastReceiver = class(TAndroidBroadcastReceiver)
  protected
    procedure onReceive(context: JContext; intent: JIntent); override;
  end;

procedure TBroadcastReceiver.onReceive(context: JContext; intent: JIntent);
var
  Action: JString;
begin
  Action := intent.getAction;
  // 处理接收到的广播
end;

procedure RegisterBroadcastReceiver;
var
  Receiver: TBroadcastReceiver;
begin
  Receiver := TBroadcastReceiver.Create;
  TJLocalBroadcastManager.JavaClass.getInstance(TAndroidHelper.Context).registerReceiver(Receiver, TJIntentFilter.JavaClass.init(StringToJString('YOUR_ACTION')));
end;

procedure UnregisterBroadcastReceiver;
var
  Receiver: TBroadcastReceiver;
begin
  Receiver := TBroadcastReceiver.Create;
  TJLocalBroadcastManager.JavaClass.getInstance(TAndroidHelper.Context).unregisterReceiver(Receiver);
end;
```

在发送广播时，使用`SendBroadcast`函数，并传入广播的Action。在接收广播时，创建一个继承自`TAndroidBroadcastReceiver`的类，并在`onReceive`方法中处理接收到的广播。然后，使用`RegisterBroadcastReceiver`函数注册广播接收器，并在`UnregisterBroadcastReceiver`函数中取消注册。请注意替换示例代码中的`YOUR_ACTION`为实际的广播Action。

希望对你有所帮助！