Problema con una 'Aplicación para presentar fotos'

[ecfisa]

Hola pacodelphi y bienvenido a los foros de Club Delphi.

Con la información que das, solamente te puedo decir que el error Access Violation (generalmente) se debe a que estas intentando utilizar o liberar un recurso no disponible.

haciendo uso de unas variables y del reloj hago que la imágenes se muestren una tras otra en el Timagen.

¿En que tipo de variable almacenas los nombres de los archivos de imágenes? ¿ Usas una lista ? ¿ La creas ? ¿ La liberas ?
¿Cargas directamente las imágenes al TImage desde el disco? ¿ Usas TBitmap, TStream ?

Ayudaría mucho que pusieras algo de código...

Un saludo.

[pacodelphi]

Perdon (soy nuevo en esto) voy a ver como puedo poner el código estructurado y lo subo.

[pacodelphi]

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var 
  Busqueda1: TSearchRec;  
begin       
  if z=0 then
  begin
    Memo1.Lines.Add('El directorio actual es:C:\FOTOS\PUBLICIDAD\');
    form1.Timer1.Interval:= 2000;
    FindFirst('C:\FOTOS\PUBLICIDAD\'+'*.bmp',faAnyFile, Busqueda1);
    Memo1.Lines.Add(Pchar(Busqueda1.name));
    Image1.Picture.LoadFromFile('C:\FOTOS\PUBLICIDAD\'+Busqueda1.Name);
    Image1.Update;
    //ShowMessage( SysErrorMessage(GetLastError()) );
    //Image1.Update;
    z:=1;
    //p:=0;
  end     
  else
  begin           
    p:=FindNext( Busqueda1 );
    if p <> 0 then
    begin
      //form1.Timer1.enabled:=false;                 
      z:=0;                 
      ShowPublicidad();
      exit;
    end;
    Memo1.Lines.Add(Pchar(Busqueda1.name));
    Image1.Picture.LoadFromFile('C:\FOTOS\PUBLICIDAD\'+Busqueda1.Name);
  end;// end if
end;

[ecfisa]

Hola pacodelphi.

Me tomé la libertad de hacer el código de cero. Cambié el Memo por un ListBox así se selecciona el nombre de la imágen a medida que se muestra y algunos detalles más. (Espero haber interpretado bién lo que buscas...)

Te adjunto el código para que lo puedas modificar a gusto o sacar algunas ideas.

Un saludo.

[pacodelphi]

Hola ecfisa.

Gracias por tu ejemplo, ya que la solución que propones, con algunos cambios, es mucho mejor que la mía y me viene perfecto, ya no tengo los errores y me funciona perfecto. Muchas gracias de nuevo.

Un cordial saludo. Paco.