Discussion :

[Alex_31]

Bonjour à tous,

Lors de l'exécution de mon programme, j'obtiens le message d'erreur suivant :

'Violation d'accès à l'adresse 008E04A8 dans le module 'vcl90.bpl'
Lecture de l'adresse 00000004'

Pour information, mon programme est un petit utilitaire de gestion des connexions internet (adresse IP, statut de connexion, gestion du VPN, des cartes réseaux, du proxy...).
Le pas à pas dans Delphi m'a permis de situer la procédure "incriminée" (plus particulièrement, la ligne en rouge) :

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
17
18
19
20
21
22
procedure TForm1.RafraichirProxies();
var
  CurrProxy : String;
  ProxyActive: boolean;
   i: integer;
begin
  // Si une sauvegarde des proxies existe
  if FileExists(FICHIERPROXY) then
  begin
    // Récupère si le proxy est actif dans Internet Explorer
    ProxyActive := LireIntegerDansRegistre(INTERNETSETTINGSREGPATH, 'ProxyEnable') = 1;
    // On récupère l'adresse du proxy
    CurrProxy := LireStringDansRegistre(INTERNETSETTINGSREGPATH, 'ProxyServer');
    // Pour chaque adresse de la liste des proxies
   for i := 0 to ListView1.items.count - 1 do
    begin
       //On coche la case du proxy actuel (si actif) et décoche les autres
     ListView1.Items.Item[i].Checked := (ListView1.Items.Item[i].Caption = CurrProxy) and ProxyActive;
    end;
  end;
 Application.ProcessMessages;
end;

J'aimerais donc avoir votre avis sur cette la cause possible de cette erreur, qui reste pour moi assez mystérieuse...

Merci d'avance pour votre aide !

[edam]

à tu des événement liée à la listview?

[Alex_31]

Euh, oui : un évènement PopupMenu et un évènement SmallImages.
Du coup, je ne peux pas utiliser Application.ProcessMessages ?

[edam]

et si tu met le processe message dans la boucle

Code :

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

1
2
3
4
5
6
   for i := 0 to ListView1.items.count - 1 do
    begin
       //On coche la case du proxy actuel (si actif) et décoche les autres
     ListView1.Items.Item[i].Checked := (ListView1.Items.Item[i].Caption = CurrProxy) and ProxyActive;
      Application.ProcessMessages;
    end;

[Alex_31]

Non, même en le mettant dans la boucle, j'ai la même erreur

[edam]

alors remet là au tout début de la procedure, car je crois que t'a l'erreur dans le code appelant de celle ci

[Alex_31]

malheureusement, même au début de la procédure, ça ne change rien...

[edam]

alors remet là au tout début de la procedure, car je crois que t'a l'erreur dans le code appelant de celle ci

[Jipété]

Salut.

malheureusement, même au début de la procédure, ça ne change rien...

Et si tu ne la mets pas du tout, cette ligne, ça fait quoi ?
Parce qu'àmha, c'est pas cette ligne qui pose problème...

J'ai fait un micro-test avec une Listview et 3 items ajoutés en mode design (test, blah, essai), et ce code :

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
17
18
19
20
21
procedure TForm1.RafraichirProxies;
var
   CurrProxy : String;
   ProxyActive: boolean;
   i: integer;
begin
  CurrProxy := 'blah';
  ProxyActive := True;
  for i := 0 to ListView1.items.count - 1 do
  begin
    //On coche la case du proxy actuel (si actif) et décoche les autres
    ListView1.Items.Item[i].Checked := (ListView1.Items.Item[i].Caption = CurrProxy) and ProxyActive;
    Application.ProcessMessages; // doit être DANS la boucle
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  show;
  RafraichirProxies;
end;

y a pas de lézard, y a pas d'embrouille, j'ai bien une case cochée et les deux autres vides...

[Alex_31]

Et si tu ne la mets pas du tout, cette ligne, ça fait quoi ?

Effectivement, qu'elle y soit ou pas, cela ne change rien.
La cause du problème doit être dans une autre procédure appelant celle-ci, comme le dit edam.
Je me penche à nouveau sur le reste du code et je vous tiens au courant !

[Alex_31]

Problème résolu ! Après une relecture et un "nettoyage en profondeur" de tout le code, je n'ai plus cette erreur à l'ouverture .

Merci pour votre aide