Timer - Kann den fehler nicht finden

Waldkauz · Beiträge: 102

Hallo

Ich habe ein Problem, und ich kann den Fehler nicht finden.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var t:integer=6;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
t:=t-1;
if t=5 then
 image1.picture.loadfromfile('bild01.jpg');
if t=3 then image1.picture.loadfromfile('bild02.jpg');
if t=2 then image1.picture.loadfromfile('bild03.jpg');
if t=4 then image1.picture.loadfromfile('bild04.jpg');
if t=1 then image1.picture.loadfromfile('bild05.jpg');
if t=0 then t:=6;
end;

Der Timer soll im Abstand von 1 Sekunde (also Timer1.Interval 1000) ein neues Bild ins Image1 laden, à la Diashow.
Das Problem ist, dass immer wieder Bilder übersprungen werden.

Ehemaliges Mitglied Erhaltene Danke: 1

Versuch es mal so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var t:integer=6;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  dec(t);
  if t = 0 then
    t := 6
  else
    image1.picture.loadfromfile(Format('%s\bild%.2d.jpg',[ExcludeTrailingPathDelimiter(KompletterPfadzumBild),t]));
end;

Allerdings wird auf diese Weise kein Bild geladen, wenn t in der ersten Zeile 0 wird.

jaenicke · Verfasst: Sa 04.07.09 13:15

Ist das Absicht im Originalquelltext oben, dass die Reihenfolge der Bilddateien anders ist als das Herunterzählen?

Waldkauz hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
t:=t-1;
if t=5 then
 image1.picture.loadfromfile('bild01.jpg');
if t=3 then image1.picture.loadfromfile('bild02.jpg');
if t=2 then image1.picture.loadfromfile('bild03.jpg');
if t=4 then image1.picture.loadfromfile('bild04.jpg');
if t=1 then image1.picture.loadfromfile('bild05.jpg');
if t=0 then t:=6;
end;

R4id · Verfasst: Sa 04.07.09 13:34

Glaube ich nehmlich nicht

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

jaenicke hat folgendes geschrieben :

Ist das Absicht im Originalquelltext oben, dass die Reihenfolge der Bilddateien anders ist als das Herunterzählen?

Waldkauz hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
t:=t-1;
if t=5 then
 image1.picture.loadfromfile('bild01.jpg');
if t=3 then image1.picture.loadfromfile('bild02.jpg');
if t=2 then image1.picture.loadfromfile('bild03.jpg');
if t=4 then image1.picture.loadfromfile('bild04.jpg');
if t=1 then image1.picture.loadfromfile('bild05.jpg');
if t=0 then t:=6;
end;

Was da nicht wirklich eine Rolle spielt ! :wink:

jaenicke · Verfasst: Sa 04.07.09 14:20

Doch, wenn das den Eindruck verursacht, dass da Bilder "ausgelassen" werden. ;-)

Xentar · Verfasst: Sa 04.07.09 15:29

Relative Dateipfade sind böse und wurden vom Teufel erschaffen :evil:

Besser:

markieren

Delphi-Quelltext

1:	image1.picture.loadfromfile(ExtractFilePath(Application.Exename) + 'bild05.jpg');

Damit gehst du immer vom Anwendungspfad aus, und nicht vom Arbeitsverzeichnis.

_________________
PROGRAMMER: A device for converting coffee into software.

ffgorcky · Beiträge: 573 WIN XP/2000 & 7Prof (Familie:Win95,Win98)

Also ich hätte das ganze eher so geschrieben (also die Bilder dementsprechend anders durchnummeriert):

markieren

Delphi-Quelltext

1:	image1.picture.loadfromfile(ExtractFilePath(Application.Exename)+'\bild0'+IntToStr(t)+'.jpg');

Wobei ich immer nicht so ganz weiß, ob die Funktion ExtractFilePath(Pfad:String):String denn hinter das direkte Mutter-Verzeichnis auch noch ein \ setzt...
...und solange Du nicht das Arbeitsverzeichnis beim Programmstart (also in der aufrufenden Verknüpfung) anders angibst, brauchst Du dieses ja auch gar nicht extra machen!

Wenn Du aber lieber für jeden Integer-Wert Deiner Variable t eine eigene Behandlung hast, dann wäre es doch so einfacher:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

t:=t-1;
case t of
   5: image1.picture.loadfromfile('bild01.jpg');
   4: image1.picture.loadfromfile('bild04.jpg');
   3: image1.picture.loadfromfile('bild02.jpg');
   2: image1.picture.loadfromfile('bild03.jpg');
   1: image1.picture.loadfromfile('bild05.jpg');
   0: t:=6;
   end; //der Case-Anweisung

Wobei bei dieser Behandlung dann ja das bild05.jpg doppelt so lange angezeigt wird.

jaenicke · Verfasst: Sa 04.07.09 16:49

ffgorcky hat folgendes geschrieben :

Wobei ich immer nicht so ganz weiß, ob die Funktion ExtractFilePath(Pfad:String):String denn hinter das direkte Mutter-Verzeichnis auch noch ein \ setzt...

Du hast eins zu viel.
ExtractFilePath fügt eins hinzu am Ende, ExtractFileDir macht das selbe und fügt keins hinzu.

jasocul · Verfasst: Mo 06.07.09 11:29

Ihr seid alle tolle Programmierer, aber vielleicht solltet ihr euch mal auf die eigentliche Frage konzentrieren. :wink:

Mögliche Ursachen für den Fehler:
1. Die Bilder stehen nicht im richtigen Verzeichnis.
2. Die Variable t wird noch woanders verändert.
3. Die Bilder sind so groß, dass das Laden und Anzeigen länger dauert, als die Timer-Laufzeit.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme