Une mise à jour des fonctionnalités de RAD Studio 10.4.2, motivée par une analyse montrant une augmentation du nombre de développeurs utilisant le bureau à distance pour le développement pendant Covid, a été une accélération du rendu IDE sur le bureau à distance.
Les principaux problèmes sur lesquels se sont concentrés étaient le gel de l’IDE dans certaines situations (comme lors de la connexion ou la déconnexion d’un bureau distant), le scintillement et quelques AV.
Les éléments QP examinés pour 10.4.2 comprennent:
- Reconnectez une session RDP existante en utilisant les mêmes paramètres d’écran (même machine) RS-99048
- Reconnectez une session RDP existante en utilisant différents paramètres d’écran (par exemple à partir d’une machine différente) RS-103339
- Reconnecter une session RDP existante avec le concepteur FMX ouvert provoque AV.
De plus, il y avait un certain nombre de rapports internes.
Bien que je n’ai pas d’exemple de projet qui puisse être partagé, j’ai la permission de partager quelques notes que l’équipe de R&D d’Embarcadero a fournies sur la base de leurs expériences, et j’espère que cela sera également utile à d’autres développeurs.
La cause première de tous ces problèmes est que tout changement de session RDP (verrouiller, déverrouiller, connecter, déconnecter) a envoyé un changement de paramètre à l’échelle du système (WM_SETTINGCHANGE) provoquant une cascade de messages qui conduit à plusieurs rafraîchissements dans l’EDI. C’était la cause de certains des AV, car entre les messages en cascade envoyés par le système d’exploitation, il incluait le message WM_THEMECHANGED qui déclenchait la recréation de la poignée pour certains contrôles. Cela affectait les concepteurs VCL / FMX lorsqu’ils étaient laissés ouverts et qu’une session était reconnectée via RDP.
L’ API WTS permet de recevoir les notifications de modification de session RDP (WM_WTSSESSION_CHANGE). La gestion de cela permet à l’EDI d’être averti lorsque la session est verrouillée, déverrouillée, connectée, déconnectée, et à partir de là, nous pouvons choisir comment le WM_SETTINGCHANGE est géré et éviter les problèmes de scintillement / repeinture.
Une note de l’équipe de R&D était que l’utilisation de styles VCL sur les services terminaux est plus susceptible de provoquer un scintillement d’une application dans des circonstances normales.
Cet exemple de code squelette (non testé) devrait, espérons-le, fournir des pointeurs dans la bonne direction à tous ceux qui cherchent à ajouter un support similaire dans leurs applications.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 |
type TFormMain = class(TForm) TimerEnableMetricSettings : TTimer; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure TimerEnableMetricSettingsOnTimer(Sender: TObject); private FMethodWnd: HWND; procedure WTS_SessionWndProc(var Message: TMessage); procedure DoHandleRDPLock; procedure DoHandleRDPUnLock; end; var FormMain: TFormMain; implementation {$R *.dfm} procedure TFormMain.DoHandleRDPLock; begin // Prevent the VCL App reacting to WM_SETTINGCHANGE when a rdp session is locked/disconnected. // Stop the timer if it's already running if TimerEnableMetricSettings.Enabled then TimerEnableMetricSettings.Enabled := False; Application.UpdateMetricSettings := False; end; procedure TFormMain.DoHandleRDPUnLock; begin // Stop the timer if it's already running if TimerEnableMetricSettings.Enabled then TimerEnableMetricSettings.Enabled := False; // Re-start the timer. TimerEnableMetricSettings.Enabled := True; end; procedure TFormMain.FormCreate(Sender: TObject); begin TimerEnableMetricSettings.Interval := 30000; TimerEnableMetricSettings.Enabled := False; // This hooks to the method WTS_SessionWndProc below to control the Lock FMethodWnd := AllocateHWnd(WTS_SessionWndProc); WTSRegisterSessionNotification(FMethodWnd, NOTIFY_FOR_THIS_SESSION); end; procedure TFormMain.FormDestroy(Sender: TObject); begin if FMethodWnd <> 0 then begin WTSUnRegisterSessionNotification(FMethodWnd); DeallocateHWnd(FMethodWnd); end; end; procedure TFormMain.WTS_SessionWndProc(var Message: TMessage); begin if Message.Msg = WM_WTSSESSION_CHANGE then begin case Message.wParam of WTS_SESSION_LOCK, WTS_REMOTE_DISCONNECT: DoHandleRDPLock; WTS_REMOTE_CONNECT, WTS_SESSION_UNLOCK: DoHandleRDPUnLock; end; end; Message.Result := DefWindowProc(FMethodWnd, Message.Msg, Message.WParam, Message.LParam); end; procedure TFormMain.TimerEnableMetricSettingsOnTimer(Sender : TObject); begin // stop the timer TimerEnableMetricSettings.Enabled := False; // it is recommended to wait a few seconds before this is run // hence setting the timer interval to 30000 in FormCreate Application.UpdateMetricSettings := True; end; end. |
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition
