Discussion :

[Négrier]

Bonjour,

Résumé du problème
Je suis créateur et administrateur d'une application développée en Delphi qui fonctionne sur un réseau interne et il m'arrive d'être confronté à de fortes baisses de performances que je n'arrive pas à expliquer.

Contexte
Delphi7 Entreprise / Windows XP pro SP2

Vue générale de l'application et détail du problème :

Un exécutable principal charge dynamiquement des DLL puis demande à chacune d'elle de récupérer des informations dans un "TStream". C'est cette seconde opération qui prend environ 10 fois plus de temps certains jours (comme aujourd'hui) lorsque le "réseau" société n'est pas très en forme.

Là où je ne comprends pas, et c'est pourquoi je sollicite votre aide, c'est que la récupération des informations depuis le "TStream" par les DLL n'implique pas, à ma connaissance, le réseau !

A titre de comparaison, d'autres applications utilisées sur mon poste (et donc avec le même état de réseau) perdent beaucoup moins en efficacité.

Cela me donne à penser qu'il y a peut être un réglage à faire, non pas au niveau du système, mais dans les options de compilation ou d'édition de liens Delphi.

Merci d'être allé au bout du message

[Bruno Orsier]

est-il possible qu'un de ces TStream soit en réalité un TFileStream, qui accéderait à un fichier situé sur une autre machine? Pour vérifier cette hypothèse, j'utiliserais filemon ou procmon http://www.microsoft.com/technet/sys...s/default.mspx pour regarder quels accès fichiers fait cette application.

Bruno

[Négrier]

Pour détailler un peu la chose :

dans l'application principalle il y a le code

Code :

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

1
2
3
    stream:TDataStream;
    stream:=TDataStream.create;
    stream.loadFromFile(FilePath)

ensuite les fonctions de chargement de chaque DLL sont appelées avec le
paramètre stream:

Code :

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

procedure LoadFromDLL(const stream:TStream)

Les performances de l'instruction"stream.loadFromFile(FilePath)" ne sont pas en cause, c'est ensuite au fur et à mesure du découpage du "stream" par les différentes DLL qu'on a une explosion des temps de traitement.

[Négrier]

J'observe un phénomène tout à fait étonnant :

scénario je me connecte sur mon poste de travail à partir d'une autre en utilisant la fonctionnalité "Connexion du bureau à distance" de windows XP,
et j'obtiens de bien meilleures performances avec mon application qu'en la lançant directement depuis mon poste !!!

Je suis impatient de connaitre vos réactions.

[Cthulhu_RLyeh]

Tu crée des stream, mais est-ce que tu les "Free" et les "Destroy" quand tu ne les utilise plus ?
J'ai eu ce probléme avant de passer mon logiciel en réseau, à chaque itération, c'était 50 Mo de RAM qui étaient occupés...

[Négrier]

Oui ! le code en plus détaillé est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure charge(const filePath:string);
var
  stream:TDataStream;
begin
  stream:=TDataStream.create;
  try
    stream.loadFromFile(FilePath) ;
    ...
    LoadFromDLL(stream)
    ...
  finally
    FreeAndNil(stream);
end;

(FreeAndNil est une fonction bien pratique de l'unité SysUtils)

Sinon je crois que le fait que l'application tourne plus vite en passant par une connexion du bureau à distance devrait mettre la puce à l'oreille des spécialistes XP....