Problème Exécution en Release mais pas en Debug

Version imprimable

Voir 40 message(s) de cette discussion en une page

03/08/2007, 16h17
nono27200

Problème Exécution en Release mais pas en Debug

Bonjour à tous,

Je suis face à un problème que je n'arrive pas à résoudre... J'espère que les pros du VB seront là pour y remédier...
Je suis en train de porter une appli VB6 de Windows 2000 Server vers Windows 2003 Server. POur le moment, tous mes composants passent bien (Dll(s) et Exe(s)) mais j'ai un dernier Exe qui me sert à tester une fonctionnalité du programme.
Ce dernier passe avec succès en mode Debug, mais lorsque je crée l'exe et que je le lance, lorsque j'arrive sur une des fonctionnalités, le programme me sort une erreur : Run-time error '440': Automation error

Je n'arrive pas à comprendre d'où cela peut venir..... Surtout qu'en mode Debug, tout fonctionne à merveille....

Donc je m'en remets à vous... Je ne sais plus où chercher....

En espérant que quelqu'un puisse me venir en aide !!!!

++
03/08/2007, 16h36
Vld44

CreateObject qui pointe sur une dll avec path en dur.
03/08/2007, 17h00
nono27200

Je suis en train de reprendre tout le code (que je n'ai pas développé moi-même... ça aurait trop simple :? ) pour voir où il, pourrait y avoir un CreateObject un peu bizaroïde.....

Mais pour ce qui est du path en dur j'ai un léger doute car entre ma machine en Windows 2000 (qui fontionne bien depuis plusieurs années) et mon serveur en 2003 (qui je l'espère fonctionnera un jour) j'ai exactement la même arborescence de répertoires....??

Est-ce vraiment la seule option possible que d'avoir un path en dur dans un CreateObject ou cela peut venir d'autre part ?? Je ne suis pas assez calé en VB pour pouvoir juger de cela, et j'avance petit à petit, à tatons.....

Si d'autres personnes ont des idées, tout le monde est le bienvenu.!!!!!!!!

Encore merci pour votre aide !!

++
03/08/2007, 17h25
Vld44

arrête de tout mélanger ...

1) met des traces pour savoir où ça plante
2) rien avoir avec l'OS, car si ça marche en release c'est bon

T'as fait une recherche dans ton soft avec "Createobject" ?
03/08/2007, 17h36
nono27200

Oui, je viens de faire une recherche des CreateObject et j'ai mis un point d'arrêt sur chaque CreateObject présent dans le programme (Exe et Dll dépendantes), mais je ne m'arrête nulle part.....???... :(

J'ai aussi essayé autre chose : Copier / Coller le fichier Exe depuis mon serveur 2000 vers mon 2003 (je n'ai copié que l'exe et pas les dll) mais là je me retrouve, dès le lancement de l'exe avec une erreur run-time error '-2147221231 (80040111)' Automation error ClassFactory cannot supply requested class

Toi qui est expert en la matière, si je copie l'intégralité des exe et dll depuis mon serveur 2000 vers mon 2003 avec la même arborescence en référençant bien mes dll et mes ocx, tu penses qu'il n'y a aucun problème pour la migration 2000 vers 2003 ?

Encore merci pour ton aide !!!!!
03/08/2007, 17h59
ced600

Utilises tu des objets WMI ou des librairies windows ?
Parce que certaine méthode de ces librairies peuvent ne plus exister sous 2003, ou plus chiant, certaines méthodes peuvent avoir un comportement différent.

En général quand cela marche en debug et pas en release c'est qu'il y a un problème au niveau de l'édition de liens.
03/08/2007, 18h06
Vld44

nan faut le trouver ton problème, et moi pour ma culture personnelle je veux savoir d'où ça vient exactement.

Met des breakpoints de partout qui te sortent des messagebox step by step et repère où ça pète précisément, dans ton code.
06/08/2007, 09h34
nono27200

Merci pour vos réponses.
Je m'y colle et je vous donne des news dès que j'ai trouvé qqch

Mais mon problème est que même si je mets des points d'arrêt, ça ne se plante pas.

En fait ce que j'appelle la "release" est l'exécution de l'exe... Je ne sais pas si je me suis bien exprimé sur ce point.
En fait quand j'exécute le code en faisant "play" dans VisualStudio6, tout passe bien, mais quand je crée l'exe et que je le lance, ça se plante !!

Si vous avez des idées pour que je puisse savoir d'où ça peut venir...???

++
06/08/2007, 10h00
nono27200

