Error 1407 sous Windows

Finalement ça n'est pas un bug sous lazarus mais un 'problème' dans ton code.

Tu as une instruction ShowMessage dans la section 'initialization' de JDRBattle. Sous linux ça passe et on voit le message sous windows ça plante certainement parce que certaines initialisations indispensables n'ont pas encore été réalisées.

Régle => Pas d'affichage graphique dans la section 'initialization' d'une fiche ou unité. Et j'ajouterais ni avant 'Application.Initialize'.

Si tu as besoin de messages pour débugger ton code tu as cette solution.

Un autre conseil pour la route : pas de chemins absolus dans ton code.

Par exemple, dans ton unité JDRGestFiles tu as ces 2 lignes :

Code:

---

1 2 3

PathM1 : string = 'c:\lazarus\jdr\datas\monsters\monster.dta'; PathBoss: string = 'c:\lazarus\jdr\datas\monsters\bosses.dta';

---

Le problème c'est que moi je n'ai pas décompressé ton archive au même endroit. Résultat dès que je clique sur explorer --> BOUM !

Une solution dans un premier temps c'est de n'utiliser que des chemins relatifs.

Code:

---

1 2 3

PathM1 : string = 'datas\monsters\monster.dta'; PathBoss: string = 'datas\monsters\bosses.dta';

---

Mais la meilleure solution : http://wiki.lazarus.freepascal.org/M...gramming_Guide en particulier la section 'Data and resource files'.

:D Bravo Batman! tu es mon super Héro :ccool:

je confirme que ça marche en retirant cette ligne showmessage

1 semaine de galère à cause d'une bétise :aie:

comment as tu fait pour trouver cette aiguille ds une botte de foin ?

heureusement que vous êtes là ;)

encore un gros merci Batyann

Problème Résolu !!

Pour trouver le bug j'ai utilisé le débogueur. J'ai constaté que l'exception était levée avant même la première instruction du programme. Donc c'était logiquement dans la section 'initialization' d'une unité.

D'ailleurs j'ai vu que tu utilisais la section 'initialization' des unités pour initialiser des variables et parfois même des variables déclarées dans une autre unité. A faire comme ça ton programme vite devenir incompréhensible...

Il vaut mieux initialiser les variables au moment de la déclaration. Par exemple ta variable City :

déclarée dans JDRConfig :

Code:

---

1 2 3 4

var i, j, index, Essai, ErrorCode, hero, city , NbBattles, IndexPerso, IndexMonster, Chest: integer;

---

et initialisée dans JDRMain :

Code:

---

City:=1;

---

Tu peux initialiser ta variable au moment de sa déclaration dans JDRConfig :

Code:

---

1 2 3 4 5 6

var i, j, index, Essai, ErrorCode, hero, NbBattles, IndexPerso, IndexMonster, Chest: integer;   City : integer = 1; // <==

---

Sans compter que beaucoup de tes variables globales n'ont pas de raison d'être : i, j, index sont typiquement le genre de variable qu'on déclare localement dans les procédures ou les fonctions quand en on a besoin.

Sans compter qu'en plus bien souvent les variables globales c'est mal.

Maintenant tu as du boulot pour ce weekend !

ha oui le debogueur , j'ai entendu parler de cette étrange bête, mais je n'ai pas encore osé m'en approcher :lol:


pour les variables globales, je fais de mon mieux, par rapport à la V1 yen a moins de 10, je ferai mieux par la suite :mrgreen:

pour l'initialisation des variables, merci du tuyau, je vais revoir ma copie

riche de ton savoir, as tu une idée du sens de cette erreur 1407 ??

Pour le 1407 c'est un code erreur de l'API win32 mais je ne connais que vaguement et n'y ai plus touché depuis 10 ans donc l'explication qui suit peut être plus ou moins carrément fause.

Quand tu veux créer un composant graphique (ex: un bouton) sous windows tu passes par un appel à la fonction CreateWindowEx qui prend tout un tas de paramètres. Parmi ces paramètres tu doit passé le nom d'une classe de fenêtre que tu as du auparavant déclarer par un appel à RegisterClassEx.

Sous lazarus c'est 'Application.Initialize' qui appelle RegisterClassEx. Mais 'Application.Initialize' n'est appelé qu'après que toutes les sections 'initialize' des unités aient été appelées. Hors ton ShowMessage provoquait un appel à CreateWindowEx avant l'appel de RegisterClassEx donc tu essayais de créer un composant avec une classe de fenêtre non encore enregistrée ce qui provoquait une erreur "classe de fenêtre introuvable" qui porte le code 1407.

