Einzelnen Beitrag anzeigen

QuickAndDirty

Registriert seit: 13. Jan 2004
Ort: Hamm(Westf)
1.883 Beiträge
 
Delphi 12 Athens
 
#21

AW: Gerät (IOS/Android) zwecks Lizenz identifizieren

  Alt 15. Jun 2016, 15:21
OK hier ein code schnipsel für die WLAN Mac adresse für alle die es brauchen.
Delphi-Quellcode:
unit uDeviceID;

interface

Uses
  FMX.platform,
  {$IFDEF ANDROID}
    fmx.helpers.android, androidapi.JNI.GraphicsContentViewText, androidapi.jni.JavaTypes,
    androidapi.helpers,androidapi.jni.App, androidapi.jni.Net, androidapi.JNIBridge,
  {$ENDIF}
  classes, Types, FMX.types, system.Messaging;

type
  TDeviceIdentifier = class(TComponent)
  private
  {$IFDEF ANDROID}
    WifiManagerObj: JObject;
    WifiManager: JWifiManager;
    WifiInfo: JWifiInfo;
  {$ENDIF}
    FWifiMacAdresse:String;
  public
    Constructor Create(aOwner:TComponent);
  end;

implementation

{ TDeviceIdentifier }

constructor TDeviceIdentifier.Create(aOwner: TComponent);
begin
  inherited;
  {$IFDEF ANDROID}
  WifiManagerObj := SharedActivityContext.getSystemService(TJContext.JavaClass.WIFI_SERVICE);
  WifiManager := TJWifiManager.Wrap((WifiManagerObj as ILocalObject).GetObjectID);
  WifiInfo := WifiManager.getConnectionInfo();
  FWifiMacAdresse := JStringToString(WifiInfo.getMacAddress);
  {$ENDIF}
end;



end.
Andreas
Monads? Wtf are Monads?
  Mit Zitat antworten Zitat