Programmation avancée avec MIDlet Pascal

MIDlet Pascal permet à partir d'un téléphone d'envoyer un message vers un autre téléphone. Vous aurez besoin pour ce faire de :

• smsStartSend qui démarre l'envoi d'un message SMS (Short Message Service). Cette fonction retourne true si le message a été bien envoyé au système de gestion d'envoi de messages et qu'un autre message n'est pas en cours d'envoi. L'adresse de destination doit être sous la forme 'sms://<numro-de-telephone>'. Par exemple sms://+33606060606'

function smsStartSend(destination: string; message:string): boolean;

MIDlet Pascal permet l'envoi de messages SMS en utilisant WMA (Wireless Messaging API) de J2ME. Notez que ceci ne marche que sur les téléphones compatibles.

• smsIsSending qui retourne true si le système est en attente d'envoi de sms et false sinon

function smsIsSending: boolean;

• smsWasSuccessfull retourne true si l'envoi du dernier sms à réussi. Si la fonction retourne false cela voudra dire que :
  1. soit le téléphone mobile ne supporte pas l'envoi de messages en utilisant les MIDlets
  2. soit l'adresse de destination du message est invalide
  3. soit l'opérateur téléphonique refuse de transmettre le message.

function smsWasSuccessfull: boolean;

Exemple

begin 
  // Démarre l'envoi du sms 
  if not smsStartSend('sms://+33606060606', 'Bonjour!') then 
  		halt; 
   
  // On attend que le message soit envoyé 
  while smsIsSending do  
    delay(100); 

  // Tester si l'envoi à réussi 
  if not smsWasSuccessfull then 
      halt;     
end.

L'envoi de messages à travers MIDlet Pascal n'exclut pas le fait d'avoir du crédit suffisant avant tout envoi de message SMS.