Discussion :

[colorid]

Bonjour,

J'installe sur un PC client le logiciel que je viens de développer sur mon PC de développement. Problème :
Au démarrage dans le OnCreate de la forrm principale il doit reconnaître les répertoires avec lesquels il va travailler par le code suivant :

Code :

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

1
2
3
  CurExePath:= extractFilePath(application.exename);
  CurVerPath:= CurExePath+'VER\';
  CurArboTypeFile:= CurExePath+'DATA\';

Comme l'exécutable sur le PC client m'adresse une erreur "fichier introuvable" j'explore ce qui se passe avec les sources du logiciel sous Delphi que j'ai installé provisoirement sur le PC client.
Surprise : extractFilePath(application.exename) ne trouve pas le chemin sous lequel il est installé sur le PC client mais il conserve en mémoire celui sous lequel il est installé sur mon PC de développement. Bien entendu ces chemins sont différents et explique l'erreur fichier introuvable !

Qui peut venir à mon secours ? sans doute cette erreur est due à un paramétrade de l'EDI de delphi sur le PC de développement ???

Ne me laissez pas mourir idiot !

Info utiles :
Delphi 2007 sur Windows vista sur le PC de développement
Delphi 2007 sur Windows XP sur le PC client

[ShaiLeTroll]

As-tu un chemin de démarrage ?
soit via un Raccourci
soit via l'IDE - menu Executer, Paramètrs...

Que renvoie ParamStr(0) ?
Ainsi que ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  Path: AnsiString;
begin  
  SetLength(Path, MAX_PATH);
  ZeroMemory(@Path[1], MAX_PATH);
  GetModuleFileNameA(HInstance, @Path[1], MAX_PATH);
 
  ShowMessage(Path);

[colorid]

Dans propiété du racourci c'est le bon chemin sur le PC client

[colorid]

Comment appeler ParamStr(0) ?
Sous Delphi sur le PC Client j'ai voulu indiquer le chemin dans Projet/Option/Répertoires...

Nouvelle surprise ! C'est la structure des répertoires du PC de développement qu'il a en mémoire et pas la structure des fichiers du PC hôte !!!
Je suis quand même arrivé à replacer les choses correctement en indiquant le chemin de l'exe et des sources en reoartant de la racine.

Et encore une nouvelle surprise !!! Je ne peux pas le compiler en mettant un point d'arrêt sur la première ligne de OnCreate, il n'y va même pas. D'ailleurs j'ai supprimé l'exécutable que j'avais recopié à partir du PC de développement car il était toujours à la date de dernière compilation. Eh bien en recommançant une compilation sur le PC client pas de nouvel exécutable Même en ayant changé les chemins dans projet/option/...

[ShaiLeTroll]

Comment appeler ParamStr(0)

ParamStr c'est une fonction

Je ne peux pas le compiler en mettant un point d'arrêt sur la première ligne de OnCreate, il n'y va même pas.

Tu as bien choisi la configuration Debug, sous 2007, tu faire tes propes configuration, en général, une Debug et une Release
Pour les chemins, tu devrais toujours utiliser des chemins relatifs ou des variables d'environnement.
C'est vrai que sous D7, le DPR c'était bien plus souple que le DProj de 2007 !

L'exe ne se génère pas ? tu es sûr des chemins ?
Modifie la Base et non directement les sous-configuration Debug\Release

[colorid]

Delphi est bien installé sur le PC Client et même enregistré !
Or en cliquant sur le projet il n'appele pas Dephi !

Je suis completement coincé !
1) J'ai supprimé l'exécutable recopié
2) J'ai supprimé toute liaison avec le PC de développement y compris de disque amovible qui m'a permis de recopier les sources et l'exécutable
3) Avec les sources je ne peux pas recompiler l'exécutable.

Au secours que se passe-t'il ?

[Lung]

L'exe ne se génère pas ? tu es sûr des chemins ?

+1
Tu as vérifié les chemins de sortie du projet ?

[Paul TOTH]

Surprise : extractFilePath(application.exename) ne trouve pas le chemin sous lequel il est installé sur le PC client mais il conserve en mémoire celui sous lequel il est installé sur mon PC de développement.

c'est tout simplement impossible.

Code :

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

1
2
3
4
5
 
function TApplication.GetExeName: string;
begin
  Result := ParamStr(0);
end;

ParamStr(0) étant le nom complet du programme actif et non un paramètre quelconque de compilation dans l'IDE