IOS

// Déclaration
void IOS(){}

// Imports et includes
#import <UIKit/UIKit.h> // Base UIKit
#import <QuartzCore/QuartzCore.h>// Base des animations QuartzCore

// Classes
@interface WDSablier : UIAlertView
{
// Indicateur d'activité
UIActivityIndicatorView *IndicateurActivite;
}
// Propriété pour accéder à l'indicateur
@Property (nonatomic, retain) UIActivityIndicatorView *IndicateurActivite;
- (void) Ferme;
@END

// Implémentations
@implementation WDSablier
@synthesize IndicateurActivite;
// Initialisation de la boîte d'affichage
-(id)initWithFrame:(CGRect)frame
{
IF ((self = [super initWithFrame:frame]))
{
// Crée l'indicateur
self.IndicateurActivite = [[UIActivityIndicatorView alloc] initWithFrame:CGRectMake(125, 50, 30, 30)];
// Ajoute l'indicateur à la boîte d'affichage
[self addSubview:IndicateurActivite];
// Style de l'indicateur
IndicateurActivite.activityIndicatorViewStyle = UIActivityIndicatorViewStyleWhiteLarge;
// Anime l'indicateur
[IndicateurActivite startAnimating];
}
RETURN self;
}
-(void)Ferme
{
// Ferme la boîte de dialogue
[self dismissWithClickedButtonIndex:0 animated:Yes];
}
-(void)dealloc
{
// Libère
[IndicateurActivite release];
}
@END

// Variables globales
WDSablier* __SABLIER__ = nil;

void IOS_Sablier(BOOL bActif, NSString *sMessage)
{
// Si on demande l'activation du sablier
IF (bActif == Yes) {
// Si l'objet __SABLIER__ n'a pas encore été créé
IF (__SABLIER__ == nil) {
// Alloue un sablier avec le message spécifié
__SABLIER__ = [[[WDSablier alloc]
initWithTitle:@""
Message:sMessage
delegate:nil cancelButtonTitle:nil
otherButtonTitles:nil] autorelease];
}
// Affiche le sablier
[__SABLIER__ show];

// Si on demande la fin du sablier
} ELSE {
// Si l'objet __SABLIER__ est valide
IF (__SABLIER__ != nil) {
// Ferme le sablier
[__SABLIER__ Ferme];
// Libère le sablier
[__SABLIER__ release];
__SABLIER__ = nil;
}
}
}

Procedure GestionLoading(Afficher = Vrai, TexteAffiche = "Veuillez patienter")

// La fonction n'est pas disponible en simulation
SI EnModeSimulateuriOS() ALORS RETOUR

// Appel natif
IOS_Sablier(Afficher, TexteAffiche)
Multitâche(-1)

GestionLoading(Vrai,"Chargement en cours")

GestionLoading(Faux)

NSString* IOS_SysDeviceName()
{
// Renvoie l'identifiant unique de l'appareil
NSString* sysName = [[UIDevice currentDevice] uniqueIdentifier];
RETURN sysName;
}