Discussion :

[peyo_le_fou]

Je dois réaliser une application qui compare les style de deux document Word. Pour cela j'utilise Delphi et OLE, le probléme c'est que la comparaison met beaucoup de temps (1minute30 par fichier) et je voulais savoir s'il n'y avait pas un moyen d'accelerer le traitement.

Il faut savoir que le deux documents sont ouvert à ce moment la et que l'application passe son temps à lire sur le disque dur (surement une des raisons de la lenteur)

Si vous avez des idées je suis preneur.

[Gilbert Geyer]

application qui compare les style de deux document ...
passe son temps à lire sur le disque dur

As tu essayé, au lieu de passer le temps à brouter le disque-dur, d'envoyer chacun des deux fichiers à comparer dans un TMemoryStream copié 1 fois pour toutes (avec CopyFrom), à partir d'un TFileStream chargé, si possible en une seule traite (et non caractère par caractère sinon c'est plus du flux), également 1 fois pour toutes ?.
Une fois tes fichiers logés dans le TMemoryStream tu bénéficies de la speed de la memoire vive.

[Clorish]

As tu essayé, au lieu de passer le temps à brouter le disque-dur, d'envoyer chacun des deux fichiers à comparer dans un TMemoryStream copié 1 fois pour toutes (avec CopyFrom), à partir d'un TFileStream chargé, si possible en une seule traite (et non caractère par caractère sinon c'est plus du flux), également 1 fois pour toutes ?.
Une fois tes fichiers logés dans le TMemoryStream tu bénéficies de la speed de la memoire vive.

Et comme ca c'est pas plus simple ?

Code :

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

1
2
3
4
 
Var MS : TMemoryStream;
MS := TMemoryStream.Create;
MS.LoadFRomFile(MonFichierDoc);

[Gilbert Geyer]

Exact, je l'avais oubliée la LoadFromFile ... c'est bien plus simple et plus direct !

[peyo_le_fou]

Je vais essayer mais je sais pas du tout si ca va marcher car c'est word qui doit ouvrir ce fichier, je vais pas le lire comme un flux, enfin c'est meme pas moi qui vais le lire c'est Word.

[peyo_le_fou]

Bon bah c'est pas possible ou j'y arrive pas.
Sa maurait étonné que ca marche aussi.