Librairies utilisées pour le projet

Voici la liste des librairies utilisées pour le projet :

Visual Basic For Applications
Visual Basic runtime objects and procedures
Visual Basic objects and procedures
OLE Automation
Microsoft XML, v3.0
Microsoft Scripting Runtime
Microsoft Visual Basic 6.0 Extensibility
Microsoft Internet Controls ->(shdocvw.dll)
Microsoft Internet Controls ->(shdocvw.oca)
Microsoft ActiveX Data Objects 2.6 Library
Micsosoft Active Server Page Object Library
Micsosoft Active Server Page ObjectContext Object
TIBCO Rendezvous 7.2 (librairie Tibco qui nous sert à envoyer / recevoir des données temps réel entre applications)

Je ne sais pas si ça peut vous éclairer sur un éventuel problème...???

Je me remets au boulot pour trouver la résolution de ce problème !!

++
06/08/2007, 10h26
OhMonBato

Comme te le suggérait vld, on a bien compris que ça plante pas en mode édition mais uniquement sur l'exe. Donc puisque tu ne peux pas mettre de point d'arret sur un Exe, mets des msgbox à differents endroits de ton programme, du style "Programme arrivé à la phase 1", "Programme arrivé à la phase 2", etc...
Différencies tes messages box, s'ils ont tous le meme message ça va pas être pratique. :mouarf:
Tu sauras donc ensuite que ton programme plante entre telle et telle msgbox. Si tu les a pas mal espacé dans ton code, remet des messages box intermédiaires dans la zone de plantage. Est ce plus clair ?
06/08/2007, 10h34
nono27200

Oui, c'est plus clair !! J'avais lu un peu trop rapidement le message ...

Je vais commencer à les mettre et je vous donne des news...

Encore merci :D

++
06/08/2007, 11h06
ced600

Citation:

En fait quand j'exécute le code en faisant "play" dans VisualStudio6, tout passe bien, mais quand je crée l'exe et que je le lance, ça se plante !!

J'aimerais bien avoir plus d'info la dessus : Fait tu play avec ou sans point d'arrêt.
En gros est ce que cela à déjà fonctionner en mode débug sans mettre de point d'arrêt ?

Avancée dans l'analyse de l'erreur

Citation:

J'aimerais bien avoir plus d'info la dessus : Fait tu play avec ou sans point d'arrêt.
En gros est ce que cela à déjà fonctionner en mode débug sans mettre de point d'arrêt ?

Oui, cela fontionne avec ou sans point d'arrêt indéfféremment, quand je le lance en faisant "Play" dans VisualStudio6.

Citation:

Je vais commencer à les mettre et je vous donne des news...

