Findcomponent sur TImage

Version imprimable

Bonjour à toutes et à tous,

Sur la même forme "FPrincipale", j'ai plusieurs TImage qui se nomment IVignette, GVignette etc...

Si je répète le with/do, cela fonctionne, ma question est t'il possible de ne pas répéter le with/do d'autant qu'il y a d'autres instructions à la suite ?
Code:

1 2 3 4 5 6 7 with FPrincipale do TImage(findcomponent('IVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage) ; //Instructions en plus with FPrincipale do TImage(findcomponent('GVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage) ;
Merci de l'aide éventuelle.

@+,

Cincap

Bonjour,

Il faut inclure les instructions dans un bloc begin ... end.

Code:

1
2
3
4
5
6
7
with FPrincipale do
begin
  TImage(findcomponent('IVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage) ;
  TImage(findcomponent('GVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage) ;
// autres instructions
//...
end;

22/08/2012, 16h14
cincap

@ Ph. B., merci de ta réponse mais j'avais testé avant mon post et je n'ai pas tous les résultats suivants concernant la même fiche !

@+,

Cincap
22/08/2012, 16h22
Ph. B.

Citation:

Envoyé par cincap

@ Ph. B., merci de ta réponse mais j'avais testé avant mon post et je n'ai pas tous les résultats suivants concernant la même fiche !

Est ce que l'on peut voir le code incriminé ? que manque-t-il lors de l'exécution ?

@ Ph. B.

Ceci fonctionne correctement :

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
 
if ParCam[NumScreen].Vignette.Visible then //j'ai testé avec begin
 
   //Module Plans
   with FPrincipale do
   TImage(findcomponent('IVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage);
    ScanBitmap[NumScreen].Assign(CapturedImage);
   TMED(findcomponent('MED'+inttostr(NumScreen))).InsertNextBitmap(ScanBitmap[NumScreen]); 
 
   with FPrincipale do
   TImage(findcomponent('GVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage);
   FPrincipale.pcam1.color := shape1.brush.color;
   FPrincipale.shape1.brush.color := shape1.brush.color;
   FPrincipale.Pcamera1.caption := name1.caption;
 
   FPrincipale.pcam2.color := shape2.brush.color;
   FPrincipale.shape2.brush.color := shape2.brush.color;
   FPrincipale.Pcamera2.caption := name2.caption;
 
   FPrincipale.pcam3.color := shape3.brush.color;
   FPrincipale.shape3.brush.color := shape3.brush.color;
   FPrincipale.Pcamera3.caption := name3.caption;
 
 
   FPrincipale.pcam4.color := shape4.brush.color;
   FPrincipale.shape4.brush.color := shape4.brush.color;
   FPrincipale.Pcamera4.caption := name4.caption;
 
   //Module Fzoom
  with Fzoom_1 do
  Fzoom_1.Zvignette1.Picture.assign(FPrincipale.IVignette1.picture);
  Fzoom_1.caption := cameras.name1.caption + ' - On est le  ' +     Formatdatetime('dddd d mmmm yyyy', now) ;
  Fzoom_1.pzoom_1.color := shape1.brush.color;
 
  with Fzoom_2 do
  Fzoom_2.Zvignette2.Picture.assign(FPrincipale.IVignette2.picture);
  Fzoom_2.caption := cameras.name2.caption + ' - On est le  ' + Formatdatetime('dddd d mmmm yyyy', now) ;
  Fzoom_2.pzoom_2.color := shape2.brush.color;
 
  with Fzoom_3 do
  Fzoom_3.Zvignette3.Picture.assign(FPrincipale.IVignette3.picture);
  Fzoom_3.caption := cameras.name3.caption + ' - On est le  ' + Formatdatetime('dddd d mmmm yyyy', now) ;
  Fzoom_3.pzoom_3.color := shape3.brush.color;
 
  with Fzoom_4 do
  Fzoom_4.Zvignette4.Picture.assign(FPrincipale.IVignette4.picture);
  Fzoom_4.caption := cameras.name4.caption + ' - On est le  ' + Formatdatetime('dddd d mmmm yyyy', now) ;
  Fzoom_4.pzoom_4.color := shape4.brush.color;
 
 
  //Module Programmateur
  with Fauto do
   TImage(findcomponent('PVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage);
 
 
  //Module Web
  with FServer do
  TImage(findcomponent('SVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage);
 
 
  //Module Mini Ecran
  with Fmonitor1 do
  Fmonitor1.vignette1.Picture.assign(FPrincipale.IVignette1.picture);
  Fmonitor1.panel1.color := shape1.brush.color;
  Fmonitor1.b1.caption := name1.caption;
 
  with Fmonitor2 do
  Fmonitor2.vignette2.Picture.assign(FPrincipale.IVignette2.picture);
  Fmonitor2.panel1.color := shape2.brush.color;
  Fmonitor2.b2.caption := name2.caption;
 
  with Fmonitor3 do
  Fmonitor3.vignette3.Picture.assign(FPrincipale.IVignette3.picture);
  Fmonitor3.panel1.color := shape3.brush.color;
  Fmonitor3.b3.caption := name3.caption;
 
  with Fmonitor4 do
  Fmonitor4.vignette4.Picture.assign(FPrincipale.IVignette4.picture);
  Fmonitor4.panel1.color := shape4.brush.color;
  Fmonitor4.b4.caption := name4.caption;
 
 
  //Dialog
  with Cameras do
  TButton(findcomponent('BDialog'+inttostr(NumScreen))).Visible:=true;
 
 
  with ParamZones do
  if (NumCam.Value=NumScreen)and(Showing) then
  MEDPar.InsertNextBitmap(ScanBitmap[NumScreen]);
 
 
  if ParCam[NumScreen].AutoSynchro then VideoCapture1.CaptureFrame;
  if Zoom[NumScreen]>1 then
  TImage(findcomponent('IZoom'+inttostr(NumScreen))).Picture.Bitmap:= ScanBitmap[NumScreen];
//end; testé  
except
beep;
end;
end;

@+,

Cincap

Avec Self, mais est-ce vraiment une simplification :?

Code:

1
2
3
4
5
6
7
8
with FPrincipale do
begin  
 TImage(findcomponent('GVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage);
  pcam1.color := Self.shape1.brush.color;
  shape1.brush.color := Self.shape1.brush.color;
  Pcamera1.caption := Self.name1.caption;
  ...
end;

@ Andnotor, bonjour et merci de ta réponse mais ma question se portait si on pouvait donner deux instructions en même temps avec "Findcomponent"

Exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 with FPrincipale do TImage(findcomponent('IVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage); ScanBitmap[NumScreen].Assign(CapturedImage); TMED(findcomponent('MED'+inttostr(NumScreen))).InsertNextBitmap(ScanBitmap[NumScreen]); TImage(findcomponent('GVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage); FPrincipale.pcam1.color := shape1.brush.color; FPrincipale.shape1.brush.color := shape1.brush.color; FPrincipale.Pcamera1.caption := name1.caption; ......... except beep; end; end;
Même avec begin et end, le reste ne fonctionne pas comme cela.

Maintenant c'est peut être cherché loin pour rien gagner, mais c'est toujours interessant.

@+,

Cincap

22/08/2012, 19h20
tourlourou

Ce code avec bloc begin..end sur un with aurait dû fonctionner (enfin, avec le begin ;) )

Mais cela me rappelle un bug que j'avais rencontré dans un cas où le compilateur a fini par s'emmêler !

Pour un with, il stocke la référence de l'objet dans le registre EAX de façon par la suite à ne jouer que sur des offsets. Mais EAX lui sert ordinairement à plein de choses, et il a "oublié" qu'il y avait stocké une référence à ne pas effacer...

A voir si lors du second FindComponent, EAX contient toujours une référence sur FPrincipale.
23/08/2012, 08h50
cincap

Bonjour à toutes et à tous,

@ tourlourou, je pense qu'il y a quelque chose de vrai dans ce que tu écris, comme un Topendialog qui garde son dernier chemin sauf si on force son instance.

Maintenant répéter le with/do pour la recherche n'est pas un problème et ne ralentit pas le code.

Je vais considéré ce topic comme fermer à moins que l'on trouve comment utiliser deux instructions "findcomponent" avec un seul with/do.

Merci à tous,

@+

Cincap
23/08/2012, 09h01
Andnotor

Citation:

Envoyé par cincap

...mais ma question se portait si on pouvait donner deux instructions en même temps avec "Findcomponent"

Citation:

Envoyé par cincap

...à moins que l'on trouve comment utiliser deux instructions "findcomponent" avec un seul with/do.

A l'arrivée, je ne comprend plus où est ton problème :koi:

@ Andnotor, ceci fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
try
 
if ParCam[NumScreen].Vignette.Visible then //j'ai testé avec begin
 
   //Module Plans
   with FPrincipale do
   TImage(findcomponent('IVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage);
    ScanBitmap[NumScreen].Assign(CapturedImage);
   TMED(findcomponent('MED'+inttostr(NumScreen))).InsertNextBitmap(ScanBitmap[NumScreen]); 
 
   with FPrincipale do
   TImage(findcomponent('GVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage);
   FPrincipale.pcam1.color := shape1.brush.color;
   FPrincipale.shape1.brush.color := shape1.brush.color;
   FPrincipale.Pcamera1.caption := name1.caption;
..............
except
beep;
end;
end;

Et j'aurai aimé avoir ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

try

if ParCam[NumScreen].Vignette.Visible then //j'ai testé avec begin
 
   //Module Plans
   with FPrincipale do
   TImage(findcomponent('IVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage);
    ScanBitmap[NumScreen].Assign(CapturedImage);
   TMED(findcomponent('MED'+inttostr(NumScreen))).InsertNextBitmap(ScanBitmap[NumScreen]); 
 
  // with FPrincipale do
   TImage(findcomponent('GVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage);
   FPrincipale.pcam1.color := shape1.brush.color;
   FPrincipale.shape1.brush.color := shape1.brush.color;
   FPrincipale.Pcamera1.caption := name1.caption;

................
except
beep;
end;
end;

Même avec begin/end; je n'ai pas toutes les instructions concernant le Timage.

@+,

Cincap

29/08/2012, 12h33
Ph. B.

Citation:

Envoyé par cincap

@ Andnotor, ceci fonctionne :
...
Et j'aurai aimé avoir ceci :
...
Même avec begin/end; je n'ai pas toutes les instructions concernant le Timage.

J'avoue que je suis comme @Andnotor, je ne comprends pas (plus ?) où est le problème :(.

S'agit-il d'écrire ceci :| :

Code:

TImage(FPrincipale.findcomponent('GVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage);

Bonjour à toutes et à tous,

@ Ph. B., hello, c'est moi qui avait placé les begin/end au mauvais endroit et forcément le reste du code ne fonctionnait plus.

Le problème est donc résolu.

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
//Module Plans
   with FPrincipale do begin
   TImage(findcomponent('IVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage);
    ScanBitmap[NumScreen].Assign(CapturedImage);
   TMED(findcomponent('MED'+inttostr(NumScreen))).InsertNextBitmap(ScanBitmap[NumScreen]); 
 
   //with FPrincipale do
   TImage(findcomponent('GVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage);
   FPrincipale.pcam1.color := shape1.brush.color;
   FPrincipale.shape1.brush.color := shape1.brush.color;
   FPrincipale.Pcamera1.caption := name1.caption;
end;

 //Module Fzoom
  with Fzoom_1 do begin
  Fzoom_1.Zvignette1.Picture.assign(FPrincipale.IVignette1.picture);
  Fzoom_1.caption := cameras.name1.caption + ' - On est le  ' +     Formatdatetime('dddd d mmmm yyyy', now) ;
  Fzoom_1.pzoom_1.color := shape1.brush.color;
 end;

  with Fzoom_2 do begin
  Fzoom_2.Zvignette2.Picture.assign(FPrincipale.IVignette2.picture);
  Fzoom_2.caption := cameras.name2.caption + ' - On est le  ' + Formatdatetime('dddd d mmmm yyyy', now) ;
  Fzoom_2.pzoom_2.color := shape2.brush.color;
 end;

  with Fzoom_3 do begin
  Fzoom_3.Zvignette3.Picture.assign(FPrincipale.IVignette3.picture);
  Fzoom_3.caption := cameras.name3.caption + ' - On est le  ' + Formatdatetime('dddd d mmmm yyyy', now) ;
  Fzoom_3.pzoom_3.color := shape3.brush.color;
 end;

  with Fzoom_4 do begin
  Fzoom_4.Zvignette4.Picture.assign(FPrincipale.IVignette4.picture);
  Fzoom_4.caption := cameras.name4.caption + ' - On est le  ' + Formatdatetime('dddd d mmmm yyyy', now) ;
  Fzoom_4.pzoom_4.color := shape4.brush.color;
 end;
............

except
beep;
end;
end;

Merci à tous,

@+,

Cincap