TAnimate läuft nicht

[Jens Schumann]

Hallo ,
mit folgendem Code kopiere ich innerhalb einer Schleife Dateien.

Delphi-Quellcode:

  
        Animate1.Active:=True;
        Animate1.Active:=True;
        [...] Ab hier kommt die Schleife
        FillChar(aSHFOS, Sizeof(aSHFOS), #0);
        FillChar(szFrom, Sizeof(szFrom), #0);
        FillChar(szTo, Sizeof(szTo), #0);
        StrPCopy(szFrom, SourceFilename);
        StrPCopy(szTo, DestFilename);
        With aSHFOS do
        begin
          Wnd := 0;
          wFunc := FO_COPY;
          pFrom := @szFrom;
          pTo := @szTo;
          fFlags := FOF_SILENT  or FOF_NOCONFIRMATION;
          fAnyOperationsAborted := False;
        end;
        ShFileOperation(aSHFOS);
        [...]
        Animate1.Active:=False;
        Animate1.Active:=False;

Jetz möchte ich während dieser Zeit das aviCopyFiles AVI in TAnimate anzeigen.
Dummerweise läuft das Ding nicht los. Anstatt mit ShFileOperation habe ich es auch schon mit
API Funktion CopyFile versucht. Klappt auch nicht.

In der Hilfe steht, dass wenn die Timer property von TAnimate False ist (und das ist sie)
dass das AVI in einem eigenen Thread abgespielt wird. D.h. aber dass es eigentlich völlig egal sein
dürfte, ob das Form Rechenzeit abgibt oder nicht. Deshalb habe ich ein kleines Testprogramm
geschrieben, dass TAnimate startet und in einer Endlosschleife läuft.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Animate1.Active:=True;
  While True do;
end;

Was soll ich sagen. Hier läuft das aviCopyFiles völlig problemlos.

Hat es etwa etwas mit dem Kopieren von Dateien zu tun?

[alcaeus]

Hi jens,

Zitat:

Zitat von Jens Schumann

Delphi-Quellcode:

Animate1.Active:=True;
Animate1.Active:=False;

ich weiß ja nicht was du in der Schleife machst, aber wenn du Active der TAnimate auf False setzt, dann ist es kein Wunder dass die Animation nicht dargestellt wird.

Greetz
alcaeus

[Jens Schumann]

Zitat:

Zitat von alcaeus

Hi jens,

Zitat:

Zitat von Jens Schumann

Delphi-Quellcode:

Animate1.Active:=True;
Animate1.Active:=False;

ich weiß ja nicht was du in der Schleife machst, aber wenn du Active der TAnimate auf False setzt, dann ist es kein Wunder dass die Animation nicht dargestellt wird.

Greetz
alcaeus

Vielen Dank für den Hinweis. Ich habe mich hier im Forum verschrieben.
Natürlich steht im Source:

Delphi-Quellcode:

Animate1.Active:=True;
Animate1.Active:=True;

Schnell oben noch geändert

[DP-Maintenance]

Dieses Thema wurde von "Luckie" von "Windows API" nach "VCL-Komponenten und Controls" verschoben.
Kein Windows API Problem.