Aktuelles Vorgehen für Vibration auf IOS

[AuronTLG]

Moin,

ich habe in meiner App eine Stelle, an der ich eine Vibration auf dem Smartphone auslösen will.
Für Android war das kein Problem, für IOS hingegen schon.

Alles was ich zu dem Thema finde läuft auf das hier hinaus:
https://community.idera.com/develope...monkey-and-xe8

Das scheint jedoch relativ alt zu sein und führt bei mir zumindest dazu, dass sich der Compiler an der Externaldefinition von dieser Stelle hier stört:

Code:

Procedure AudioServicesPlaySystemSound( inSystemSoundID: integer ); Cdecl; External libAudioToolbox Name _PU + 'AudioServicesPlaySystemSound';

Daher meine Frage: Gibt es eine zeitgemäße Möglichkeit, ein Iphone vibrieren zu lassen oder ist das hier angegebene Beispiel immer noch der aktuelle Standard?

[Rollo62]

Mache ich auch noch so, ich suche allerdings auch eine Möglichkeit die Zeit einzugeben.

Es gibt womöglich andere API von iOS, habe aber noch nicht danach gesucht.
Also es gäbe da noch sowas (ungetestet):
https://stackoverflow.com/questions/...vibrate-length

Edit:
Auch das ist noch interessant.

[AuronTLG]

Alles klar.

Dann wäre meine verbleibende Frage, wie genau ich es hinbekomme, dass das bei mir läuft.

Ich habe bisher nicht viel mit External-Deklarationen zu tun gehabt, weswegen es gut möglich ist, dass ich einen bescheuerten Fehler drin habe, aber da ich im Prinzip den Code einfach rüberkopiert habe, wundert es mich trotzdem etwas.

Ich habe die AudioToolbox sowieso schon als Framework in meiner SDK (11.2) gehabt.
Die entsprechenden Uses habe ich ergänzt sowie diesen Code hier übernommen:

Code:

Const
  libAudioToolbox        = '/System/Library/Frameworks/AudioToolbox.framework/AudioToolbox';
  kSystemSoundID_vibrate = $FFF;

Procedure AudioServicesPlaySystemSound( inSystemSoundID: integer ); Cdecl; External libAudioToolbox Name _PU + 'AudioServicesPlaySystemSound';

Dabei stört sich mein Compiler an der External-Deklarations-Stelle und beschwert sich

Zitat:

Erwartet ':', aber Bezeichner 'libAudioToolbox' erhalten

Meine Delphi-Version ist, wie man sehen kann, die 10.2.

[Rollo62]

Delphi-Quellcode:

Uses
    Macapi.CoreFoundation
  ;

Const
  libAudioToolbox        = '/System/Library/Frameworks/AudioToolbox.framework/AudioToolbox';

type
    SystemSoundID                  = UInt32;

const
    CSnd_kSystemSoundID_vibrate = $FFF;

    CSnd_peek      = SystemSoundID(1519);
    CSnd_pop       = SystemSoundID(1520);
    CSnd_cancelled = SystemSoundID(1521);
    CSnd_tryAgain  = SystemSoundID(1102);
    CSnd_failed    = SystemSoundID(1107);



procedure AudioServicesPlaySystemSound( inSystemSoundID: integer ); Cdecl; External libAudioToolbox Name _PU + 'AudioServicesPlaySystemSound';

procedure DoVibrate(const ATimeMS: Integer);
begin
    AudioServicesPlaySystemSound( CSnd_peek );
end;

[AuronTLG]

Argh, ich hab die Deklaration an die falsche Stelle gepackt.
Jetzt ist es offensichtlich warum es nicht funktioniert...

Vielen Dank, jetzt hat es geklappt.