Umsetzung von XCode nach Delphi

[daywalker9]

Schau mal hier

Delphi-Quellcode:

unit Unit5;

interface

uses
  System.TypInfo,
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, iOSapi.UIKit,
  iOSapi.Foundation, Macapi.ObjCRuntime, Macapi.ObjectiveC,  System.Mac.CFUtils,
  Macapi.OCMarshal, iOSapi.CocoaTypes, Macapi.CoreFoundation, FMX.StdCtrls;

type
  INotifier = interface(NSObject)
    ['{B0069354-3EF8-48F4-84E1-E6223E648BFA}']
    procedure CallBack(notification : Pointer); cdecl;
  end;

  TNotifier = class(TOCLOcal)
  protected
    function GetObjectiveCClass: PTypeInfo; override;
  public
    procedure CallBack(notification: Pointer); cdecl;
  end;

  TForm5 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    FNotifier: TNOtifier;
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.fmx}

function UIDeviceBatteryLevelDidChangeNotification : CFStringRef;
begin
  Result := CFStringRef(CocoaPointerConst(libUIKit, 'UIDeviceBatteryLevelDidChangeNotification')^);
end;

function UIDeviceBatteryStateDidChangeNotification : CFStringRef;
begin
  Result := CFStringRef(CocoaPointerConst(libUIKit, 'UIDeviceBatteryStateDidChangeNotification')^);
end;

procedure TForm5.Button1Click(Sender: TObject);
var
  lNSSotificationCenter: NSNotificationCenter;
  lCFString: TCFString;
  s:String;
begin
  FNotifier := TNotifier.Create;

  lCFString := UIDeviceBatteryLevelDidChangeNotification;

  lNSSotificationCenter := TNSNotificationCenter.Wrap(TNSNotificationCenter.OCClass.defaultCenter);
  lNSSotificationCenter.addObserver(FNotifier.GetObjectID,
    sel_getUid('CallBack:'),
    (NSSTR(lCFString.AsString()) as ILocalObject).GetObjectID, nil);

  lCFString := UIDeviceBatteryStateDidChangeNotification;

  lNSSotificationCenter.addObserver(FNotifier.GetObjectID,
    sel_getUid('CallBack:'),
    (NSSTR(lCFString.AsString()) as ILocalObject).GetObjectID, nil);

  TUIDevice.Wrap( TUIDevice.OCClass.currentDevice).setBatteryMonitoringEnabled(true);
end;


{ TNotifier }

procedure TNotifier.CallBack(notification: Pointer);
begin
  showmessage('Notification');
end;

function TNotifier.GetObjectiveCClass: PTypeInfo;
begin
  result:=TypeInfo(INotifier);
end;

[RWarnecke]

Hallo Lars,

vielen Dank für die Umsetzung der Events für den Batterie Status und das Level. Ich werde es gleich morgen ausgiebig ausprobieren.Gibt es dazu irgendwelche Anleitung wie man diese Sachen übersetzt oder Regeln, was man wie beachten muss ? Ich möchte ja nicht bei jedem kleinen Problem bei irgend jemand betteln gehen.

Wenn Du dazu Links hast, wäre es super, wenn Du mir noch mitteilen könntest.

[daywalker9]

Einen Link dazu habe ich nicht. Viele Dinge habe ich damals in der XE4 Beta Phase selber angelernt. Delphi Souce Code angeschaut und übertragen auf die Dinge, die ich machen wollte. Ich kann mal gucken, ob ich dazu mal etwas zusammenschreiben kann.

[RWarnecke]

Hallo Lars,

das wäre auf jedenfall super, wenn Du mal was dazu zusammenschreiben könntest. Ich würde es auf jedenfall ausgiebig ausprobieren.

[romber]

Ich versuche gerade die Notifications für BatteryLevel und BatteryState hinzukriegen mit dem Beispiel von daywalker9. Beim mir bleibt die App beim laden hängen und sturzt nach ca. 20-30 Sekunden ab. Das Problem liegt offenbar hier

Delphi-Quellcode:

lCFString := UIDeviceBatteryStateDidChangeNotification;
lNSSotificationCenter.addObserver(FNotifier.GetObjectID, sel_getUid('CallBack:'), (NSSTR(lCFString.AsString()) as ILocalObject).GetObjectID, nil);

denn sobald ich die Zeilen auskomentiere startet die App und bekommt die Notifications für BatteryLevel.
Mache ich etwas falsch? Wie bekomme ich es mit BatteryState hin?

[daywalker9]

Im FormCreate? Probiere es mal per Button click

[romber]

Zitat von daywalker9:

Im FormCreate? Probiere es mal per Button click

Ja, das ist es. Mit ButtonClick klappts, vielen Dank.
Warum ist das so? Was ist das Problem mit FormCreate? Wo liegt in dem Fall der Unterschied zwischen Click und FormCreate? In Xcode hatte ich immer bereits in applicationDidFinishLaunching die Notifications aboniert. In Firemonkey wird diese Methode lange bevor FormCreate aufgerufen.

[EDIT]
Wenn man die setBatteryMonitoringEnabled aktiviert, bevor man die Notification beantragt, klappt auch mit FormCreate.