viejinho,
Cita:
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
public
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.