Programmation avancée avec MIDlet Pascal

Quand nous créons un projet sous MIDlet Pascal, nous pouvons créer des unités pouvant être utilisées par d'autres unités ou le programme principal. Nous serons d'accord qu'avec tout ce que nous avons vu jusqu'ici que MIDlet Pascal permet de faire pas mal de choses. Cependant MIDlet Pascal ne permet pas d'utiliser toutes les fonctions disponibles fournies par MIDP. Vous pouvez tout de même les utiliser si vous le souhaitez en créant des librairies externes en Java. Il donc clair que vous devez savoir programmer en J2ME pour pouvoir les faire.

Certains peuvent se demander alors : quelle est la réelle différence entre les unités habituelles crées sous MIDlet Pascal et les librairies externes ? Eh bien voilà :
- ces librairies externes sont écrites en JAVA
- elles doivent être placées dans le dossier {repertoire_install_MIDletPascal}\Libs
- elles ne peuvent contenir que des méthodes
- ces méthodes ne peuvent être appelées qu'avec des types comme :

• integer
• String
• image
• RecordStore
• Command

Nous allons illustrer ce que nous venons de dire. Mettons en place une librairie externe permettant d'additionner deux nombres entiers. Nous prenons un exemple basique dans le but de montrer le fonctionnement et la mise en place de ce qui précède.
Commençons par écrire notre code java.

public class Lib_uniteext { 
  public static int somme (int a, int b) { 
     return a + b ;
  } 
}

Il ne doit pas y avoir de package dans le code Java. Le nom de la classe doit être préfixé de Lib_ et toutes les autres lettres doivent être en minuscules.

Il faudrait maintenant compiler le code. Vous devez disposez de Java Wireless Toolkit.
Lancez ktoolbar.exe, créez un nouveau projet et donnez-lui un nom. Une fois le projet créé, vous trouverez dans votre profil un répertoire j2mewtk; le projet créé se trouve dans {profil\j2mewtk\{version}\apps\projet_cree}. Dans le dossier src, créez un fichier .java nommé Lib_uniteext, mettez-y le code Java ci-dessus et sauvegardez-le. Vous n'aurez qu'à cliquer sur Build pour compiler le source, ce qui permettra de créer le fichier class. Copiez le fichier .class dans le répertoire Libs se trouvant dans le répertoire d'installation de MIDlet Pascal.

{Appel à l'unité externe crée} 
uses uniteext; 
var aff : integer; 
begin 
  showForm; 
  {l'appel se fait en mettant nom_unite.methode_static}
  aff := formAddString('somme de 2 et 9 = ' +( uniteext.somme(2,9) ) ); 
  delay(5000); 
end.

L'écran affichera somme de 2 et 9 = 11