|
Cambiar resolución de una imagen |
Débuté par Lluís, 11 déc. 2014 19:35 - 4 réponses |
| |
| | | |
|
| |
Membre enregistré 5 messages |
|
Posté le 11 décembre 2014 - 19:35 |
Hola,
¿Cómo puedo modificar la resolución de una imagen?.
Es decir, sin cambiar las dimensiones (ancho x alto), modificar la resolución (dpi o ppp).
Por ejemplo, si tengo una imagen de 800x600 a 150dpi, convertirla a una imagen de 800x600 a 120dpi.
Muchas gracias por anticipado.
-- Salu2. Lluís Dedeu |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 392 messages Popularité : +12 (12 votes) |
|
Posté le 12 décembre 2014 - 03:00 |
Hola Luis, he encontrado una discucion en frances, con DELPHI, pero hay detalles muy interessantes. Tienes que cambiar una informacion en el archivo JPG par que los DPI sean diferentes.
Te dejo el enlace, y si algo no esta claro, te ayudare.
http://www.developpez.net/forums/d931918/environnements-developpement/delphi/langage/modifier-dpi-d-image/
Cordialmente, Michel.
-- If it works, don't touch it, don't look at it, AND don't fix it ! No patches, no SP ! JUST DONT FIX IT. |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 392 messages Popularité : +12 (12 votes) |
|
Posté le 12 décembre 2014 - 03:07 |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 5 messages |
|
Posté le 12 décembre 2014 - 12:26 |
Michel,
Muchas gracias por las dos informaciones!!!
Intentaré a través de cambiar los datos EXIF a ver si lo consigo.
-- Salu2. Lluís Dedeu |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 392 messages Popularité : +12 (12 votes) |
|
Posté le 20 décembre 2014 - 05:23 |
Hola Lluis, encontre un poco de codigo WD por internet, si esto te puede facilitar las cosas .
Exemple de code permettant d`obtenir les infos EXIF :
SELON ImageInfoValeur(sFichierImage ,imgUnitéResolution) CAS 2 sRésolution = "(pouces)" CAS 3 sRésolution = "(centimètres)" AUTRES CAS sRésolution = "" FIN
SELON ImageInfoValeur(sFichierImage ,imgFlash) CAS 0 sFlash = "non déclenché" CAS 1 sFlash = "déclenché" CAS 5 sFlash = "déclenché et lumière de retour non détectée" CAS 7 sFlash = "déclenché et lumière de retour détectée" AUTRES CAS sFlash = "" FIN
SI PAS HExécuteRequête(Categories_dun_DATA,hRequêteDéfaut,nIDImage) ALORS Erreur(HErreurInfo()) SINON
TableAffiche({NomFen+".Table_Categories_dun_DATA"},taInit)
{ NomFen+".LibelléDetail"} = +... "Nom image : " + Data.Nom + CR +... "Enregistré dans le fichier le : " + DateVersChaîne(Data.DateAjout, "AAAA:MM:JJ") + " " + HeureVersChaîne(Data.HeureAjout, "HH:MM:SS" + CR + ... "Date de la prise de vue : " + ImageInfoValeur(sFichierImage,imgDate) + CR + ... "dimension : " + Data.Largeur + " X " + Data.Hauteur + CR + ... "Compression : " + ImageInfoValeur(sFichierImage,imgCompression) + CR + ... "Bits/Pixel : " + Data.BitsPixell + CR + ... "RésolutionX : "+sRésolution+" : " + ImageInfoValeur(sFichierImage,imgRésolutionX) + CR + ... "RésolutionY : "+sRésolution+" : " + ImageInfoValeur(sFichierImage,imgRésolutionY) + CR + ... "Format : " + Data.Extension + CR +... "Marque de l`APN : " + ImageInfoValeur(sFichierImage,imgMarqueAppareil) + CR + ... "Modèle de l`APN : " + ImageInfoValeur(sFichierImage,imgModèleAppareil) + CR + ... "Distance prise de vue : " + ImageInfoValeur(sFichierImage,imgDistanceSujet) + CR + ... "Flash : " + sFlash + CR + ... sLocalisation + CR + ... sChemin) FIN
-- If it works, don't touch it, don't look at it, AND don't fix it ! No patches, no SP ! JUST DONT FIX IT. |
| |
| |
| | | |
|
| | | | |
| | |
|