Discussion :

[Fëanor 06]

Hello !

Bon, je poste car je deviens fou...

J'utilise un OpenFileDialog pour aller chercher un fichier, comme ceci :

Code :

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

1
2
3
4
5
6
 
Dim FileName As String
...
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
     FileName = OpenFileDialog1.FileName
     ...

A la première utilisation, aucun problème.
Mais si je réutilise l'OpenFile (sans quitter le prog), ça plante lamentablement sur une

Tentative de lecture écriture en mémoire protégée....

Je me suis dit qu'il fallait vider tout ça avant de réutiliser la fonction mais je n'y parviens pas :

Code :

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

1
2
3
 
OpenFileDialog1.Dispose
OpenFileDialog1.Reset

Rien ne marche...

Et ça ne vient pas du fichier car l'erreur apparaît immédiatement après avoir cliqué sur le bouton appelant le OpenFile.

Je précise que je suis sur MS VB 2008 Express sous W7 (mais ça faisait pareil sous XP...).

Si quelqu'un a une idée, moi je suis sec...

Merci bcp !!!

[ostenhard]

Bonjour,

Une solution simple de contournement est qu'au lieu d'utiliser un openfiledialog déposé en tant que composant sur ta form, tu crées un nouveau openfiledialog par code à chaque appel.

Code :

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

1
2
3
Dim openDialog as new OpenFileDialog
' les options
if openDialog.ShowDialog() = ...

[Fëanor 06]

Merci de ta réponse, mais cela fait pareil...
C'est fou, le premier coup fonctionne, pas le 2ème.
J'ai pourtant bien ajouté ta ligne et supprimé le OpenFileDialog sur le Designer.

J'avais essayé beaucoup de déclarations et il m'avait semblé que c'était le ShowDialog qui posait problème...

[ostenhard]

Pas possible fait voir ton code complet !

[Fëanor 06]

Je suis désolé, il est énorme, c'est pas que je veux pas le mettre mais je veux pas trop t'embêter non plus... pour l'instant juste la fonction, sachant qu'il se passe pas grand chose avant...

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
 
Private Sub But_Pil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But_Pil.Click
 
        Results.Dispose()
 
        Dim FileName As String
        Dim Extension As String
 
        Cal_SGI = True
 
        'Idem avec ou sans (et objet dans le Designer)
        Dim OpenFileDialog1 As New OpenFileDialog
 
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            FileName = OpenFileDialog1.FileName
            Extension = New System.IO.FileInfo(FileName).Extension
            If Extension <> ".sgi" And Extension <> ".rgb" Then
                MsgBox("It's not a sgi image file!")
                Ecrire_Fichier_Log("It's not a SGI/RGB image file!")
                Exit Sub
            Else            
                Results.Show()
            End If
        End If
    End Sub

[Fëanor 06]

En isolant la fontion dans un projet simple je n'arrive pas à reproduire, je ne vois pourtant pas ce qui peut perturber un OpenFileDialog, dans Results, qui est affiché à la fin et qui, a priori le perturbe, il n'y a que des affichage divers et pas de réutilisation de OpenFileDialog...

Je continue à étoffer jusqu'à ce que je reproduise le problème...

Merci

[Arnard]

Tu fais un Result.Dispose et plus loin un Result.Show, ce qui peut expliquer ton souci. Une fois Dispose appelé, il est risqué/déconseillé d'appeler des méthodes sur cet objet.

Result représente quel type d'objet ? Ta current Form ? Une autre Form ?

[champomy62]

salut,
j'ai eus le même problème que toi. Pour ma part ça fonctionnait très bien sur windows XP et 1 fois sur 2 sur seven . J'ai fais les 2 méthodes ( par code et designer ). J'ai remarquais qu'il y avaient des mises à jours du .NET client profile et depuis que je les ai fait, je n'ai plus aucun problème...

EDIT : J'ai remarqué aussi que la version 2 d'openfiledialog fonctionne très bien alors que la 4 pose problème..

[Fëanor 06]

Hello,