Mais bon Lazarus te permet de ne pas avoir à mettre les mains dans le camboui de l'API Win32 et c'est beaucoup plus simple.

Citation:

---

Envoyé par batyann811

Un autre conseil pour la route : pas de chemins absolus dans ton code.

Par exemple, dans ton unité JDRGestFiles tu as ces 2 lignes :

Code:

---

1 2 3

PathM1 : string = 'c:\lazarus\jdr\datas\monsters\monster.dta'; PathBoss: string = 'c:\lazarus\jdr\datas\monsters\bosses.dta';

---

Le problème c'est que moi je n'ai pas décompressé ton archive au même endroit. Résultat dès que je clique sur explorer --> BOUM !

Une solution dans un premier temps c'est de n'utiliser que des chemins relatifs.

Code:

---

1 2 3

PathM1 : string = 'datas\monsters\monster.dta'; PathBoss: string = 'datas\monsters\bosses.dta';

---

Mais la meilleure solution : http://wiki.lazarus.freepascal.org/M...gramming_Guide en particulier la section 'Data and resource files'.

---

Salut

Je profite de ce post pour dire que les chemins relatifs sous Vista ne fonctionnent pas. La solution que j'ai adopté (sous Delphi) est :

Code:

---

ExtractFilePath(Application.ExeName)+'moncheminrelatif\...\info.txt'

---

Bonne chance

Edit : j'avais pas regardé le lien :oops:

Application.exeName c'est le nom du projet compilé ?

dans mon cas c'est ProjetJDR.exe , mais si je mets ça, il dit ne pas le connaitre

Non Application.exeName c'est 'Application.exeName' en toutes lettres. ;)

ben j'avais essayé et c'est pareil:

Code:

---

1 2 3

Const PathM1: string = ExtractFilePath(Application.ExeName)+'datas\monsters\monster.dta';

---

C'est normal, tu ne peux pas appeler une fonction pour donner une valeur à une constante.

Tu dois faire un truc du genre :

Code:

---

1 2 3

const PathM1: string = 'datas\monsters\monster.dta';

---

Puis quand tu ouvres ton fichier un truc du genre:

Code:

---

1 2 3

AssignFile(myFile, ExtractFilePath(Application.ExeName)+PathM1); Reset(myFile);

---

Mais le mieux c'est d'écrire une fonction qui à partir d'un chemin relatif te donne un chemin absolu vers un fichier de donnée et de mettre cette fonction dans une unité.

Code:

---

1 2 3 4 5

function PathTo(const DataName: String) : String; begin Result:=ExtractFilePath(Application.ExeName)+DataName; end;

---

Comme ça quand tu as besoin de charger un fichier de donnée :

Code:

---

1 2	AssignFile(myFile, PathTo(PathM1) );

---

Ensuite tu peux adapter ta fonction PathTo en fonction de l'OS (Windows, Linux, Mac OSX, ...).

mais quand tu fais ça:

Code:

---

1 2 3 4

function PathTo(const DataName: String) : String; begin Result:=ExtractFilePath(Application.ExeName)+DataName; end;

---

tu fais exactement la même chose

variable string := Extract... + PathRelatif

pourtant quand je fais:

Code:

---

AssignFile(Persos, ExtractFilePath(Application.ExeName)+PathTeam);

---

et bien ça ne marche pas, il me dit ne pas connaitre Application :mrgreen:

j'ai du encore faire un truc tordu :oops:

Application est déclaré dans l'unité Forms de la LCL donc tu doit avoir un 'uses ..., Forms, ...;' dans la ou les unité ou tu veux t'en servir.

HAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA :lol:

bien je pense qu'il est temps de quitter ce sujet , pour éventuellement reprendre le fil initial du RPG, j'avoue avoir un peu décroché à cause de cette panne due à mon ignorance.

pour moi ce sujet est RESOLU :ccool:

Salut

Ptite info :
Application.ExeName retourne le nom de l'exe complet :

Code:

---

'C:\Jesaispasquoi\ProjetJDR.exe'

---

ExtractFilePath renvoie seulement le chemin de ce qui est passé en argument, soit

Code:

---

'C:\Jesaispasquoi\'

---

Ensuite, il suffit de coller ca avec ton chemin relatif, et le tour est joué.

Bonne chance ;)