Discussion :

[colorid]

Bonjour à tous,

Gros problème, j'exécute une fonction de DLL et curieusement si après l'appel j'ajoute une ligne de code de type composant visible := true je déclenche un message d'erreur de violation d'accès !!!! Si cette ligne de code se trouve avant l'appel la fonction de la DLL s'exécute sans message d'erreur.

Quelqu'un peut-il m'expliquer où est l'erreur ?

Merci à tous

[ShaiLeTroll]

Sans code c'est difficile mais je pense que ta fonction de ta DLL modifie une zone mémoire, peut-être le this en cours, ce qui provoque par la suite un bon gros délire !
Ou alors le Sender, il est souvent dans EAX dans un gestionnaire type OnClick, si ton Sender c'est un bouton (le fameux composant) ou alors Self, ça fait mal aussi !

J'ai déjà eu des trucs affolants avec une DLL Sybase, impossible de l'utiliser correctement sans VA et il arrivait à trouver des valeurs chaines on ne sait comment (alors que NULL passé pour un char*)

[e-ric]

Salut

C'est un peu court pour juger, un extrait du code serait utile.
La référence du composant devient manifestement invalide.
Sais-tu ce que fait la fonction appelée dans la DLL ? Est-ce qu'elle libère des objets ou modifie une référence d'objet ?

cdlt

[Pascal Fonteneau]

Tu peux aussi tester la DLL dans un autre projet, si le problème persiste ,la DLL est surement en cause. Sinon, il est possible que les problèmes viennent de ton source principal,par exemple ecriture à un incide impossible pour un poste d'un tableau, dans ce cas l'exception arrivera lors de l'acces a la partie de code corrompue par ton erreur initiale. J'ai eu ce souci hier ;-)

a+
Pascal

[Andnotor]

Ça peut simplement être un problème de convention d'appel et de corruption des registres : stdcall.

[Paul TOTH]

Ça peut simplement être un problème de convention d'appel et de corruption des registres : stdcall.

+1, c'est généralement une différence de convention d'appel qui foire la pile.

[colorid]

d'abord les prototypes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  // initialisation des limites cubiques
  function quantRGB(Seg: TpkSegRGBCfgPtr): Integer;stdcall;external DLLName;
 
 
  // segmentation cubique sur image
  function SegRGB(Seg:TpkSegRGBCfgPtr;imageName: PAnsiChar; TxtName: PAnsiChar;
                  ICCPtr: TProfil_icc_Ptr; W: TVecDouble): Integer;
                        stdcall;external DLLName;
 
 
  // tri des segments en % décroissant
  function Trie( Seg: TpkSegRGBCfgPtr) : integer;stdcall;external DLLName;

le code des appels à ces fonctions :

Code :

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

1
2
3
4
5
6
  InitSegmentationOk(1,1,1.0,false,True,0,0,0,crSeg);
  Ok:= (quantRGB(@crSeg)=0);
  Ok:= Ok and (SegRGB(@crSeg,PChar(ImgName),PChar('INFO.txt'),@crProfile,W)=0);
      ShowMessage(format('%.d', [crSeg.SegVec[49].PixSize]));
  Ok:= Ok and ( Trie(@crSeg)=0);
  if Ok then DisplaySegmentation;

Remarques :

1) Ce code fonctionne sans problème dans une autre version du logiciel développé avec la même unité de déclaration des prototypes
2) Si je supprime la ligne 4 du dernier extrait de code (suppression du showmessage) l'erreur se produit !
3) La DLL a été développée en C

Que faire ?

[ShaiLeTroll]

Autre version du logiciel ?
Changement de Delphi entre temps ?

Ton PChar semble compatible avec du PAnsiChar, donc une version Ansi de Delphi comme la 7 ?

stdcall ? pas cdecl ?

Ton problème c'est la suite de Erreur privileged instruction, où tu avais utiliser du String avec une DLL !
Si cela se trouve cela fonctionne ailleurs parce que tu avais de la chance !

Une Violation d'Accès c'est retord, il suffit d'ajouter une variable pour décaler tout en mémoire et cela laisse de la place pour que la DLL fasse n'importe quoi sans que l'on sache et parfois ça déborde où il ne faut pas et l'on s'en rend compte !
Du coup, le "cela fonctionne ailleurs" n'est pas forcément si vrai que cela !

[tourlourou]

Quid de simplifier le code pour éviter que le compilo ne s'emmêle ?

Code :

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

1
2
iRet := SegRGB(@crSeg,PChar(ImgName),PChar('INFO.txt'),@crProfile,W);
Ok:= Ok and (iRet=0);

car il se pourrait que le ShowMessage l'oblige à loger autrement les valeurs dans ses registres, ce que ferait pê aussi sa décomposition.

[colorid]

Merci ShaiLeTroll

Avec cdecl pas de problème

Merci à tous