Discussion :

[zooffy]

Bonjour

Je cherche sur le net depuis deux heures et je trouve un script qui revient tout le temps, mais en C# et visiblement, ça ne se traduit pas en VB.

Bref, mon idée est de pouvoir modifier la largeur d'une image qui vient d'être uploadée sur le serveur.

Alors j'essaie avec le fameux script qui utilise un System.Drawing.Image, mais y a un truc que je capte pas, l'histoire du CallBack (voir code plus bas)
Donc, soit ça marche pas en VB (ce que j'ai vu sur je sais plus quel forum), soit je suis un crétin !
Mais peut être qu'il y a une autre méthode ?

Voici le code que j'essaie de faire fonctionner :

Code :

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

1
2
3
4
 
imageUrl = "/exemple/images/" & imageUrl 
Dim fullSizeImg As System.Drawing.Image = System.Drawing.Image.FromFile(Server.MapPath(imageUrl)) 
Dim dCallBack As New System.Drawing.Image.GetThumbnailImageAbort(ThumbnailCallback)

Sur le ThumbnailCallback il me dit :

System.Drawing.Image.GetThumbnailImageAbort' est un type délégué et il requiert une seule expression 'addressof' en tant qu'unique argument du constructeur.

Et voici l'originale en C# (pour les bilingues)

Code :

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

1
2
3
4
 
imageUrl = "/exemple/images/" + imageUrl;
System.Drawing.Image fullSizeImg = System.Drawing.Image.FromFile(Server.MapPath(imageUrl));
System.Drawing.Image.GetThumbnailImageAbort dCallBack = new System.Drawing.Image.GetThumbnailImageAbort(ThumbnailCallback);

Merci pour votre aide.

[tomlev]

Code :

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

1
2
3
imageUrl = "/exemple/images/" & imageUrl 
Dim fullSizeImg As System.Drawing.Image = System.Drawing.Image.FromFile(Server.MapPath(imageUrl)) 
Dim dCallBack As New System.Drawing.Image.GetThumbnailImageAbort(AddressOf ThumbnailCallback)

enfin je crois...

[lutecefalco]

Le code de tomlev devrait marcher

[zooffy]

Trop fort les gars, merci.

Bon, maintenant, les soucis qui en découlent :
d'abords, fucking Autocomplétion. Si elle c'était mise en route au bon moment j'aurais vu cette erreur et surtout j'aurais mieux compris. Bref !

Sinon, ça passe, disons que le code ne présente plus d'erreur.

Maintenant j'ai un autre soucis et je comprends pas ce que me raconte la doc. Une fois que me transformation est faite, je peux enregistrer le fichier.

si je lui file le même chemin il me plante une "erreur générique dans GDI+" et si je change le nom du fichier il em dit :

ERREUR: Le processus ne peut pas accéder au fichier 'c:\inetpub\wwwroot\App_Themes\GeneralMeet\PhotoMembre\65bb1386-fa7b-4938-a9f0-1853c8998f8cph1.jpg', car il est en cours d'utilisation par un autre processus.

Et là je vois pas bien comment faire pour contourner ce problème.

Mon code actualisé :

Code :

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

1
2
3
4
 
Dim fullSizeImg As System.Drawing.Image = System.Drawing.Image.FromFile(NomCheminPhoto)
        Dim dCallBack As New System.Drawing.Image.GetThumbnailImageAbort(AddressOf ThumbnailCallback)
        fullSizeImg.GetThumbnailImage(400, 300, dCallBack, IntPtr.Zero).Save(Replace(NomCheminPhoto, ".jpg", "tum.jpg"))

[tomlev]

C'est parce que quand tu ouvres une image avec FromFile, le fichier reste ouvert... 2 solutions possibles :
- ouvrir un FileStream sur le fichier, créer l'image à partir du FileStream (Image.FromStream), et refermer le FileStream
- lire les données binaires du fichier avec File.ReadAllBytes, créer un MemoryStream sur ces données, et créer l'image à partir du MemoryStream (encore Image.FromStream)

[zooffy]

Merci tomlev.

L'ennui c'est je capte rien à ce que raconte la doc du FileStream. La manipulation de fichier n'est pas mon truc apparement.

J'arrive pas à comprendre comment on lie le FileStream au fichier sur le serveur. Tu aurais un bout de code en exemple ?

[tomlev]

L'ennui c'est je capte rien à ce que raconte la doc du FileStream. La manipulation de fichier n'est pas mon truc apparement.

J'arrive pas à comprendre comment on lie le FileStream au fichier sur le serveur. Tu aurais un bout de code en exemple ?

C'est pourtant pas bien compliqué

En plus tu me fais écrire du code VB.NET alors que j'ai horreur de ça

Bon, alors de tête ça donne ça :

Code :

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

1
2
3
4
5
imageUrl = "/exemple/images/" & imageUrl 
Dim stream As New FileStream(Server.MapPath(imageUrl), FileMode.Open, FileAccess.Read)
Dim fullSizeImg As System.Drawing.Image = System.Drawing.Image.FromStream(stream)
stream.Close()
...

[zooffy]

Merci pour ton aide et pour ton effort sur le VB.

J'avasi pas compris la chose comme ça, effectivement c'est simple, mais bon, je devais avoir la tête farcie hier.

Sinon, je viens de mettre le code en place. Mais il est pas content avec le chemin que je lui file.
il me dit qu'il est pas valide et qu'il veut un chemin relatif ou absolu.
Je lui passe ça comme argument, qu'il me restitue dans le mesage d'erreur et le chemin est bon et pointe bien sur un fichier présent sur le disque :

c:\inetpub\wwwroot\App_Themes\GeneralMeet\PhotoMembre\65bb1386-fa7b-4938-a9f0-1853c8998f8cph1.jpg

Là, je sèche.

[zooffy]

Je viens de faire une autre essai qui me parassait débile et là, j'y perds mon assembleur :
avec ce chemin là :

c:/inetpub/wwwroot/App_Themes/GeneralMeet/PhotoMembre/65bb1386-fa7b-4938-a9f0-1853c8998f8cph1.jpg

il me fait un message d'erreur tout pourri :

Mémoire insuffisante.

sur le ligne de code qui retaille l'image.
Dedieu, j'ai 2 Go de RAM sur ma machine !

Déjà que le chemin est tout pourri, mais en plus il gère rien comme il faut dérrière.

Vois tu d'où pourrait venir le souci ?

[tomlev]

euh... alors là je vois plus
si le chemin du fichier est bon, je vois pas pourquoi il rale...

sinon pour le coup de la mémoire insuffisante, commence par redémarrer...