Procedure et procedure (TObjet) Aide svp

Version imprimable

Bonjour,

Mon problème est le suivant: j'ai une procédure simple non "objet" qui doit faire appel à une procédure (ASender: TObject). J'ai ajouté le nom de la "form"suivi d'un point, D7 ne détecte pas d'erreur à la compilation, mais donne une erreur lors de l’exécution. voici une partie du code:

Merci d'avance pour votre aide.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 var
  FormPhidget: TFormPhidget;
 
 //AdressIp : string[16];
  //portChar : integer;
  IO        : ARRAY[1..MaxIOchannel] OF Boolean;
  DAC       : ARRAY[1..MaxDACchannel] OF Integer;
  AD        : ARRAY[1..MaxADchannel] OF Integer;
  DA        : ARRAY[1..MaxDAchannel] OF Integer;
  InputDevice :ARRAY[1..MaxIOchannel] OF TIOdevice;
  OutputDevice:ARRAY[1..MaxIOchannel] OF TIOdevice;
  NumPhidgetInterfaceKit: byte;
 
  PROCEDURE SetIOchannel(Channel_no: TIOchannel);
  PROCEDURE ClearIOchannel(Channel_no: TIOchannel);
   {6 BIT DAC CONVERTER PROCEDURES}
  PROCEDURE OutputDACchannel(Channel_no: TDACchannel ; Data: Integer);
  PROCEDURE ClearDACchannel(Channel_no: TDACchannel);
  PROCEDURE SetDACchannel(Channel_no: TDACchannel);
 
 
implementation
 
{$R *.dfm}
 
{	Set one IO channel and update the 'IOdata' & 'IO' array.
	--------------------------------------------------------
}
procedure TFormPhidget.SetIoChanelClick(Sender: TObject);
begin
SetIOchannel(10);
 
end;
 
 
PROCEDURE SetIOchannel(Channel_no: TIOchannel);
var
I, X, Y: byte;
BEGIN
	{Calculate module no}
 for I:=1 to 6 do begin
  if (OutputDevice[I].Actif) and (Channel_no >= OutputDevice[I].StartIO)
      and (Channel_no >= OutputDevice[I].EndIO) then
       begin
        X:=OutputDevice[I].Module;
        Y:=Channel_no-OutputDevice[I].StartIO-1;
 :fleche:   TPhidgetInterfaceKit(FormPhidget.findComponent('PhidgetInterfaceKit'
        +IntToStr(X))).OutputState[Y]:=true;
      	{Data for correct IOchannel to set}
        IO[Channel_no]:=true;
  :fleche:   FormPhidget.Memo1.Lines.Add('IO['+IntToStr(Channel_no)+'] = true');
      end;
  end;
 
	{Set IOchannel}
END;

30/05/2014, 18h21
Andnotor

FormPhidget n'est pas assigné.
Regarde où et comment est créé cette instance de TFormPhidget.
31/05/2014, 14h43
djsys

Merci Andnotor,

Je suis débutant, je ne comprends pas bien ta réponse, ;-( Ce que je détecte lors de l'arrêt du programme c'est FormPhiget=nil et FormPhidget.Memo1= valeur inaccessible
FormPhidget: TFormPhidget; est déclaré dans VAR en premier, et TFormPhidget = class(TForm), Memo1: TMemo sont déclarés un peu plus haut dans TYPE.
31/05/2014, 15h43
Andnotor

Tu devrais retrouver quelque part FormPhidget := TFormPhidget.Create() ou Application.CreateForm(TFormPhidget, FormPhidget).

En effet, je trouve : dans la partie "Program", mais je ne comprends pas le problème.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program DjSys2014;
 
uses
  Forms,
  UnitMain in 'Units\UnitMain.pas' {MainForm},
 ....
  PhidgetUnit in 'Units\PhidgetUnit.pas' {FormPhidget};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.Title := 'DjSys2014';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TFormPhidget, FormPhidget);
 ...
  Application.Run;
end.

31/05/2014, 17h05
Andnotor

La création est là ;)

Est-ce que MainForm fait appel à SetIOchannel depuis son événement OnCreate ?
31/05/2014, 17h27
djsys

Pas dans le OnCreate, mais dans un Timer (300 msec) actif dès le démarrage, SetIOchannel n'est nécessairement appelé.

PhiGetUnit est dans le Uses de MainForm juste après "implementation"

Merci pour ton aide.

Ajoute cette ligne au tout début de SetIOchannel, ça devrait suffire :
Code:

1 2 3 4 procedure SetIOchannel(Channel_no: TIOchannel); begin if not Assigned(FormPhidget) then Exit; ...

Ceci fonctionne, mais n'est pas conviviale pour mon application:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
procedure TFormPhidget.SetIoChanelClick(Sender: TObject);
begin
//SetIOchannel(7);

PhidgetInterfaceKit1.OutputState[7]:=true; { OK ça fonctionne !! mais pas ergonomique !} 

end;


PROCEDURE SetIOchannel(Channel_no: TIOchannel);
var
I, X, Y: byte;
BEGIN
	{Calculate module no}
 for I:=1 to 6 do begin
  if (OutputDevice[I].Actif) and (Channel_no >= OutputDevice[I].StartIO)
      and (Channel_no >= OutputDevice[I].EndIO) then
       begin
        X:=OutputDevice[I].Module;
        Y:=Channel_no-OutputDevice[I].StartIO-1;
        FormPhidget.PhidgetInterfaceKit1.OutputState[7]:=true;
        //TPhidgetInterfaceKit(FormPhidget.findComponent('PhidgetInterfaceKit'
        // +IntToStr(X))).OutputState[Y]:=true;
      	{Data for correct IOchannel to set}
        IO[Channel_no]:=true;
        //FormPhidget.Memo1.Lines.Add('IO['+IntToStr(Channel_no)+'] = true');
      end;
  end;

	{Set IOchannel}
END;

31/05/2014, 17h52
djsys

désolé :roll:, la ligne " if not Assigned(FormPhidget) then Exit;" évite le "plantage", mais ne poursuit pas la procédure...
31/05/2014, 18h01
Andnotor

Citation:

Envoyé par djsys

désolé :roll:, la ligne " if not Assigned(FormPhidget) then Exit;" évite le "plantage", mais ne poursuit pas la procédure...

Ben c'est le but jusqu'à ce que FormPhidget soit disponible !

Sinon, c'est déplacer la création de cette fiche depuis la source du projet (dpr) dans l'événement MainForm.OnCreate, mettre par défaut le timer à FALSE et ne le démarrer qu'après FormPhidget := TFormPhidget.Create().
31/05/2014, 18h24
djsys

J'ai désactivé le Timer, mis en commentaire tous les appels SetIOChannel dans MainForm et ajouté un bouton sur la FormPhidget qui permet l'appel manuellement par OnClick la procédure SetIOChannel
Depuis la fenêtre FormPhidget ouverte si je click sur le bouton, le résultat reste inchangé ... :roll:
31/05/2014, 19h29
Andnotor

Bon, dans ta procédure des problèmes peuvent survenir avec : OutputDevice[I] ou FormPhidget.

Peut-être que si tu étais un peu plus explicite sur l'erreur renvoyée, ça aiderait... :weird:
31/05/2014, 21h10
djsys

Extrêmement désolé :oops: :? l'erreur venait d'un record (OutputDevice[I].StartIO) qui était supérieur à TIOchannel:oops: