Discussion :

[JLuc01]

Bonsoir,

Je ne comprends pas cet histoire de "Option strict On disallows Late Binding".
Voici le code en question:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Using fs As New FileStream(myPath, FileMode.Open, FileAccess.Read)
            Dim img As Image = Bitmap.FromStream(fs)
            '
            Dim cloneRect As Rectangle = New Rectangle(0,0,200,200)
            Dim format As System.Drawing.Imaging.PixelFormat = img.PixelFormat
            '
            Dim cloneBitmap As Bitmap = img.Clone(cloneRect, format)    ' <= Option strict On disallows Late Binding
            cloneBitmap.Save("c:\bitmaps\test.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
End Using

Les explications que je trouve sur internet ne sont pas tres claires ou alors il se fait tard et je devrais aller me coucher.
Peut-on m'expliquer ce probleme? Et encore mieux, le resoudre dans mon code.

Merci,
A+
JLuc01

[clementmarcotte]

Bonjour,

Je risque une hypothèse parce que je n'ai jamais vu ce*message d'horreur.

Ici tu définis un objet Image:

Code :

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

 Dim img As Image = Bitmap.FromStream(fs)

Ici tu veux faire la conversion, disons implicite, d'un objet image en objet Bitmap.

Code :

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

 Dim cloneBitmap As Bitmap = img.Clone(cloneRect, format)

' <= Option strict On disallows Late Binding

Or, Option Strict est supposé interdire les conversions implicites... et c'est peut-être juste le "mauvais" message d'horreur.

Je suppose qu'il te manque un Ctype en chemin.

Mais j'avoue que je suis plutôt "délinquant". Je n'utilise pas Option Strict. J'ai débuté avec les conversions implicites, il y a 30 ou 40 ans; et je n'ai jamais fait le dernier grand pas. J'ai juste réussi à me rendre à option explicit.

[JLuc01]

Merci pour votre aide, votre explication confirme ce que je pensais.

Pourtant, je pense avoir deja essayer quelquechose comme ca hier soir sans succes:

Code :

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

1
2
 
Dim cloneBitmap As Bitmap = CType(img.Clone(cloneRect, format), Bitmap)

Je pensais aussi que Bitmap heritait de Image, donc pas besoin de conversion.
En fait, j'ai peut-etre la reponse ici.

J'essayerais de nouveau ce soir, car je me demande si je ne melange pas un peu tout.

A+
JLuc01

[JLuc01]

OK. J'ai finalement trouve. Du moins, le "Late Binding" est parti.

Code :

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

1
2
 
Dim img As Bitmap = CType(Bitmap.FromStream(fs), Bitmap)

Merci,
JLuc01