[Delphi] exception EAccessViolation

Fermé
Dinheru Messages postés 1019 Date d'inscription mercredi 20 avril 2005 Statut Membre Dernière intervention 17 avril 2009 - 1 juil. 2008 à 14:33
 Vince974 - 2 nov. 2008 à 07:03
Bonjour,

J'ai un problème avec Delphi qui me lève une exception EAccessViolation, et je vois pas pourquoi.
J'ai le message : Violation d'accès à l'adresse 0045116E dans le module 'TourDeRole.exe'

Il m'affiche alors l'endroit ou ça semble coincer dans le fichier ScktComp:
procedure TAbstractSocket.SetActive(Value: Boolean);
begin
--> if Value <> FActive then
     begin
       if (csDesigning in ComponentState) or (csLoading in ComponentState) then
         FActive := Value;
       if not (csLoading in ComponentState) then
         DoActivate(Value);
    end;
end;


Pourtant mon code semble correcte :
procedure TForm1.initServeurWav;
begin
    AjoutTrace('Initialisation serveur Wav');
    ClientSocket1.Host := '127.0.0.1';
    ClientSocket1.Port := 1521;
    ClientSocket1.Name := 'TDRv3';
    ClientSocket1.Active := true; <-- ça serait ça qui bloque mais si je le met pas je peux pas lancer ma connexion -_-!
end;

procedure TForm1.ClientSocket1Connecting(Sender: TObject;Socket: TCustomWinSocket);
begin
     AjoutTrace('Connexion au serveur wav en cours...');
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;Socket: TCustomWinSocket);
begin
     AjoutTrace('Connexion au serveur wav ok');
end;


Donc si vous pouviez m'éclairer sur la raison de cette exception, ça m'aiderait beaucoup ^^
Merci d'avance.

2 réponses

Bonjour. J'ai le meme probleme. C'est a devenir dingue. Je suis sur de mon code. Et j'ai toujours le message.
Je pense que c'est un beug. Ce n'est pas la premiere fois.
1
Le nom de la variable Value ne serait pas un mot réservé par hasard ? Essaie de changer le nom de la variable pour voir !
0