Violation d'accès sur un TIdFTP

**cfalcot** · 09/05/2006, 11h15

Bonjour,

J'appel a partir d'une Form1 une procedure contenue dans une Form2 sur laquelle j'ai posé un composant TIdFTP (IdFTP1).

Voila le code de la Procedure:

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
procedure TForm2.ConnectionFTP(Sender: TObject);
//Procedure de connection du serveur FTP
begin
  if idFTP1.Connected then
    IdFTP1.Disconnect;
  try
    IdFTP1.Host:=Form1.IpServeur;
    IdFTP1.Port:=21;
    IdFTP1.Username:=Form1.IdClient;
    IdFTP1.Password:=Form1.PwClient;
    IdFTP1.Connect;
  finally ;
  end;
  Application.ProcessMessages;
end;

A l'execution, j'ai une violation d'accès (lecture) sur le ligne :

Code :

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

  if idFTP1.Connected then

En fait, des que je fait un "IdFTP1.NiporteQuoi:=" j'ai une erreur.

Pourtant le composant est reconnu puisque l'achevement du code fonctionne bien...

Qui a une idée siouplait!

**rbh** · 09/05/2006, 11h27

Salut
La violation d'accès est une erreur très courante.
Si tu dis que c'est dès la première ligne et que peu importe la propriété que tu attaque il y a violation d'accès, ma question est :

L'objet est il bien créé?

Sinon tu peux aussi mettre tes premières lignes dans le try .. finally mais ça ne resoudra rien, ça cachera juste le message.

**cfalcot** · 09/05/2006, 11h41

J'ai essayer de creer a la main un IdFTP2 pour voir et ca plante aussi.

En fait le problème est plus general que ca: c'est tous les composants de la Form2 qui posent un problème. Des que j'utilise n'importe quoi appartenant à la form2 j'ai une violation d'acces.

Par exemple

Code :

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

  Form1.Memo1.Lines.Add('coucou c''est bon');

fonctionne normalement (Donc acces a un composant de la Form1) alors que

Code :

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

  Memo1.Lines.Add('coucou c''est pas bon');

lance une erreur (Memo1 étant sur la Form2)... Ajouter un Form2.Memo1.Lines.Add('coucou c''est pas bon'); ne change rien.

dans Project1 j'ai bien:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Project1;
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};
{$R *.res}
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.

**evarisnea** · 09/05/2006, 11h59

salut,
vérifie que tu n'utilises pas d'appel à Form2 dans le Create de ta Form1, si OldCreateOrder est à True, car ta Form1 est crée avant ta Form2.

**rbh** · 09/05/2006, 12h05

Je pensai aussi à quelque chose comme ça.
En pas à pas, sur la ligne :

Code :

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

if idFTP1.Connected then

idFTP1 ne vaut-il pas nil?
Si oui il faut appeler ta procédure ConnectionFTP à un moment ou tout les objets concernés sont bien créer.
ex

Code :

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

1
2
3
4
5
6
7
 
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Form2.ConnectionFTP(..);
  Application.Run;

ceci n'est qu'un exemple, à toi de bien réfléchir au meilleur moment de l'appeler.

**cfalcot** · 09/05/2006, 13h36

Merci rbh mais c'est evarisnea qui avait bon: je cherchais a appeler la Form2 dans le "onCreate" de la form1. Du coup les composant n'existaient pas...

J'ai donc modifier l'ordre de creation des forms. Par contre la fermeture de la form2 induit la fermeture de programe, ce qui n'est pas cool...

**rbh** · 09/05/2006, 13h46

Ma réponse n'était pas totalement fausse, et en plus elle règlerai probablement ton nouveau problème.
En effet la première form créée dans le .dpr est la feuille principale de l'application et donc celle qui, quand elle est détruit, provoque la fermeture de l'appli.

**cfalcot** · 09/05/2006, 14h41

Exacte rbh. En fait mon souci avec ta methode c'est d'appeler ma fonction avec le paramètre Sender:TObject:
Il me faudrait qqchose du genre:

Code :

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

1
2
3
4
5
6
7
8
9
 
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Form1.Timer2Timer(Sender);
<div style="text-align: left;">//  Form1.Timer2Timer(Form2.Sender); //Marche pas non plus...
  Application.Run;
</div>