Discussion :

[titou31000]

Bonjour à tous!!

J'ai un soucis avec une application Delphi, je la ance normal, ca marche et quand je souhaite lancer une fonction, j'ai un petit message sympa qui apparait

classe d'Exception EAccessViolation avec le message "Violation d''acces 0046BC9B dans le module"

J'ai fait quelques recherches et ca aurait à voir avec une dll...

Vous en pensez quoi?

Merci

[andreditdd]

Pas grand chose sans le code de la fonction qui lève l'exception

[titou31000]

Bonjour,

Lors de cette erreur, j'ai cette ligne qui est surlignée en rouge

Code :

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

p_OLEApp.Selection.Find.ClearFormatting;

[ShaiLeTroll]

Tu as vérifier que tous les objets sont correctement initialiser ?

p_OLEApp est-il un OLEVariant (Late Binding) ou un TWordDocument (Early Binding) ?

Ton code est je suppose inspiré de la FAQ Word > Modification du texte

[titou31000]

Le p_OLEApp est passé en paramètre dans ma fonction, et c'est bien un OLEVariant.

[titou31000]

Avez-vous déjà entendu ce problème de dll??

Merci

[ShaiLeTroll]

tu l'instancie comment le paramètre passé à p_OLEApp ?

Une Violation d'Accès, c'est tellement banal, d'où sors-tu que cela vient d'une DLL ! laquelle ?

[titou31000]

En fait, mon programme marchait normal et depuis hier aprem, ca me met cette erreur...

Le p_OLEApp n'est pas vraiment instancié mais ca marchait quand même.

Dans mon journal d'évènement, j'ai un chargement de module sxs.dll et de suite apres j'ai cette exception qui se lève

[ero-sennin]

Salut,

Et si tu nous montrais un peu de code, car comme c'est parti, on risque de ne pas aller bien loin ...

[titou31000]

Salut,

voici un bout le code de ma fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function Extraction.Analyser(p_OLEApp : OLEVariant;p_Style, PatternDebExi
, PatternFin, StyleDesc : string; PosDesc,Loc,TypeExtract,ordreExi,indiceDoublon,sourceExi : integer; DescrLong : boolean;liste : IStrMap) : IStrMap;

var

 Trouvee : boolean;
  CorpsExpReg,CorpsExpRegv2,PageExi,RefExi,TitreExi,ParaExi,DescLongue,verifExi : string;
  RegExpExi : IRegex;
  mc : IMatchCollection;
begin
  if (PosDesc = 1) or (PosDesc = 2) then
  begin
    CorpsExpReg := '<'+ PatternDebExi +'?*^13';
  end else
    CorpsExpReg := '<'+ PatternDebExi +'?* ';

  CorpsExpRegv2 := '^\s*(' + PatternDebExi + '\w*\s?)(.*)';
  RegExpExi := Regex.Create(CorpsExpRegv2);
  // recherche dans le document
  p_OLEApp.Selection.Find.ClearFormatting;
  // recherche par expression réguliere
  p_OLEApp.Selection.Find.Text := CorpsExpReg;
  p_OLEApp.Selection.Find.MatchWildcards := true

En rouge, là où on me met l'erreur

[ShaiLeTroll]

Regex c'est le nom de classe d'implémentation du IRegex
Ce n'est pas plutôt CoRegex ou TRegexp de C++Builder ?

Regex ? System.Text.RegularExpressions.Regex ?
c'est .NET ? Delphi Prism ???
Tu as importé cette classe en Delphi Win32 ?

[titou31000]

Bonjour,

oui j'ai importé un code VB qui a été réécrit pour Delphi. Mais je ne pense pas que l'erreur proviennent des expressions regulières.

[titou31000]

Personne ne voit donc d'où cela peut venir??

[ShaiLeTroll]

as-tu essayé uniquement ?

Code :

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

1
2
p_OLEApp := CreateOleObject('Word.Application');
p_OLEApp.Selection.Find.ClearFormatting;

Au fur et à mesure, tu ajoutes des fonctionnalités pour retrouver ta situation actuelle (peu importe la gueule du code, c'est pour débugguer), peut-être qu'à un moment donné ça plantera, il est possible que ce n'est pas la fonction ClearFormatting qui plante mais la façon dont Selection ou Find ont été initialisé ou un effet de bord imprévu d'un autre objet, parfois le débuggueur s'arrête mais pas au bon endroit dans la pile d'exception

[titou31000]

Oui je viens d'essayer de faire ce que tu m'a dit mais l'erreur est toujours la!! En intégrant mon code petit à petit aussi je retrouve la même erreur!! Je pense que cette fonction ClearFormatting pose bien problème.. ce qui m'étonne c'est que cette erreur soit survenue il y a peu de temps, avant elle ne venait pas pourrir mon programme!!

[titou31000]

Bonjour,

j'ai trouvé ce qui n'allait pas, j'essayais de faire une sélection sur un document que je n'avais pas ouvert auparavant!! J'ai rajouté une ligne pour l'ouverture du document et tout se passe bien!!

Merci à tous de vous être penchés sur mon problème!!

Bonne journée!!