GÉNÉRER UNE VIGNETTE À PARTIR D'UNE IMAGE JPEG/BMP, VIA L'OBJET ASPIMAGE

Signaler
Messages postés
2
Date d'inscription
jeudi 4 mars 2004
Statut
Membre
Dernière intervention
16 août 2004
-
Messages postés
15
Date d'inscription
mardi 7 octobre 2003
Statut
Membre
Dernière intervention
7 février 2013
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/25331-generer-une-vignette-a-partir-d-une-image-jpeg-bmp-via-l-objet-aspimage

Messages postés
15
Date d'inscription
mardi 7 octobre 2003
Statut
Membre
Dernière intervention
7 février 2013

Salut,

ça marche plutôt bien, mais je cherche à créer deux images en même temps.
C'est à dire une basse def et une vignette.

Est-ce que le composant le gère ?

Merci
Messages postés
32
Date d'inscription
vendredi 12 septembre 2003
Statut
Membre
Dernière intervention
4 avril 2007

Le composant d'évaluation que l'on récupére sur le site du fournisseur est toujours anti daté. Pour faire des tests, il faut reculer la date du serveur.
Messages postés
237
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
31 août 2009

http://82.228.80.72/tests/upload/index.asp

voila c sur mon serveur et mon code ( c long car en fait 'j'up le fichier puis j'essai de le redim :

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Document sans titre</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>


<%

'------------------------------------------------------------
Public sub UploaderFichier(mySmartUpload, strAdresse)
'------------------------------------------------------------
'--- upload fichier a une adresse donnée
'------------------------------------------------------------

Dim Fichier

'On error resume next'si erreur on continue quand meme

'mySmartUpload.MaxFileSize = 5000' Taille maximale autorisée : 5 Ko
'mySmartUpload.AllowedFilesList = "gif,jpg"' Upload autorisé sur les gif et jpg uniquement

mySmartUpload.Upload' Selectionne chaque fichier

For each Fichier In mySmartUpload.files
If not Fichier.IsMissing Then

strFichier = Fichier.FileName
Fichier.SaveAs(strAdresse & "" & strFichier)' Upload du fichier

End If
Next

if err.number =0 then 'test si erreur
direc= "
"'si pas erreur alors on affichera l'image dl
else
direc="une erreur c produite : "& strAdresse & "" & strFichier &"
"'si erreur alors on affiche l'erreur
end if

response.Write(direc)

Image_S strAdresse, strFichier

End sub

Public Sub Image_S(strAdresse, strFichier)

Dim Image
Dim nImgX, nImgX_S
Dim nImgY, nImgY_S

on error goto 0


'--- Création de l'objet image
Set Image = Server.CreateObject("AspImage.Image")
response.Write("Objet
")

'--- Chargement de l'image
Image.LoadImage strAdresse & "" & strFichier
nImgX=Image.MaxX
nImgY=Image.MaxY
response.Write("Image : " & strAdresse & "" & strFichier & "
X:" & nImgX & " Y:" & nImgY & "
")

'--- Calcul des dimension
nImgX_S=200
nImgY_S=int((200*nImgY)/nImgX)
response.Write("Dimension X:" & nImgX_S & " Y:" & nImgY_S & "
")

'--- On redimensionne l'image en fonction des valeurs calculées
Image.DPI=72
Image.ImageFormat=1
Image.ResizeR nImgX_S, nImgY_S
response.Write("Redim
")


'--- On sauvegarde
Image.FileName = strAdresse & "" & "small_" & strFichier
response.Write("Adresse : " & strAdresse & "" & "small_" & strFichier & "
")

if Image.SaveImage then 'test si erreur
direc= "
"'si pas erreur alors on affichera l'image dl
else
direc="une erreur c produite : "& Image.Error &"
"'si erreur alors on affiche l'erreur
end if
response.Write("Save : " & strAdresse & "" & "small_" & strFichier & "
")

response.Write(direc)
Set image=nothing
End sub


'------------------------------------------------------------------------------------------------------------------

if request.queryString("Action")="Upload" then
response.expires=0 'ça je sais pas
response.buffer=true'ça je sais pas non plus


On error resume next' Gérer les erreur
' Variables

Dim mySmartUpload 'ce qui permet d'up le fichier

Dim strAdr 'Adresse du fichier

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")' Création de l'Objet







strAdr=Server.MapPath("\Tests\Upload")'à changer pour installer ou vous le voulez

'--- Upload les fichiers à l'adresse strAdr
UploaderFichier mySmartUpload, strAdr

set mySmartUpload=nothing'Si aucune erreur s'est produite on redirige vers uploadok.asp



End if
%>
<form method="POST" action="index.asp?action=Upload" enctype="multipart/form-data">



</form>

</html>
Messages postés
237
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
31 août 2009

mdr maintenant g :
ASPImage.Image error '8000ffff'

This evaluation component has expired. Please register.

alors que g pas réussi à m'en servir ....
ya moyen de cracker la dll tu penses ?
t'a u ce pb toi ?
Afficher les 15 commentaires