Comment changer la taille d'une image
SAMI
-
transat Messages postés 28379 Date d'inscription Statut Contributeur Dernière intervention -
transat Messages postés 28379 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je cherche a changer la taille d'une image pour l'enregistrer d'ans un dossier avec une autre taille .
j'ai trouver ce code mais j'ai pas bien compris .
<%
Dim Path, File, rapport
Set ctrl = server.createobject("GflAx.GflAx")
Path = "\\SGG-INTRA-DEV\Sharing\imageserver\RemoteGadgets\PromoLibrary\"
File = Request.QueryString("File2Zip")
If File <> "" Then
File = Replace(File, "ZZZ", "&")
const AX_JPEG = 3
const AX_Tol6Colors = 16
With ctrl
.LoadBitmap Path & File
rapport = 75/ .Width
.Resize 75, .Height * rapport
.Saveformat = AX_JPEG
response.ContentType = "image/jpeg"
response.BinaryWrite .SendBinary
End With
End If
Set ctrl = Nothing
%>
merci pour votre aide
je cherche a changer la taille d'une image pour l'enregistrer d'ans un dossier avec une autre taille .
j'ai trouver ce code mais j'ai pas bien compris .
<%
Dim Path, File, rapport
Set ctrl = server.createobject("GflAx.GflAx")
Path = "\\SGG-INTRA-DEV\Sharing\imageserver\RemoteGadgets\PromoLibrary\"
File = Request.QueryString("File2Zip")
If File <> "" Then
File = Replace(File, "ZZZ", "&")
const AX_JPEG = 3
const AX_Tol6Colors = 16
With ctrl
.LoadBitmap Path & File
rapport = 75/ .Width
.Resize 75, .Height * rapport
.Saveformat = AX_JPEG
response.ContentType = "image/jpeg"
response.BinaryWrite .SendBinary
End With
End If
Set ctrl = Nothing
%>
merci pour votre aide
A voir également:
- Comment changer la taille d'une image
- Changer dns - Guide
- Comment réduire la taille d'un fichier - Guide
- Reduire taille image - Guide
- Changer carte graphique - Guide
- Image iso - Guide
