Delphi 7 Anwendung sehr langsam auf Win 7 (x64)

[Lemmy]

Hi,

das Problem tritt in einer großen Anwendung auf, lässt sich aber auch mit einer Mini-Anwendung nachstellen: Datenbankzugriff mit IBobjects und per

Delphi-Quellcode:

  Query.First
  while NOT Query.EOF do 
    Query.Next

keine Events, kein zusätzlicher Code, keine sonstige Handler, rein nur eine Datenmenge durchlaufen. Es spielt auch keine Rolle ob dabei ein Grid an der Query angeschlossen ist. Deshalb schließe ich irgend welche Programminternas komplett aus.

Nach dem Manifest muss ich mal schauen, ist aber glaube ich nicht drin, weil ich bei den ProgressBars kein Marquee habe. Deshalb wäre das mal ne Option zu schauen ob es daran liegt..


Nachtrag: Ich habe das ganze auch mal mit den UIB und einem Standard-GRid nachgestellt - da tritt das Problem nicht auf. Könnte das ggf. auf ein Problem der IBObjects (Paint?) hindeuten?

Grüße

[Bernhard Geyer]

Zitat von Lemmy:

... , lässt sich aber auch mit einer Mini-Anwendung nachstellen: Datenbankzugriff mit IBobjects

Aktuelle IBObjects-Version? Da ich diese nicht habe kann nicht querchecken.

[shmia]

Ist da vielleicht irgendwo im Sourcecode von IBObjects ein GetMessage(), WaitMessage() oder PeekMessage() enthalten?

[Lemmy]

HI,

eigentlich verwenden wir die 4.7, ich habe es aber auch mit der Trial 4.9 nachbauen können. Mail an die Mailinglist ist schon raus.

Wegen den Get, Wait, Peekmessage - muss ich passen, so tief bin ich nicht eingestiegen, ich kann mit Grep die Sourcen aber nachher mal durchsuchen lassen.

Grüße

[Lemmy]

scheint wohl ein Problem der IBObject zu sein, Jason arbeitet nach eigenen Aussagen gerade an dem Problem... Danke für euer Ohr!

Grüße

[WladiD]

Und wieder ein Thread, den ich aus der Vergessenheit hervorholen möchte...

Wir verwenden hier auch dieses Monster Namens IBObjects und haben ab und zu auch unerklärliche Phänomene, die eigentlich nichts miteinander zu tun haben dürfen, wie auch in deinem Fall in einer simplen IBO-Fetch-Schleife. Naja und wo ein komisches Verhalten ans Tageslicht kommt, ist meist ein Application.Processmessages nicht weit. Also habe ich die Sourcen von den IBOs gecheckt und wollte es nicht fassen...

In der Methode TIB_Session.DoAppCallback wird tatsächlich dieses Misskonstrukt der VCL verwendet und von TIB_Dataset.DoAppCallback konsumiert. Natürlich nur unter bestimmten Bedingungen, unter Anderem abhängig von der Laufzeit des Fetch-Vorgangs (zumindest deutet der Einsatz von GetTickCount darauf hin). Aber so genau konnte ich dem nicht folgen, ist ein sehr verwobener und unstrukturierter Code.

Jedenfalls kann man dem Vorbeugen, wenn man die Eigenschaft TIB_Dataset.CallbackInc nach der Initialisierung auf -1 setzt (Standard ist 5). Dann werden definitv keine Application.Processmessages ausgeführt. Übrigens TIB_Cursor, TIB_Query/TIBOQuery leiten vom TIB_Dataset ab.

Wenn das Problem bei Euch noch (sporadisch) besteht, kannst du es mal testen...

[Guentiganz]

Wir hatten das selbe Problem

Ursache die MouseThemes in Kombintation mit angepassten Cursors.
Deaktivieren der Win7 MouseThemes hat geholfen