[Lazarus] Access violation

Bonsoir,

J'ai une "violation d'access" quand je lance ma petite applis. Mais l'origine (dll, programme externe ...) n'est pas mentionnée. Il n'y a rien dans les journaux d'évenements (j'allais dire "normal" :mouarf:) et Lazarus ne logue évidememnt pas les événement survenus hors de son contexte à lui (le pb se traduisant alors avec extrémement explicite "sigsegv" :aie:).

Si quelqu'un connait un outil pour ca, ca 'arrangerais.
Merci

Bonjour,

Je pari a 10 contre 1 que tu utilises un objet non alloué !

@+

Bonjour Chris37 et meci de ta réponse

En fait c'est possible, mais je n'ai créer "directement" aucun objet.
J'ai un fichier texte que je compile avec lazres, j'ajoute la directive dans la rubrique initialization de unit1 :

Code:

---

1 2 3 4 5

initialization {$I unit1.lrs} {$I banksql.lrs} end.

---

je rapelle la ressource ainsi :

Code:

---

1 2 3 4 5 6

begin fileSQL := (extractfilepath(application.exename)+'bank.sql'); showmessage(fileSQL); tMemo.Lines.Add(lazarusresources.Find('banksql').Value); end;

---

ca marche qu'à ligne showmessage...

Je continue mes tests et recherche, mais je me demande si Vista n'y serait pas pour quelque chose :(

ca marche, maintenant.
Je n'avais pas compris que les ressources devaient "taguées" et que c'est le marquage qu'il fallait appeler ;-)

Résolu, donc.

Salut,

Une question !

C'est une requête sql que tu places dans la ressource ?

Citation:

---

Envoyé par chris37

Salut,

Une question !

C'est une requête sql que tu places dans la ressource ?

---

Non, 56 :)

Mais j'ai fait des progrès : je met dans chaque fichier un sous ensemble cohérent (par exemple tout ce qui concours à la création de la base ou la requête nécessaire à un ajout). Je les nomme en fonction du projet et du type (SQLxxx pour le SQL, ICOxxx pour les icones) et je crée un filelist. Enfin, je fait un script qui doit me le créer, en prenant des arguments tels que SQL*.sql, ICO*.png ...

Le script bash est en cours d'écriture ;-)

ok merci

Bon courage alors

Cordialement,
Chris

J'ai le même problème qui apparait dans mon application quand je compile.
Le problème semble venir des méthodes d'un objet : la procedure objet.create() fonctionne correctement dans le programme principal mais les autres procedures et fonctions comme objet.destroy ou objet.afficher dans exemple font planter le programme avec "sigsegv" comme message du debogger et acces violation si le debogger est desactivé.

Le programme principal est de la forme

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

unit program1;   {$mode objfpc}{$H+} interface   uses Classes, SysUtils,unit2;   type   { TForm1 }   TForm1 = class(TForm) Edit1: TEdit; ... end; var Form1: TForm1; monobjet:objet;   implementation { TForm1 } ...   initialization {$I fenetre1.lrs} end.

---

et l'unité de la forme

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 30 31 32 33 34 35 36 37 38 39 40

unit unit2;   {$mode objfpc}{$H+}   interface   uses Classes, SysUtils;     Type objet = class public a,b,b:real; constructor Create (c,d,e:string); destructor destroy ; override; procedure afficher (var d,e,f:string); end;   implementation   constructor objet.Create (d,e,f:string); begin a:=strtofloat(d); b:=strtofloat(e); c:=strtofloat(f); end;   destructor objet.destroy ; begin end;   procedure afficher (var d,e,f:string); begin d:=floattostr(a+b); e:=floattostr(a+b+c); f:=floattostr(a-c); end;   end.

---

si le problème vient de l'allocation de l'objet, que faut rajouter pour corriger cela ?

Citation:

---

Envoyé par Comete338

J'ai le même problème qui apparait dans mon application quand je compile.

---

Bonjour,

Cette erreur me semble générique et ne permet pas vraiment le debug. Pour en savoir plus sur l'origine du problème quand ca se produit, je réninitialise le debugger et je lance l'appli compilée directement depuis le repertoire du projet. C'est comme ca que j'ai pu faire le lien avec les erreurs que j'ai rencontré.

Bonne chasse au bugs ;-)