Discussion :

[Napala]

Salut le Forum,


Voici ma préoccupation :

Je veux avoir une image dynamique => pour cela j'ai créer deux images et j'ai jouer avec leur "Visible". J'ai appliqué un repeat à l'infini pour que le gif tourne en permanence.
Mais le problème est que le prog une fois compiler reste sur se repeat et impossible aprés de faire autre chose ou même d'arréter la compil.

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
23
24
25
26
27
 
  no := 1;            { numéro de l'image affichée }
  nbseq := StrToInt(EdSeq.Text);   { Nombre de séquences }
  defile := StrToInt(Edall.Text);  { Allure = Temporisation }
repeat
    Application.ProcessMessages;
    case no of
      1 : begin
            ima2.Visible := false;
            ima1.Visible := true;
            ima1.Repaint;
          end;
      2 : begin
            ima1.Visible := false;
            ima2.Visible := true;
            ima2.Repaint;
          end;
 
    end;
    inc(no);          { image suivante }
    if no > 2 then
    begin
      no := 1;        { réinitialise le numéro d'image }
      Dec(nbseq);    { décrémente le nombre de séquences }
    end;
    Sleep(defile);   { Temporisation }
  until nbseq = 1;

En faite nbseq ne devient jms égale à 1.






Si qq1 saurait comment pour ce genre de truc
merci !

[anapurna]

salut


tu as mis ton code dans quelle événements ?

[edit] :de plus tu as un probleme de logique

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
23
24
25
26
27
  no := 1;                                 { numéro de l'image affichée }
  nbseq := StrToInt(EdSeq.Text); { Nombre de séquences }
  defile := StrToInt(Edall.Text);    { Allure = Temporisation }
repeat
    //Application.ProcessMessages;
    case no of
      1 : begin
             ima2.Visible := false;
             ima1.Visible := true;
             ima1.Repaint;
          end;
      2 : begin
            ima1.Visible := false;
            ima2.Visible := true;
            ima2.Repaint;
          end;
     end;
    // tu as 2 images ?
    if no > 1 then 
    begin
      no := 0;         { réinitialise le numéro d'image }
      Dec(nbseq);    { décrémente le nombre de séquences }
    end;
    Sleep(defile);   { Temporisation }
    inc(no);{ image suivante }// dans le premier tour on passe a 2
  until nbseq <= 1 ; // jusqu'a   (nbseq <= 1 )

@+ Phil

[ShaiLeTroll]

Mais le problème est que le prog une fois compiler reste sur se repeat et impossible aprés de faire autre chose ou même d'arréter la compil.

Hein ? C'est la compilation qui plante ? l'Execution ? Bon, on va dire qu'il y a confusion des mots, tu veux dire que ça tourne sur le repeat en permanence une fois le programme lancé, ce qui semble assez logique si tu as mis ce code dans OnCreate, OnActivate ou OnShow ...

simplifions le code pour deux images (si tu dois faire une animation de 10 images, tu ne vas pas quand même créés 10 TImage, ça ne tient pas la route)

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
23
  no := 1;            { numéro de l'image affichée }
  nbseq := StrToInt(EdSeq.Text);   { Nombre de séquences }
  defile := StrToInt(Edall.Text);  { Allure = Temporisation }
  repeat
    Application.ProcessMessages;
    case no of
      1 : begin
            ima2.Visible := false;
            ima1.Visible := true;
            ima1.Repaint;
            no := 2;
          end;
      2 : begin
            ima1.Visible := false;
            ima2.Visible := true;
            ima2.Repaint;
            no := 1;
          end; 
    end;
 
    Dec(nbseq);    { décrémente le nombre de séquences }
    Sleep(defile);   { Temporisation }
  until nbseq = 1;

Déjà est-ce que cela fonctionne comme ça ?

Un programme c'est déjà une boucle permanente dans le Run (équivalement du main en C), tu ne dois plus faire de boucle permanente dans un programme Windows ... l'Application.ProcessMessages te permet que l'application réagit mais cela sollicite le processus bien plus que dans un flux normal alors que le Sleep bloque vraiement l'application, il ne doit pas être utiliser en dehors d'un thread normalement ... tu dois passer par un système de message ou des files d'attentes d'actions ...



Essaye d'utiliser un Timer, à chaque déclenchement du Timer, tu lance la fonction de switch, qui peut se faire plus simplement pour deux images :

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 TForm1.Timer1Timer(Sender: Tobject);
begin
  if ima1.Visible then
  begin
    ima1.Visible := False;
    ima2.Visible := True;
    ima2.Repaint;
  end
  else
  begin
    ima1.Visible := True;
    ima2.Visible := False;
    ima1.Repaint;
  end;
end;

Ensuite, si tu as plus de Deux images, faut repartir sur un compteur, mais dans ce cas là, autant utilisant un TAnimate qui affiche un AVI directement ...

[Napala]

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 TForm1.Timer1Timer(Sender: Tobject);
begin
  if ima1.Visible then
  begin
    ima1.Visible := False;
    ima2.Visible := True;
    ima2.Repaint;
  end
  else
  begin
    ima1.Visible := True;
    ima2.Visible := False;
    ima1.Repaint;
  end;
end;

MERCI BEAUCOUP pour vos réponses.
LE code ci-dessus me convient PARFAITEMENT et marche impect !!!
P'tite question : qu'est ce un "AVI" ??

merci

[ShaiLeTroll]

un Fichier .AVI standard (je ne parle pas des MPEG4\DivX qui utilise la même extension mais avec un format différent), c'est une séquence de bitmap, c'est le format d'animation de base de Windows, c'est comme le Gif mais non compressé ...