Discussion :

[gcvoiron]

Bonjour,

Je suis actuellement en stage dans le cadre de mon BTS Informatique et Réseau dans une petite entreprise.
Je n'ai aucune connaissance en Delphi et dois analyser pourquoi les programmes dévellopés en Delphi ne passent pas sous Vista.
J'ai relevé quelques erreurs et exécuté le mode "Pas-à-pas" pour trouver les lignes défaillantes. Pouvez-vous m'aider à les réparer ?

Merci d'avance.

PS : J'utilise Delphi 7.

"Le projet gestion_radio.exe a provoqué une classe d'exception ERangeError avec le message 'Erreur de vérification d'étendue. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer."

Code :

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

Attributes :=FileGetAttr(K.fichier[I]);

"Le projet gestion_radio.exe a provoqué une classe d'exception EAccessViolation avec le message 'Violation d'accès à l'adresse 0078D3CD dans le module 'gestion_radio.exe'. Lecture de l'adresse 000000B4'. Processus stoppé utilisez Pas-à-pas ou Exécuter pour continuer."

Code :

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

for i := 0 to f_mixer.Destinations[1].Connections.Count-1 do begin

"Violation d'accès à l'adresse 0078D3CD dans le module 'gestion_radio.exe'.

Code :

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

FServeurHTML.Demarrer;

[ShaiLeTroll]

C'est bien vaste comme sujet !

Première Chose à faire

tu encadre ces lignes comme ceci

Code :

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

1
2
3
4
5
6
 
try
  Attributes :=FileGetAttr(K.fichier[i]);
except
  on E: Exception do raise ExceptClass(E.ClassType).CreateFmt('Error on FileGetAttr : "%s"', [E.Message]);
end;

Ainsi tu pourras lancer le programme en Dehors de Delphi, et voir si l'exception est bien sur ces lignes et non pas ailleurs (parfois c'est le bloc d'avant)

sinon FileGetAttr encaspule l'API GetFileAttributes, voir les specifs de cette fonction en Vista

le ERangeError peut aussi se produire sur un Tableau, i pouvant être en dehors du tableau ?


Ensuite pour les violations d'accès, on a pas le type des objets que tu manipules, Form, ActiveX, ... difficile de trouver une réponse juste, ... pour la boucle Destination, découpe le code pour accèder à chaque membre étape par étape

pour le second, consulte la doc de la lib, il se peut qu'il y a des DLL qui ne soit pas porté sur Vista ...

[gcvoiron]

Merci pour la réponse.
En bidouillant, j'ai vu que si je déclarais "Attributes" en Integer au lieu de le déclarer en Word, je n'ai plus d'erreur...
Pour la boucle for, je ne comprends pas tout :

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
constructor TswAudio_Mixer.create(owner: Tcomponent);
Var i :Integer;
begin
  f_mixer := TAudioMixer.Create(owner);
  f_mixer.MixerId := 0;
  f_InNames := TStringList.Create;
  f_InNames.Sorted := False;
  f_OutNames := TStringList.Create;
  f_OutNames.Sorted := False;
  for i := 0 to f_mixer.Destinations[0].Connections.Count-1 do begin
    f_OutNames.Add(f_mixer.Destinations[0].Connections[i].data.szName);
  end;
  for i := 0 to f_mixer.Destinations[1].Connections.Count-1 do begin
    f_InNames.Add(f_mixer.Destinations[1].Connections[i].data.szName);
  end;
end;

La première boucle for s'execute sans problème. La seconde coince. Je pense donc que c'est une erreur de tableau. Destinations[] doit être dépassé, mais je ne sais comment la résoudre.

Qu'en pensez-vous ?

Merci d'avance.

[HumanTool]

Bonjour,
Ton tableau Destinations à combien d'entrée ? Vérifit avec

Code :

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

f_mixer.Destinations.Count

[gcvoiron]

Bonjour,
Ton tableau Destinations à combien d'entrée ? Vérifit avec

Code :

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

f_mixer.Destinations.Count

Je n'ai pas bien compris ce que je dois faire...

[HumanTool]

Dans le pas à pas, au à la ligne

Code :

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

for i := 0 to f_mixer.Destinations[0].Connections.Count-1 do begin

tu appuis sur les touches CTRL + F7 et tape

Code :

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

f_mixer.Destinations.Count