Discussion :

[Harry]

Bonjour,

J'utilise un ScrollBox pour contenir un planning composé de nombreux StringGrid crées dynamiquement.

La ScrollBox permettant de se déplacer vers le haut et vers le bas.

Je n'ai aucun problème de fonctionnement sous 2000 ou XP, de nombreux clients utilisent ce ScrollBox sans soucis. Sauf un. Ils sont sous Windows 2003 serveur et passent par un bureau à distance (TSE).

Eux c'est ok tant qu'ils touchent pas à la scroll bar (verticale). Dès qu'ils y touchent tout se bloque. Le CPU ne semble pas particulièrement utilisé.

Savez vous si le composant ScrollBox à des problèmes de compatibilité avec 2003 serveur ou autre ?

Merci

[dd16]

Bonjour

J'utilise des scrollbox sous windows 2003 en TSE et en Citrix, je n'ai pas de plantage. Je travaille avec delphi 7 entreprise.

[Harry]

Merci pour ton témoignage dd16,

Je n'avais pas précisé mais je suis sous Delphi 4.

J'ai accès à un autre serveur 2003, je vais pouvoir faire des tests (hors TSE) cet après midi.

Edit : Après test même problème sur ce nouveau serveur 2003. Je me demande ce qui peut bien causer ce problème.

[alf_idsoft]

Bonjour,

J'ai un problème identique : Delphi 7 et Windows server 2008. En local, mes scrollbox fonctionnent parfaitement et en TSE, il arrive régulièrement que l'application fige quand on veut utiliser les barres de défilement.
Qui a déjà rencontré ce problème et comment le résoudre ? Déjà que quand on réduit l'application, elle disparaît dans les 10 secondes....
Merci !!

[ShaiLeTroll]

alf_idsoft, tu réouvres un sujet vieux de 3 ans !

Surtout qu'entre Server 2003 et Server 2008, il y a des différences notables !
Il y a 2 patch pour D7, que l'on trouve sur le forum, qui change le comportement des certains composants liés à Vista (2008 R1 étant un 6.0 comme Vista, et 2008 R2 étant un 6.1 comme Seven)

Avec D7, j'ai surtout eu des problèmes de "disparition" de TLabel dans les ScrollBox mais aussi bien en direct qu'un bureau à distance, mon collègue a réglé ce soucis avec les patch mentionnés (tu les trouves aussi chez Embarcadero, il faut compte chez eux pour télécharger)

Ces anomalies VCL sont corrigées à partir de RAD 2007

[alf_idsoft]

Wé, j'ai sorti la pelle

Je vais faire installer les KB et voir ce que ça donne
C'est curieux car l'application marche bien sur mon windows 7

Merci

[ShaiLeTroll]

Le thème en général, n'est pas le même, sur un Server 2008, tu utilises un thème léger et performant, alors que tu la WorkStation Seven, tu peux te permettre plus d'extravagance

Tu n'as pas précisé 2008 R1 ou R2 ?
Peut-être un soucis précis en 6.0 qui n'est plus présent en 6.1

Quand j'évoque les patch, c'est des fichiers Pascal à intégrer au projet pas des KB Microsoft !

[alf_idsoft]

2008 R1, "windows 6.0.6..."
C'est surtout un soucis qu'on a aujourd'hui mais qu'on n'avait visiblement pas hier ! Pas de mise à jour du programme, ni du windows server... On va voir si cela fonctionne mieux après un reboot d'ici demain matin. Mais on n'a déjà eu le problème, puis il a disparu, sans qu'on modifie nos programmes. Pas moyen de mettre la main sur l'admistrateur qui fait joujou

Des patches Delphi ?
En tout cas, dans tout ce que je lis, je ne vois pas le rapport avec mes scrollbox qui figent (pb d'UAC, de fonts...)

[ShaiLeTroll]

C'est pas vraiment des patch, juste des fichiers PAS à télécharger qui dans la section initialisation hack deux trois trucs !

Long sleeping in WM_VSCROLL and WM_HSCROLL
Semble que la propriété Smooth soit la coupable selon cette QC et le TSE doit augmenter le problème puisqu'un serveur étant rarement rebooté (plus de 25 jours car GetCurrentTime\GetTickCount ne fourni que 49,7 jours maximum sur un Cardinal, et donc que 25 jours sur un LongInt)

Donc
. soit tu mets Smooth à false (simple et rapide)
. soit tu modifies Forms.pas (a tes risques et périls)

En lisant la QC Long sleeping in WM_VSCROLL and WM_HSCROLL, on peut en déduire les modifications suivantes de TControlScrollBar.ScrollMessage pour éviter un Sleep (le freeze) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  CurrentTime, StartTime, ElapsedTime: Longint;

devient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  CurrentTime, StartTime, ElapsedTime: DWORD;

puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
StartTime := GetCurrentTime;
ElapsedTime := StartTime - CurrentTime;
if ElapsedTime < FDelay then Sleep(FDelay - ElapsedTime);

devient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
StartTime := GetTickCount; // API en DWORD !
ElapsedTime := StartTime - CurrentTime;
if ElapsedTime < DWORD(FDelay) then Sleep(DWORD(FDelay) - ElapsedTime);

[alf_idsoft]

bingo, le serveur a été redémarré il y a 27 jours !
Je crois que je vais demander un reboot tous les 20 jours (ça fait pas de mal)

Qu'est-ce que le smooth ? Je pensais que c'était l'affichage du contenu d'une fenêtre lors de son déplacement, fonctionnalité windows. Or celle-ci est désactivée sur le TSE.

En tout cas, merci, voilà une curiosité !!

[ShaiLeTroll]

Le TScrollBox.HorzScrollBar.Smooth \ VertScrollBar.Smooth semble être géré par le code Delphi de ScrollMessage, justement avec une bidouille de Sleep et de Scroll répété !
Cela semble être conçu pour défiler une section en plusieurs fois, je ne vois pas bien pourquoi

[alf_idsoft]

Ah ok, je ne connaissais pas vraiment cette propriété. Par précaution, j'ai mis smooth à true, je ne vois pas de différence notable à l'affichage.

Même si c'est pas moi qui ait lancé le sujet, on peut considéré le problème comme résolu, et il y a 3 manières de voir les choses

Merci !!

[ShaiLeTroll]

Il faut la mettre à false pour les deux HorzScrollBar.Smooth et VertScrollBar.Smooth
Tu avais le bug alors que Smooth était à false ??? là c'est génant !

[alf_idsoft]

n'importe quoi, j'ai dit le contraire de ce que j'ai fait : j'ai mis smooth à false, c'était à true