TForm wird nicht aktualisiert

[jelzi]

Folgendes Problem
Ich entwickle gerade ein Tool in Delphi7, welches Daten, die es über TXT-Dateien bekommt in eine MySQL-Datenbank wegspeichert.
Die Dateien können sehr lang (auch schon mal 30.000 Einträge), deswegen benutze ich eine ProgressBar für die Fortschritt-Anzeige, sowie eine Anzeige xx/yy als ein Label und ein TMemo für die Logausgabe.
Zusätzlich wird noch eine Log-Datei gespeichert.
Die Mainform um die es geht ist ein Nachfolger von TForm.
Nun zu meinem Problem. Wenn ich das Programm starte dann läuft alles wunderbar. Dh. Die Funktionen werden alle Erfüllt nur das sichtbare Fenster wird nach einer gewissen Zeit nicht mehr aktualisiert. Wenn es ausgewählt wird dann meint Windows sogar, dass es keine Rückmeldung gibt. Es arbeitet aber weiter, was ich an den Einträgen in der Datenbank, sowie an den Log-Ausgaben in der Datei sehen kann.
Habe dann in die Schleife self.repaint eingebaut. Wird die EXE aus der Entwicklungsumgebung gestartet dann klappt auch alles wunderbar (bis auf das Minimieren und Verschieben des Fensters). Die Captions, sowie die Progressbar wird aktualisiert.
Starte ich die EXE manuell besteht das Problem weiterhin. Für den Laien ist es nicht ersichtlich, ob das Programm noch läuft. Er denkt sich wohl eher, dass es nicht mehr läuft.

Wie kann ich das beseitigen? Ich würde auch gerne das Fenster zur Lauffzeit minimieren bzw maximieren können...

[ichbins]

mach application.processmessages statt repaint. Dann kann der User die Form auch verschieben (oder buttons betätigen) etc. Er kann sie sogar beenden. Dann brauchst du diesen Code:

Delphi-Quellcode:

application.processmessages;
if application.terminated then exit;

fürs Abfangen einer Abbruchbotschaft:

Delphi-Quellcode:

var
  canceled:boolean;

tform1.onbutton1click;
begin
  canceled:=true;
end;

//in der Prozedur
begin
  canceled:=false;
  [...]code[...]
  application.processmessages;
  if canceled then
  begin
    showmessage('Vorgang abgebrochen.');
    exit;
  end;
end;

[jelzi]

Zitat:

Zitat von ichbins

mach application.processmessages. Dann kann der User die Form auch verschieben etc.

wo muss es denn hin ?

[lucius]

jelzi, schonmal an Application.Processmessages gedacht ?

[ichbins]

@jelzi: Nirgends, aber vllt will er es ja verschieben, minimieren, maximieren oder beenden oder den Vorgang abbrechen.

application.processmessages verarbeitet diese Klicks auf das Form. Wenn die Klicks nicht verarbeitet werden (was während längeren Vorgängen passiert) sagt windoof natürlich, dass das Programm auf seine Nachrichten (wie Mausklicks) nicht reagiert. Bei einem abgestürtzten Program ist es ja genauso.


äääähhh... sry, ich hab dich falsch verstanden. Das repaint muss durch das application.processmessages ersetzt werden.

ein Beispiel:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  canceled:boolean;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;
begin
  button1.Enabled:=false;
  //Button, der die Aktion durchführt
  canceled:=false;
  //Sehr lange Aktion durchführen
  for i:=1 to 1000000 do begin
    for j:=1 to 1000000 do begin
      //Hier jetzt Windows-Botschaften abarbeiten
      application.ProcessMessages;
      if application.Terminated then
        exit;
      if canceled then begin
        showmessage('Vorgang abgebrochen.');
        button1.Enabled:=true;
        exit;
      end;  //  <-- bis hier.
      //weitere Dinge tun...
    end;
  end;
  button1.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  canceled:=true;
end;

end.

[jelzi]

:oops:
Das ist ja einfach!
Danke. Das kannte ich noch gar nicht ..

[ichbins]

Im Beispielcode Oben merkt der User nichtmal ob das Programm gerade den Code ausführt. Er kann es ganz normal weiterbenutzen. Nur durch Blick in den Taskmanager würde er draufkommen. Du musst aber aufpassen dass du den Button deaktivierst, der die Aktion gestartet hat, sonst kann der User ihn gleich nochmal drücken und die Aktion somit zum 2. Mal starten.