¿Como hacer una secuencia de imagenes?

[[nlsgarcia]]

viejinho,

Empezado por viejinho

...¿Como hacer una secuencia de imágenes?...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  ImagePath : String = 'D:\NASA\NASA Universe-5\';
  ImageArray : Array[0..4] of String = ('Universe-1.jpg','Universe-2.jpg','Universe-3.jpg','Universe-4.jpg','Universe-5.jpg');

var
  Form1: TForm1;
  i : Byte = 0;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Image1.Center := True;
   Image1.Stretch := True;
   Image1.Picture.LoadFromFile(ImagePath + ImageArray[0]);
   Timer1.Interval := 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if i < High(ImageArray) then
   begin
      Image1.Picture.LoadFromFile(ImagePath + ImageArray[i+1]);
      Inc(i);
   end   
   else
   begin
      i := 0;
      Image1.Picture.LoadFromFile(ImagePath + ImageArray[i]);
   end;
end;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, Visualiza una secuencia de imágenes en intervalos de un segundo, como se muestra en la siguiente imagen:



Espero sea útil

Nelson.

[[Lepe]]

Muy bueno el ejemplo, pero la última parte me gusta menos... ¿qué tal esto?

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   i := (i+1) mod length(ImageArray);
   Image1.Picture.LoadFromFile(ImagePath + ImageArray[i]);
end;

[[nlsgarcia]]

Lepe,

Empezado por Lepe

...¿qué tal esto? (Aritmética Modular)...

Nelson.

[viejinho]

Mucha gracias a los 2, la verdad yo soy muy principiante en esto y me gustaría saber que pongo en esta parte

Código Delphi [-]
private
    { Private declarations }
  public
    { Public declarations }
  end;

[ecfisa]

Hola viejinho.

Empezado por viejinho

Mucha gracias a los 2, la verdad yo soy muy principiante en esto y me gustaría saber que pongo en esta parte

Código Delphi [-]
private
    { Private declarations }
  public
    { Public declarations }
  end;

Para este ejemplo no necesitas poner nada mas. Tál como te lo ha escrito nlsgarcia en el mensaje #2 funciona correctamente.

Te convendría reemplazar el código del evento Timer1Timer por la optimización que hizo Lepe en el en el mensaje #3.

Saludos