problème GetModuleName sous linux

Version imprimable

07/02/2021, 19h54
fbalien

problème GetModuleName sous linux
Bonjour

je viens de galérer un moment avec un dev sous linux a cause du comportement de GetModuleName
GetModuleName semble ajouter un #0 dans la chaine de retour
si on lit un fichier ou on enregistre le résultat de GetModuleName en ajoutant .fblog cela donne la chose suivante

Citation:

/^@f^@b^@t^@e^@s^@t^@f^@b^@l^@o^@g^@l^@i^@n^@u^@x^@^@^@.^@f^@b^@l^@o^@g^@"^@^M^@

il y a ^@^@ entre le nom du module name '/fbtestfbloglinux' et le '.fblog' que j'ajoute
le code qui génère le soucis est

Code:

strTemp := GetModuleName(0)+ '.fblog';

Cela forcement pose des soucis lorsque je cherche a générer ou accéder a un fichier
Mais cela plante l'IDE si je fait un Writeln du resultat
pour contourner le soucis j'utilise ceci
Code:

1 2 3 strTemp := GetModuleName(0) ; SetLength(strTemp,length(strtemp)-1); strTemp := strTemp + '.fblog';
est ce un bug ou faut il éviter d'utiliser GetModuleName sous Linux ?
Embarcadero® RAD Studio 10.4 Version 27.0.38860.1461
08/02/2021, 07h29
SergioMaster

Bonjour,

GetModuleName(0) je ne connaissais pas, il est d'ailleurs indiqué que

Citation:

Avertissement : Sous MAC OS, GetModuleName ne réussit pas toujours.

c'est peut-être le cas pour d'autres OS.
D'autre part, les résultat est peut-être aussi dû à un encodage particulier ?

Citation:

est ce un bug ou faut il éviter d'utiliser GetModuleName sous Linux ?

AMHA c'est un bug, cette fonction appelle GetModuleFilename qui est un appel à une API windows , pourtant pas de directives de compilation {$IFDEF WINDOWS} mais je n'ai peut-être pas assez fouillé dans le source.

J'aurais simplement utilisé paramstr(0) qui lui semble fonctionner dans tous les OS.
Néanmoins pour du multiplateforme j'aurais utilisé l'unité IOUtils.Tpath et obtenu un répertoire particulier (pas forcément celui de l'application, souvent protégé)
ce tableau en donne une liste précise
08/02/2021, 09h17
fbalien

Bonjour SergioMaster

merci pour ta réponse
surtout le lien vers le tableau de IOUtils.Tpath
je vais regarder çà
08/02/2021, 10h08
pprem

J'sais pas si c'est officiellement fonctionnel, mais si tu as un programme d'exemple n'hésite pas à ouvrir un ticket d'incident. Au pire ils répondront qu'il n'est pas pris en charge pour le moment.

Pour le #0 c'est sans doute parce que Linux a historiquement des chaines en ASCIIZ. Ca aussi, si tu as un programme d'expie, tu peux le faire remonter parce qu'à mon avis c'est passé à la trappe dans certains modules de l'OS. (après ça dépend aussi du type de chaine utilisé)
09/02/2021, 22h46
fbalien

Bonsoir
@pprem : ticket ouvert RSP-32373
@SergioMaster : si je vais dans le répertoire contenant le programme et que je l’exécute paramstr(0) me renvoie que le nom du programme
contrairement à GetModulename(0) qui lui me renvoie le chemin complet peu importe comment est exécuté le programme
10/02/2021, 07h46
SergioMaster

Citation:

Envoyé par fbalien

@SergioMaster : si je vais dans le répertoire contenant le programme et que je l’exécute paramstr(0) me renvoie que le nom du programme
contrairement à GetModulename(0) qui lui me renvoie le chemin complet peu importe comment est exécuté le programme

Il va falloir que je prenne le temps d'essayer autrement que sur une machine virtuelle (wsl)
10/02/2021, 09h17
pprem

Merci pour le RSP

Citation:

Envoyé par fbalien

si je vais dans le répertoire contenant le programme et que je l’exécute paramstr(0) me renvoie que le nom du programme

Me souvenais plus de cet effet de bord, mais effectivement, ce sont les morceaux de la ligne de commande, donc c'est logique.

Il y a des chances que System.IOUtils.TDirectory.GetCurrentDirectory ne soit pas non plus d'une grande aide si le programme a été lancé d'ailleurs.

Par contre tu as peut-être une chance avec System.IOUtils.TPath.GetFullPath sur paramstr(0) qui devrait recalculer le chemin du programme.
10/02/2021, 16h05
SergioMaster

1 pièce(s) jointe(s)

Citation:

Envoyé par SergioMaster

Il va falloir que je prenne le temps d'essayer autrement que sur une machine virtuelle (wsl)

voilà, c'est fait
Pièce jointe 590639
finalement getmodulename serait mieux.
Toutefois, un fichier log, je le mettrais dans les documents de l'utilisateur, pas où se trouve le programme

Il y aurait donc un problème en mode console et non s'il s'agit d'un programme GUI ? :roll:
10/02/2021, 16h26
pprem

Citation:

Envoyé par SergioMaster

Il y aurait donc un problème en mode console et non s'il s'agit d'un programme GUI ? :roll:

L'interface graphique fait un équivalent du ShellExecute() et passe donc le chemin complet du fichier sur lequel on clique à l'interpréter de commande. ça passe de la même façon sous Windows.

En ligne de commande directe on n'a pas cette contrainte : appels en absolu, en relatif ou directement l'"exe"
10/02/2021, 16h36
SergioMaster

lancé depuis le terminal j'ai quand même

Citation:

Paramstr0 ./Project110
getmodule /home/serge/PAServer/scratch-dir/serge-WSL/Project110/Project110

Bonjour

merci pour ce temps passé a tester :D
j'ai trouvé la cause du dysfonctionnement
c'est le fait que j'ai un ç dans le chemin du programme
en échangeant avec le support qui n'a pas réussi à reproduire le problème
je me suis souvenu d'un autre case ouvert pour un soucis de point d'arrêt qui ne fonctionne pas en windows 64bits sur mon pc perso mais qui fonctionne sur celui du taf
hors chez moi le user c'est françois donc il y a un ç dans le chemin du compilateur
j'ai fait quelques test sur ma vm linux
avec le code suivant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 program Project1; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils, system.classes; var fichier : TStreamWriter; strTemp : string; begin try { TODO -oUser -cConsole Main : Insérer du code ici } fichier := TStreamWriter.Create('/tmp/test.txt',true); strTemp := 'dd' + GetModuleName(0) + 'dd' +#10; fichier.Write(strTemp ); strTemp := 'dd' + ParamStr(0) + 'dd' +#10; fichier.Write(strTemp ); fichier.Free; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end.
1- dans le répertoire par défaut /usr/bin/PAServer-21.0/scratch-dir/françois-ordinateur003/Project1/
résultats
Getmodulename : dd/usr/bin/PAServer-21.0/scratch-dir/françois-ordinateur003/Project1/Project1^@dd
Paramstr : dd/usr/bin/PAServer-21.0/scratch-dir/françois-ordinateur003/Project1/Project1dd

2- /root/françois/
résultats
Getmodulename : dd/root/françois/Project1^@dd
Paramstr : dd/root/françois/Project1dd

3- /root/
résultats
Getmodulename : dd/root/Project1dd
Paramstr : dd/root/Project1dd