Delphi-PRAXiS - Delphi Programm blockiert ganz Windows

Zitat:

Zitat von Captnemo (Beitrag 1220522)

Wenn ich deinen ersten Post lese, dann steht da:

Zitat:

(zb per IBX Daten abruft, oder einfach ne große schleife, wo was gemacht wird

was ist denn mit der großen Schleife? Hast du da mal mir Application.ProcessMessages experimentiert?
Manchmal ist es bei solchen Sachen auch ganz hilfreich, wenn man sich eine Logdatei mitschreibt und quasi jeden Schritt eine Zeitaufwendigen Funktion mit einem Zeitstempel mitloggt. So kann man dann explizit die verursachende Zeile finden.

Delphi-Quellcode:

			procedure log(s: string);

var

  tc, tdiff: Cardinal;

  f: Textfile;

  logfile: string;

begin

  tc:=GetTickCount;

  tdiff:=tc-stc;  

  logfile:=extractfilepath(application.exefile)+'log.txt';

  Assingfile(f, logfile);

  if fileexists(logfile) then append(f) else rewrite(f);

  writeln(f, inttostr(tdiff)+' '+s);

  closefile(f);

  application.processmessages;

end;

Das hab ich mal so aus dem Kopf hier geschreiben. Also wenn Fehler drin sind, reißt mir nicht den Kopf ab.

in der unit noch die stc: Cardinal deklarieren.
Und am begin der fraglichen Funktion stc:=gettickcount;
und dann nach bedarf ein log('jetzt wir SQL.open ausgeführt'); setzen.

Hinterher kannst du in der Logdatei recht genau sehen, wo die Zeit verbraten wurde. Möglicherweise hilft das bei der Ergründung des Problems.

Wenn's sinnvoll ist, dann kann man auch noch andere Variablen mit übergeben und loggen, damit man ggf. auch auf unlogische Daten oder so prüfen kann.

Aber das problem ist ja nicht das diese Datenbank Komponente so lange braucht - das PASST ja, es dauert nun mal eine gewisse zeit die JOINS zu machen und dann 100tausende Datensätze auf einmal zu holen (Und ja die werden alle auf einmal benötigt, da die in eine PivotTabelle geladen werden, und da gibts kein nachladen)

Das geht ja in Ordnung ich weiss wo es lange dauert und auch warum

-> die Frage ist nur warum der Desktop von Windows dann einfriert in der Zeit!