Création d'une variable string à partir d'une DLL

Ce que j'aimerais, ce serait d'avoir accès à une procedure du genre CallBack, mise à disposition par Panoramic. En appelant cette procédure, je lui passerais l'adresse d'une structure contenant les informations suivantes:

Code:

1 mot de 32 bits contenant la taille de la structure en octets (soit 16)
1 mot de 32 bits contenant la longueur en octets de la chaîne à créer
1 mot de 32 bits contenant un l'adresse d'une chaîne de caractères contenant le nom de la variable à créer
1 mot de 32 bits recevant la valeur de adr(...)

Cette procédure créerait la variable Panoramic dont le nom est pointé par le troisième mot de la structure, en allouant un nopbre d'espaces selon la valeur du deuxième mot de la strcture. Ceci devrait simuler la commande

Code:

nouveau$ = string$(longueur%," ")

La procédure retournerait la valeur de adr(nouveau$) dans le quatrième mot de la structure. D'ailleurs, si cette variable existe déjà, cette procédure devrait remplacer la variable existante par la nouvelle, exactement comme le ferait la commande ci-dessus.

Ceci permettrait d'aller beaucoup plus loin dans l'utilisation conviviale de DLLs écrites par nous (évidemment sans incidence pour l'utilisation des DLLs externes comme celles de Windows).

Pour donner l'adresse de cette procédure, je sais bien qu'il n'y a pas de mécanisme simple et automatique. Mais je propose qu'un message WM_USER+3001 envoyé à la form 0 pourrait retourner cette adresse de la manière suivante:

Citation :

var
 aCallBackprocedure: integer;
begin
...
SendMessage(MainFormHandle,WM_USER+3001,0,@aCallBackprocedure)

Ceci permettrait de faire cette demande une fois, au chargement del a DLL, et de garder cette valeur dans une variable globale accessible à tout moment.