Label ändert sich nicht

[delphis spassbremse]

Moinzen... hab nben kleines Prob...

Ich hab mir ein Programm geschrieben, das meine
Internetcafesoftware aktualisieren soll...

nur hab ich ein problem, dass während dem Updatevorgang
sich das Label mit den Updateinfos nicht ändert..

CODE:

Delphi-Quellcode:

 .....  var I: Integer; update2: Tinifile;


    Label3.Caption := 'Verbinde mit Updateserver'; // Das ändert sich noch

    sleep(1000);
    downloadfile('http://'+setting.ReadString('config', 'host', '')+':24888/ricupdate.ricu', 'C:\Windows\ricupdate.ricu');

    sleep(1000);
    Label3.Caption := 'Lade Dateiliste';   // Das nicht mehr
    update2 := TIniFile.create(ExtractFilePath(ParamStr(0))+ 'ricupdate.ricu');

    sleep(1000);
    update2.ReadSections(filel.Items);
    pb3.Max := filel.Count;

    sleep(1000);
    Label3.Caption := 'Suche Daten';

    for I := 0 to form1.filel.Count - 1 do
    begin
      Label3.Caption := 'Datei '+inttostr(I)+'/'+inttostr(filel.Count - 1)+' wird geladen';
      downloadfile('http://'+setting.ReadString('config', 'host', '')+':24888/'+update2.ReadString('File'+inttostr(I), 'sdat', ''), update2.ReadString('File'+inttostr(I), 'pcdat', ''));
      pb3.Position := I;
      sleep(1500);
    end;

    Label3.Caption := 'Vorgang wird abgeschlossen';  / Das au nich
    sleep(5000);
    ende;  // Abschlussfunktion zum registrywert setzen und runtefahren...
end;

Hat jem. ne idee?

MFG

[mkinzler]

Dieses Problem haben wir zu Zeit jeden Tag.
1. Sleep ist suboptimal, da es dann Programm komplett schlafen legt.
2. Vor dem Warten (Sleep, delay, ...) Application.ProcessMessages; aufrufen

[Christian Seehase]

Moin Björn,

Du musst dem System auch Zeit geben den Inhalt zu aktualisieren.
Mit Sleep gibst Du die Rechenzeit die Deinem Thread zusteht sofort ab.
Vor dem Sleep könntest Du noch ein Application.ProcessMessages, oder LabelX.Refresh einbauen.

[delphis spassbremse]

ok danke... werde ich mal probieren...

[MrKnogge]

Benutz statt dem Sleep besser:

Delphi-Quellcode:

procedure Delay(const Milliseconds: DWord);
var
  FirstTickCount: DWord;
begin
  FirstTickCount := GetTickCount;
  while ((GetTickCount - FirstTickCount) < Milliseconds) do
    Application.ProcessMessages;
end;

Gruß

[jbg]

Zitat von MrKnogge:

Benutz statt dem Sleep besser:

Und warte im 49. Tag nach dem Systenstart, 49 Tage bis die Schleife beendet ist, da GetTickCount wieder bei 0 anfängt zu zählen.

[inherited]

Wieso? Damit das passiert, muss man schon ziemlich genau den Moment treffen. Das halte ich für sehr unwahrscheinlich.

[mkinzler]

Zitat von inherited:

Wieso? Damit das passiert, muss man schon ziemlich genau den Moment treffen. Das halte ich für sehr unwahrscheinlich.

Aber du weist ja, der Teufel ist ein Eichhörnchen

[Martin K]

Hi,
diese Variante funktioniert auch, wenn der 49. Tag überschritten wird:

Delphi-Quellcode:

procedure Delay(const Milliseconds: Cardinal);
var c: Cardinal;
begin
  c := GetTickCount;
  while (GetTickCount-Milliseconds < c) and not (Application.Terminated or DelayCanceled) do
  begin
    Application.ProcessMessages;
    Sleep(1);
  end;
end;

Anmerkung:
Eine globale Variable DelayCanceled: Boolean, damit das Delay auch jederzeit (z.B. bei einem Klick auf einen Button) abgebrochen werden kann.
Sleep(1); damit das Programm nicht ständig mit 100% CPU-Auslastung läuft.
Application.Terminated, damit Delay auch abgebrochen wird, falls man das Programm schließen will.

BTW: In der CL sollte sich dazu auch jede Menge finden lassen: Delay