Arnard, en fait j'ai désactivé l'appel (et le Dispose) et ça plante, un peu moins mais bon, ça ne résout pas. J'ai l'impression que moins il y a de traitement, moins ça plante mais qu'en fait ce n'est pas lié aux traitements en eux même (qui ne sont "que" du traitement d'image).

champomy62, merci, je vais essayer de mettre à jour.
Par contre, tu parles d'une version 2 et d'une 4 d'openfiledialog, est-ce en relation avec la màj .NET, peut-on choisir entre les deux ?

Merci à tous !

[Fëanor 06]

champomy62, j'ai la version .NET Framework Client Profile 4.0.30319 du 6 octobre 2010, et toujours le problème...

J'Edit mon post :
Non en fait il n'est pas présent dans les références du projet, c'est toujours le 2, par contre, il y a des dizaines de dll dans le dossier du 4, la ou lesquelles faut-il ajouter ?

PS : désolé mais j'en reviens à la version du openfiledialog, tu dis que la 2 fonctionne mieux mais alors pourquoi installer la .NET 4... comprends po

[Fëanor 06]

Je précise, et j'ai d'autres questions, dans les références de mon projet, je pointe sur :
C:\Windows\Microsoft.NET\Framework\v2.0.50727\Microsoft.Build.Framework.dll

J'ai également un dossier Framework64... à utiliser à la place ?
Si je passe dessus, mon soft ne tourneras que sur du 64 bits ?

[Fëanor 06]

J'ai trouvé ce qui fait planté le OpenFileDialog.

C'est cette ligne, juste après le OpenFileDialog :

Code :

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

1
2
 
TestFileSGI(FileName, SizeX, SizeY, Planes, Bit, InfoPtr) Then

La fonction pointe vers une Dll qui renvoie des infos de l'image, c'est le pointeur InfoPtr, qui contient le header qui ne lui plait pas...

Voici la déclaration juste au dessus :

Code :

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

1
2
 
Dim InfoPtr As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(Info(80)))

Et l'utilisation juste après la fonction :

Code :

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

1
2
3
 
Dim Info(80) As Char
Info = CType(Marshal.PtrToStringAnsi(InfoPtr, 80), Char())

Ce qui est bizarre c'est que le soft marche une fois et plante à la seconde... enfin je pense que je dois mal utiliser la mémoire...
Et en plus, il ne plante pas sur cette ligne mais sur le OpenFileDialog...

Par contre, quand je commente l'appel, ça marche à tous les coups.

J'ai essayé de vider mais ça ne marche pas :

Code :

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

1
2
 
Marshal.FreeHGlobal(InfoPtr)

[champomy62]

Bah en tout cas sois patient parce que moi en tout cas il s'est résolue tout seul le problème ... ^^

Non je penses pas que tes lignes de code après influent quoi que ce soit... Ca tient plus du composant en lui même je pense..(dites moi si j'ai tord). Sinon j'avais pensé à utilisé un composant tiers libre..

[champomy62]

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
Dim OfdImporter As New OpenFileDialog
 
OfdImporter.Filter = "Fichiers texte *.txt|*.txt"
        OfdImporter.Title = " Importer "
 
 
       With OfdImporter
 
            .FilterIndex = 1
            .RestoreDirectory = True
            .CheckFileExists = True
            .CheckPathExists = True
            .ValidateNames = True
 
            If (.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
 
                 ' ton traitement
 
            End if
 
       End with

[Fëanor 06]

Super, merci !

[champomy62]

ça fonctionne ?

EDIT : ta plus de bug ?

[Fëanor 06]

Ben en fait j'avais déjà plus de bug, j'ai modifié mon appel à la DLL pour ne plus gérer un Marshall Alloc. Mais sinon ta solution doit marcher également.

Par contre pourquoi avant ça marchait un coup sur deux... probablement pour les raisons que tu as indiqués.

Merci beaucoup en tous cas !

[Sehnsucht]

Bonsoir,

Étant donné que la classe OpenFileDialog implémente l'interface IDisposable il pourrait être "judicieux" (pour ne pas dire indispensable) de l'utiliser dans une clause Using afin que les ressources qu'il accapare soient bien libérées:

Code :

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

1
2
3
4
 
Using ofd As New OpenFileDialog
    '...
End Using

Cordialement !

[champomy62]

Ok c'est vrai que c'est intéressant. Par exemple avec ma solution si je fais un dispose(), est-ce correct aussi ?

[Sehnsucht]

Ok c'est vrai que c'est intéressant. Par exemple avec ma solution si je fais un dispose(), est-ce correct aussi ?

Tu peux, même s'il est facile d'oublier; par contre il faut être sûr de passer par lui c'est à dire utiliser une construction dans ce genre

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim ofd As OpenFileDialog
Try
    ofd = New OpenFileDialog
    ' ...
Catch ex As Exception
    ' Gestion des exceptions (optionnelle)
Finally
    If Not ofd Is Nothing Then ofd.Dispose()
End Try

Cordialement !