Discussion :

[fbalien]

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

/^@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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SergioMaster]

Bonjour,

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

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 ?

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

[fbalien]

Bonjour SergioMaster

merci pour ta réponse
surtout le lien vers le tableau de IOUtils.Tpath
je vais regarder çà

[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é)

[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

[SergioMaster]

@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)

[pprem]

Merci pour le RSP

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.

[SergioMaster]

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

voilà, c'est fait

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 ?

[pprem]

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

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"

[SergioMaster]

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

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

[fbalien]

Bonjour

merci pour ce temps passé a tester
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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