Einfrieren von Form verhindern

[Janek76]

Hallo,

ich habe eine Frage: Ich habe ein kleines Programm geschrieben, das Daten in eine Datenbank importiert. Abhängig von der Menge der Daten, kann das bis zu 3 Stunden und länger dauern. Sobald die Verarbeitung beginnt und ein anderes Fenster den Focus bekommen hatte, "friert" das Programm ein oder der Fortschrittsbalken läuft nicht weiter. D.h. das Fenster ist entweder weiß oder zeigt den Inhalt des vorher darübergelgten Fensters an. Bis die Verarbeitung durchgelaufen ist, dann ist alles wieder normal. Kann man das irgendwie verhindern?

[Thorben86]

Such mal in der Code-Lib nach der procedure "delay", damit nimmt dein Programm weiterhin aktionen war und führt diese aus.

[jfheins]

Du musst ab und zu (vll. alle 200 Einträge) ein Application.Processmessages aufgufen ;)

Mit Delay wird aber das Programm unterbrochen und kann nicht arbeiten ... und ein Delay(0) kämen auf ein Application.Processmessages raus :zwinker:

[Luckie]

Threads sind hier wohl wesentlich sinnvoller.

[Janek76]

Vielen Dank für die Antworten. In Zukunft werde ich dann wohl mit Threads arbeiten.

Eines funktioniert allerding nicht: ich habe "Application.ProcessMessages" in die Schleife eingebaut, aber dadurch hat sich nichts geändert.

[markusj]

Dann reagiert deine Anwendung auf Klicks etc. und zeigt andere Reaktionen,
aber weiterarbeiten im herkömmlichen Sinne kannst du mit ihr nicht, dazu brauchst du Threads.

mfG

Markus

EDIT: Mit denen schlage ich mich übrigens gerade auch rum ... TThread ist fast Idiotensicher^^

[Aenogym]

Zitat:

Zitat von Janek76

Vielen Dank für die Antworten. In Zukunft werde ich dann wohl mit Threads arbeiten.

Eines funktioniert allerding nicht: ich habe "Application.ProcessMessages" in die Schleife eingebaut, aber dadurch hat sich nichts geändert.

:shock: sehr ungewöhnlich.
wenn das aufgerufen wird, verarbeitet dein programm wieder alle anstehenden messages (zB. zeichnet es sich neu). zeig doch mal ein stück code.

aeno

[toyoman]

um zu verhindern dass das Form einfriert (Anzeige wird nicht aktualisiert) kannst du auch einen form1.refresh oder einen form1.update in die schlaufe einbauen....

damit wird das form zwischendurch wieder repainted.

[Muetze1]

@letzte beiden Poster: wenn es ein Befehl der DB ist, welcher nicht zurückkommt bzw. nicht vor Ende zurückkehrt, dann nützen eure Vorschläge nix - und dann ist auch das ausbleibende Verhalten durch eure Vorschläge verständlich...

[Janek76]

Ich habe jetzt Refresh bei Erneuerung des Fortschrittbalkens und über einen Timer eingesetzt und beim Timer außerdem ProcessMessages eingefügt.

Innerhalb der Delphi-IDE funktioniert es, bis auf, daß das Programm nicht auf Usereingaben reagiert. Wenn ich das X zum Schließen des Fensters anklicke, passiert nichts. Erst am Ende der Aktion wird das Fenster dann geschlossen.

Starte ich die EXE-Datei reagiert das Programm allerdings korrekt auf User-Eingaben. Das hatte ich vorhin also wohl falsch getestet. Allerdings schaffe ich es immer wieder, indem ich z.B. dem Internetexplorer den Focus gebe, daß das Anwendungsfenster weiß wird und dann auch bleibt. Das funktioniert also noch nicht.

Schreibe ich Form1.Refresh erhalte ich eine Zugriffsverletzung. Akzeptiert wird nur Refresh.

[toyoman]

Zitat:

Zitat von Janek76

Ich habe jetzt Refresh bei Erneuerung des Fortschrittbalkens und über einen Timer eingesetzt und beim Timer außerdem ProcessMessages eingefügt.

Innerhalb der Delphi-IDE funktioniert es, bis auf, daß das Programm nicht auf Usereingaben reagiert. Wenn ich das X zum Schließen des Fensters anklicke, passiert nichts. Erst am Ende der Aktion wird das Fenster dann geschlossen.

Starte ich die EXE-Datei reagiert das Programm allerdings korrekt auf User-Eingaben. Das hatte ich vorhin also wohl falsch getestet. Allerdings schaffe ich es immer wieder, indem ich z.B. dem Internetexplorer den Focus gebe, daß das Anwendungsfenster weiß wird und dann auch bleibt. Das funktioniert also noch nicht.

