IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

XMLRAD Discussion :

defaillance irremédiable


Sujet :

XMLRAD

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Août 2002
    Messages
    130
    Détails du profil
    Informations forums :
    Inscription : Août 2002
    Messages : 130
    Par défaut defaillance irremédiable
    Bonjour,

    J'ai ajouté un gros morceau de code Delphi via un évènement beforeinstruction (j'ai essayé aussi dans un afterxmlgram) et le framework me renvoie un message d'erreur 'Défaillance irrémédiable' lorsque j'execute la DLL. En deboguant la DLL , je m'apperçoie que ça plante sur l'instruction begin de ma procédure ??? Je suppose donc que c'est dans la partie définition des variables et des fonctions qu'il y a un problème. La particularité de cette procédure est que 2 fonctions y sont définies ainsi qu'un type structuré contenant un tableau. voici le debut du code
    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
    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
    procedure TxmGestAbs.ValidHORAIRESAfterInstruction(
      XMLInstruction: IXMLInstruction; InputDoc, OutputDoc, Input,
      Output: IXMLCursor);
     
    type
        Tabenreg = record
            DateReal : Tdate;
            Prevu : array[1..1440] of byte;
            Realise : array[1..1440] of byte;
        end;
     
    var
      WUser,Wnumrec : String;
      dDernierEnreg       : TDateTime;
      indG, indM, ind_finp, ind_finr, ind_debp, ind_debr : Integer;
      zDateReal : TDate;
      zEcartPrevReal : double;
      TabPlage : array[1..100] of TabEnreg;
      FlagPremierPassage : boolean;
     
     
    function CalculInd(zHoraire: TDateTime): integer;
     
        var
            H,M,S,MS : Word;
        begin
            decodetime(zHoraire,H,M,S,Ms);
            result := H * 60 + M;
        end;
     
    function CalculEcart(zDateReal: TDate): Double;
     
        var
            SommeHeureRea,SommeHeurePrevu : Double;
            Sol_Rea,Sol_Prevu  : word;
            indMl,indGl : integer;
     
        begin
            indGl := 0;
            indMl := 0;
            Sol_Rea := 0;
            Sol_Prevu := 0;
            repeat
            indGl := indGl + 1;
            until zDateReal = TabPlage[indGl].DateReal;
            For indMl := 1 to 1440 do
                begin
                    if TabPlage[indGl].Realise[indMl] = 1 then
                        Sol_Rea := Sol_Rea + 1;
                    if TabPlage[indGl].Prevu[indMl] = 1 then
                        Sol_Prevu := Sol_Prevu + 1;
                end;  }
             SommeHeureRea := encodetime((Sol_Rea DIV 60),(Sol_Rea mod 60),0,0);
             SommeHeurePrevu := encodetime((Sol_Prevu DIV 60),(Sol_Prevu mod 60),0,0);
             result := SommeHeureRea - SommeHeurePrevu;
        end;
     
    begin
     
      if XMLInstruction.Name = 'DateEnreg_Maj' then
      Begin
     
      WUser := Context.Values['User'];
    Quelqu'un a t-il une piste ? Pour info cette procédure tournait dans un programme CGI Delphi . Je suis en train de migrer le projet sous XMLRAD, et il s'agit maintenant d'une DLL ISAPI. La déclaration des fonctions est peut être différente ?

  2. #2
    Membre confirmé
    Inscrit en
    Août 2002
    Messages
    130
    Détails du profil
    Informations forums :
    Inscription : Août 2002
    Messages : 130
    Par défaut nouvelle info
    JE n'ai pas de réponses à mon post mais j'ai isolé le bout de code qui fait planter la DLL . Il s'agit de la ligne suivante
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    TabPlage : array[1..100] of TabEnreg;
    Si qqun a maintenant une idée...

  3. #3
    RDM
    RDM est déconnecté
    Membre Expert

    Profil pro
    Inscrit en
    Mars 2002
    Messages
    1 424
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2002
    Messages : 1 424
    Par défaut
    en terme plus clair, c'est un "stack overflow" ;-)

Discussions similaires

  1. [VBA-EXCEL] Autofit defaillant lorsque > 255 caracteres
    Par doringen dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 13/02/2007, 16h21
  2. [Mail] Mail et include défaillant
    Par mLk92 dans le forum Langage
    Réponses: 10
    Dernier message: 26/07/2006, 12h02
  3. Aide pour realiser un arbre de defaillances
    Par Pierre9one dans le forum Algorithmes et structures de données
    Réponses: 3
    Dernier message: 16/03/2006, 20h15
  4. defaillance systeme
    Par zitoun dans le forum Ordinateurs
    Réponses: 6
    Dernier message: 06/02/2006, 16h07
  5. [] [Install] Défaillance de page dans vb6stkit.dll
    Par ThierryAIM dans le forum Installation, Déploiement et Sécurité
    Réponses: 4
    Dernier message: 22/11/2002, 11h02

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo