PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 25 → WB - Como redimensionar uma imagem antes de exibi-lo (a geração de miniaturas)?
WB - Como redimensionar uma imagem antes de exibi-lo (a geração de miniaturas)?
Débuté par BOLLER ADRIANO, 28 juin 2016 01:30 - Aucune réponse
#1
Membre enregistré
3 659 messages
Popularité : +175 (223 votes)
Posté le 28 juin 2016 - 01:30
Como redimensionar uma imagem antes de exibi-lo (a geração de miniaturas)?

//Aqui está um exemplo de código que executa este tratamento:

// Onde "Image1" é o nosso campo de imagem

ImageInfo é uma string
s CheminImage é string = FolderWeb () + "/AUTO18.jpg"
s CheminImageMiniature é string = FolderWeb () + "/Miniature.jpg"

// Recovery altura informações e largura do JPG
// o campo de imagem é dimensionada de 100%
ImageInfo = BitmapInfo (sCheminImage)
Image1 ..Width = Val (ExtractString (ImageInfo 2))
Image1 ..Height = Val (ExtractString (ImageInfo, 3))
Image1 = sCheminImage // Aqui nós exibir a imagem no nível de seu tamanho. //


podemos usar a regra de três para dar uma dimensão exata.
Image1 ..Width = Image1..Largeur / 3
Image1 .. height = Image1..Hauteur / 3 // Guardar imagem em sua nova dimensão.


dSaveImageJPEG (Image1, sCheminImageMiniature)
ImageApres = " ./../Miniature.jpg "


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
→ Revenir à WINDEV 25