iOS AniIndicator Problem

[Crocotronic]

funktioniert leider auch nicht

[Crocotronic]

Ich bin immer noch dabei zu versuchen, den AniIndicator zum laufen zu bringen, da ich für meine Live-Ticker-App einfach ein Objekt brauche, an dem ich zeigen kann, dass gerade aktualisiert wird.

Zumindest funktioniert der NetworkIndicator auf der iOS-Eigenen Statusbar. Das Teil setzt ich vor dem Thread-Beginn auf True und im OnTerminate auf False.

Delphi-Quellcode:

procedure TXMLReader.SetNetworkProgress(Value: boolean);
begin
 {$IFDEF IOS}
 TUIApplication.Wrap(TUIApplication.OCClass.sharedApplication).setNetworkActivityIndicatorVisible(Value);
 {$ENDIF}
end;

Wenn ich jetzt einfach noch unter die Zeile den AniIndicator auf Value setze, dann geschieht das Übliche, aber mit beiden Indikatoren. Beide hören einfach nicht mehr auf zu drehen, bis irgendeine Display-Eingabe erfolgt. Es reicht aus, einfach mit dem Finger nach unten zu wischen, wobei ich auf diese Geste im Programm überhaupt icht reagiere.

Delphi-Quellcode:

procedure TXMLReader.SetNetworkProgress(Value: boolean);
begin
 {$IFDEF IOS}
 TUIApplication.Wrap(TUIApplication.OCClass.sharedApplication).setNetworkActivityIndicatorVisible(Value);
 {$ENDIF}
 AniIndicator1.Enabled:= Value;
end;

Was zur Hölle kann man dagegen unternehmen?

[Crocotronic]

Ich habe dem Teil den Krieg erklärt
Und ich würde auch behaupten, dass ich nach 2 Stunden intensivem rumprobieren den Fehler am Kragen habe. Ich brauche lediglich nur noch jemand, der den Fehler interpretiert
Ich habe mein Programm (LiveTicker) einfach soweit reduziert, bis nur noch ein paar Zeilen Code übrig geblieben sind. Jetzt sollte es einfach sein, den Fehler zu finden. Daraus hab ich dann ein kleines Testprogramm gemacht. Das häng ich mal als ZIP hier an.
Die uses clause hab ich einfach mal so gelassen.
Wie ihr sehen könnt, macht die Klasse MyThreadClass in diesem Context eher keinen Sinn. Aber wie gesagt, ist eben alles reduziert.
Wäre euch sehr dankbar, wenn sich das mal jemand angucken könnte!

Noch mal das Problem zusammen gefasst: Alle 10 Sekunden wird ein Thread gestartet, der etwas runterläd. Vor dem Start wird ein AniIndicator aktiviert. Im OnFinished-Event wird er wieder deaktiviert. Die Zeit, wann er ihn deaktiviert ist total willkürlich. Um ihn "manuell" zu stoppen, einfach nach unten wischen (keine Ahnung warum).
Unter Windoof funktionierts....

Viele Grüße
Croco

[Mavarik]

Also...

Welchen Einfluss FreeOnTerminate:= true; auf Deine FMyThread variable hat... (bei ARC)... Keine Ahnung, nutze das NIE!

Kann man den isFinnished noch abfragen?

Delphi-Quellcode:

 if (FMyThread = nil)
   then FMyThread:= TMyThread.Create(OnThreadFinished)
   else begin
          FMyThread := NIL;
          FMyThread:= TMyThread.Create(OnThreadFinished);
        end;

So geht es... Ohne Berücksichtigung ob der Thread noch läuft...

Der Thread läuft bei mir aber nicht immer 2 Sekunden... Das dauert ggf. länger!

Mavarik

[Crocotronic]

Zitat von Mavarik:

Welchen Einfluss FreeOnTerminate:= true; auf Deine FMyThread variable hat... (bei ARC)... Keine Ahnung, nutze das NIE!

Mach ich aus 2 Gründen: 1) Weil ich mich über ARC noch nicht informiert hab (vorher Delphi 7) , 2) Weil ich finde, dass das zum guten Ton gehört, auch wenns nicht nötig ist.

Zitat von Mavarik:

Der Thread läuft bei mir aber nicht immer 2 Sekunden... Das dauert ggf. länger!

Genau da liegt das Problem. Der Thread läuft nämlich nicht länger als 2 Sekunden. Ich habe nochmal ein Testprogramm gemacht (Anhang), wo man das gleiche auch noch mit dem iOS-Eigenen NetworkIndicator versuchen kann. Dann stellt man fesst, dass der Thread genau 2 Sekunden dauert. Außerdem hab ich grad festegestellt, dass AniIndicator keine Chance hat wieder disabled zu werden, wenn ein Timer im Sekundentakt hoch zählt (siehe Programm). Alles sehr mysteriös...