Schreibe ich Form1.Refresh erhalte ich eine Zugriffsverletzung. Akzeptiert wird nur Refresh.

form1.refresh kannst du natürlich nur schreiben wenn dein form auch form1 heisst...
ich habe schon sehr oft damit gearbeitet und es funktioniert hervorragend. allerdings kommt es natürlich sehr auf den schleifenaufbau an und wie mein vorredner sagte wenn das programm in einem datenbankprozess oder ähnlich hängenbleibt und nicht mehr zurückfindet nützt natürlich der refresh auch nix. dieses vorgehen ist nur sinnvoll bei einer schlaufe welche 100% weiterläuft.

[Janek76]

Ja. OK. Mein Form heißt anders, aber ich kriege trotzdem eine Zugriffsverletzung. Weiß auch nicht warum.

TACSVImport = class(TForm)
[...]
private
[...]
public
[...]
end;

var
ACSVImport: TACSVImport;




[...]
ACSVImport.Refresh führt bei mir zu einer Zugriffsverletzung

und das mit dem Refresh wie gesagt: Innerhalt der Delphi-Umgebung scheints zu funktionieren. Beim Aufruf der compilierten Datei nicht. Es ist übrigens eine 100%ige Schleife pro Datensatz. Innerhalb eines Datensatzes werden zwar Funktionen und Datenbankoperationen aufgerufen, aber es geht dann immer beim nächsten Datensatz weiter.

[...]

Delphi-Quellcode:

  DMS.DBOLAdoSQL.BeginTrans;
  Timer1.Enabled := true;
  try
    try
      while not adsBBCSVTemp.Eof do begin
        SKU := adsBBCSVTemp.FieldValues['SKU'];
        EAN := adsBBCSVTemp.FieldValues['EAN'];
        Name := adsBBCSVTemp.FieldValues['Name'];
        ILN := adsBBCSVTemp.FieldValues['SupplierILN'];
        Case ArtikelVorhanden(SKU, EAN, Name, ILN) of
          0: begin
               if cxcbArtNeu.Checked then begin
                 if not InsertNeuerArtikel then Exit;
               end;
             end;
          1: begin
               UpdateArtikel(1,SKU);
             end;
          2: begin
               UpdateArtikel(2,EAN);
             end;
          3: begin
               ImpUpNOK := ImpUpNOK + 1;
             end;
        end;
        i := i + 1;
        InitpbBar(true, 2, i);
        adsBBCSVTemp.Next;
      end;
      DMS.DBOLAdoSQL.CommitTrans;
      MessageDlg('Von '+IntToStr(i)+' Datensätzen wurden '+IntToStr(ImpUpOK)+' erfolgreich aktualisiert, '+IntToStr(ImpNeuOK)+' erfolgreich neu angelegt. '+IntToStr(ImpUpNOK)+' Artikel konnten nicht aktualisiert, '+IntToStr(ImpNeuNOK)+' nicht neu angelegt werden. Bei '+IntTostr(LiefUpNeu)+' gefundenen EANNummern wurde der ausgewählte Lieferant neu zugeordnet.', mtInformation, [mbOK], 0);
    except
      DMS.DBOLAdoSQL.RollbackTrans;
    end;
  finally
    Timer1.Enabled := false;
  end;

[Hawkeye219]

Zitat:

Zitat von Janek76

ACSVImport.Refresh führt bei mir zu einer Zugriffsverletzung

Und du bist sicher, daß das Formular zum Zeitpunkt des Aufrufs existiert, also erzeugt und noch nicht freigegeben wurde?

Zitat:

Zitat von Janek76

Delphi-Quellcode:

MessageDlg('Von '+IntToStr(i)+' Datensätzen wurden '+IntToStr(ImpUpOK)+' erfolgreich aktualisiert, '+IntToStr(ImpNeuOK)+' erfolgreich neu angelegt. '+IntToStr(ImpUpNOK)+' Artikel konnten nicht aktualisiert, '+IntToStr(ImpNeuNOK)+' nicht neu angelegt werden. Bei '+IntTostr(LiefUpNeu)+' gefundenen EANNummern wurde der ausgewählte Lieferant neu zugeordnet.', mtInformation, [mbOK], 0);

Hast du dich schon einmal mit der Funktion Format beschäftigt?

Gruß Hawkeye

[toyoman]

Zitat:

Zitat von Janek76

Ja. OK. Mein Form heißt anders, aber ich kriege trotzdem eine Zugriffsverletzung. Weiß auch nicht warum.


[/delphi]

ich sehe innerhalb deiner schlaufe nun aber keinen refresh. das formular muss bereits erstellt sein (onshow) sonst kann es nicht refresht werden. du kannst einen form refresh also nicht überall im code einsetzen...