Je viens de trouver le moment exact où ça plante.
J'explique rapidement comment fontionne le programme. Il y a des boutons sur le form et on a des boutons qui sont actifs ou inactifs suivant le stade d'avancement (il y a par exemple un bouton Create, Puis un bouton Initialiser qui s'active quand le Create a fini, etc...)
A un moment, je fais un Load File, et il passe dans le code ci-dessous
Tout se passe bien pour le moment (tm a un state = 2)
Puis je clique sur un autre bouton, et tm a toujours state = 2 (c'est voulu que le state de tm ne change pas entre les deux clics)
Donc je repasse au même endroit, je rentre bien dans le if
Et il se plante sur le "LastTimeLabel.Caption = "NO VALUE AVAILABLE""
Pour mémoire, Je me retrouve avec une erreur :
Run-time error '440':
Automation error
Code:

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 If tm.GetState = 2 Then LastTimeLabel.Caption = "NO VALUE AVAILABLE" If lt2 = -1 Then LastTimeValideLabel.Caption = "NO VALUE AVAILABLE" Else LastTimeValideLabel.Caption = CStr(lt2) & " s" & ", " & CStr(lt2 / LastDealCount) & " s/deal" End If Frame2.Enabled = True Frame2.Caption = "Lot en cours - " & tm.GetCurrentTKBlockID 'Frame3.Enabled = True 'LogGrid.Visible = True StatusLabel.ForeColor = &HC000& StatusLabel.Caption = "(2) TRANSACTING" CreateBtn.Enabled = False InitBtn.Enabled = False BeginBtn.Enabled = False PriceBtn.Enabled = True RollbackBtn.Enabled = True CommitBtn.Enabled = False CancelPriceBtn.Enabled = False DestroyBtn.Enabled = True SaveBtn.Enabled = True LoadBtn.Enabled = True CopyBtn.Enabled = True PasteBtn.Enabled = True LoadDealBtn.Enabled = True UpdateDealBtn.Enabled = False RemoveDealBtn.Visible = True AddDealBtn.Visible = True AddDealBtn.Enabled = True InstrCombo.Visible = True DealList.Visible = True ViewerBtn.Visible = True Viewer2Btn.Visible = True Exit Sub

06/08/2007, 11h25
nono27200

Petite précision sur l'analyse de l'erreur

Je viens de tester de mettre en commentaire le
"LastTimeLabel.Caption = "NO VALUE AVAILABLE""

A ce moment là il plante sur le suivant (LastTimeValideLabel.Caption = "NO VALUE AVAILABLE")

et ainsi de suite.......

++
06/08/2007, 11h26
Vld44

tu as tronqué le code ? Il manque un End if quelque part là.

NB : essaye de lancer ton projet sous Visual Studio, en debug donc, mais en faisant CONTROLE + F5 au lieu de F5.

Dis moi ce qu'il se passe ... :)
06/08/2007, 11h33
nono27200

Citation:

tu as tronqué le code ? Il manque un End if quelque part là.

Oui désolé,
En fait juste après la dernière ligne de code "End Sub", il y a le End If"
Le code que j'ai mis est en fait une partie d'une fonction. Pour des raisons de confidentialité du client, je suis désolé, mais je dois en mettre le moins possible...

Citation:

essaye de lancer ton projet sous Visual Studio, en debug donc, mais en faisant CONTROLE + F5 au lieu de F5.
Dis moi ce qu'il se passe ...

C'est la même. Tou se passe nickel !!???!!!
Ce qui est hallucinant, c'est qu'au premier passage, en exe, le "LastTimeLabel.Caption = "NO VALUE AVAILABLE"" passe nickel, mais au second passage, il se plante lamentablement ......??
06/08/2007, 13h56
Vld44

t'as combien de projets dans ton exe, un seul ou plusieurs ? (groupe de projet)

qu'est-ce que c'est comme composant LastTimeLabel ?

a+

Citation:

t'as combien de projets dans ton exe, un seul ou plusieurs ? (groupe de projet)

J'ai un seul Exe, et 3 Dll auxquelles je fais appel, mais ces Dll sont liées en référence, ce n'est pas un groupe de projets.

Citation:

qu'est-ce que c'est comme composant LastTimeLabel ?

C'est un type Label classique (j'affiche un label dans mon formulaire)

Je viens de tester la chose suivante (le code ci-dessous est une partie du code que j'ai envoyé ci-avant)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 If tm.GetState = 2 Then MsgBox (LastTimeLabel.Caption) LastTimeLabel.Caption = "NO VALUE AVAILABLE" If lt2 = -1 Then LastTimeValideLabel.Caption = "NO VALUE AVAILABLE" Else LastTimeValideLabel.Caption = CStr(lt2) & " s" & ", " & CStr(lt2 / LastDealCount) & " s/deal" End If Frame2.Enabled = True Frame2.Caption = "Lot en cours - " & tm.GetCurrentTKBlockID 'Frame3.Enabled = True 'LogGrid.Visible = True StatusLabel.ForeColor = &HC000& StatusLabel.Caption = "(2) TRANSACTING" '........etc.............. End Sub End If
Lors du lancement de la MsgBox, il me plante avec la même erreur ('440'), comme si mon objet semblait ne pas exister, alors que je suis dans le même formulaire et que je suis déjà passé sur ce code avant en cliquant sur le 1er bouton...???
Clic sur Bouton1 appelé dans le code InitBtn : je passe dans le code avec un state = 2 et tout se passe bien
Clic sur bouton2 appelé dans le code PriceBtn : Lors de l'appel aux composants du formulaire, il me plante....???

ET TOUT ça UNIQUEMENT EN RELEASE ....?????........

:arf:

06/08/2007, 14h25
ced600

Une possibilité est que tu détruis ton lasttimelabel après la première exécution et donc il n'est plus accessible à la deuxième exécution.
Vérifie si tu ne le detruis pas.
06/08/2007, 14h25
OhMonBato

Soit ce n'est pas une copie brute de ton code, soit y'a erreur parce que "End if" APRES "End Sub" ça le fait pas.... ;)

Mais on ne sait pas d'où vient cette procédure... Est elle dans le code de la feuille où sont placés tes contrôles ? Dans un module à part ? Peux tu essayer en précisant le nom de ta feuille avant le nom du contrôle voir si tu as toujours l'erreur ?

Voir 40 message(s) de cette discussion en une page