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

[gcvoiron]

La boucle for étant dans un fichier 'UswVoip_AudioMixer' qui est inclu dans le projet, je n'arrive pas à faire le CTRL+F7 quand il le faut...
Il n'est pas possible de faire un genre de printf("%d",Destinations[]) en Delphi afin d'afficher les valeurs du tableau ?

[Lung]

Code :

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

ShowMessage(IntToStr(f_mixer.Destinations.Count));

[gcvoiron]

Désolé, je n'avais pas compris l'utilisation de CTRL+F7.
Alors, dès que je commence ma boucle, la valeur de f_mixer.Destinations.Count est "[Processus non accessible]".

[HumanTool]

Dans la déclaration de l'objet TAudioMixer de quel type est Destinations ?

[ShaiLeTroll]

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...

Non pas de Bidouille c'est un DWord donc un integer en aucun cas un Word, c'est tout à fait normal !

[gcvoiron]

Dans la déclaration de l'objet TAudioMixer de quel type est Destinations ?

Je n'arrive pas à la trouver...

[gcvoiron]

J'ai trouvé ça :

Code :

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

1
2
3
4
5
6
7
8
Type TswAudio_Mixer = class(TComponent)
private
  f_mixer : TAudioMixer;
  f_OutNames,f_InNames : TStringList;
  procedure LineCodeToDC(LineCode:Byte;Var ADestination, AConnection:Integer);
  function IndexOf(aList:TStringList;aString:String):Integer;
protected
public

[HumanTool]

Essayes de faire :

Code :

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

ShowMessage(IntToStr(Length(f_mixer.Destinations));

avant la boucle

Code :

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

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

[gcvoiron]

J'ai des erreurs d'identificateur non déclarés pour "ShowMessage" & "IntToStr".

[HumanTool]

Il te manque

Code :

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

SysUtils, Dialogs

dans la partie "uses" en haut de ton code aprés "interface"

Code :

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

1
2
3
4
5
6
unit Main;
 
interface
 
uses
Windows, SysUtils, Dialogs,....

[gcvoiron]

Les erreurs ont disparus. J'ai maintenant :

[Erreur] UswVoip_AudioMixer.pas(93): Types incompatibles

[Edit]
La ligne 93 est la ligne :

Code :

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

ShowMessage(IntToStr(Length(f_mixer.Destinations)));

[HumanTool]

Bon....
va aux lignes où se trouvent

Code :

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

1
2
3
4
5
6
7
8
Type TswAudio_Mixer = class(TComponent) 
private  
f_mixer : TAudioMixer; 
f_OutNames,f_InNames : TStringList; 
procedure LineCodeToDC(LineCode:Byte;Var ADestination, AConnection:Integer); 
function IndexOf(aList:TStringList;aString:String):Integer; 
protected 
public

mais ta souris sur TAudioMixer et appui sur CTRL. En restant appuyé cliques sur TAudioMixer (c'est devenu une sorte de lien hypertexte)
Normalement cela t'envoie sur la déclaration de TAudioMixer, et tu devrais trouver le type de "Destinations"

Si cela ne marche pas places juste le curseur de ta souris sur TAudioMixer, une infobulle devrais apparaitre en spécifiant "...xxxx.TAudioMixer..."

[gcvoiron]

Ca marche avec les ' ' :

Code :

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

ShowMessage(IntToStr(Length('f_mixer.Destinations')));

La valeur de 'f_mixer.Destinations' est de 20. Je clique sur OK, puis il y a le message d'erreur.

[HumanTool]

Certes ça marche mais length(chaine) retourne la longueur de la chaine. Mais Length(tableau) retourne la longueur du tableau.
Donc là

Code :

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

Length('f_mixer.Destinations')

c pas ce que l'on veut