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