AIDE [RESOLU] Contrôle des images avant de poster

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Il faut regarder

Code (Windev):

monrequest est une Structure
    id est une chaîne
    timestamp est une chaîne
    operations  est une entier
 
FIN
manudite est une Structure
    raw,Partial,safe sont des réels
 
FIN
monmedia est une Structure
    uri,id sont des chaînes
 
FIN
lastructurejson est une Structure
    status est une chaîne
    lerequest est un monrequest
    lanudite est un manudite
    lemedia est un monmedia
 
FIN
cc est une chaîne=[
    {
    "status": "success",
    "request": {
    "id": "req_VjyxevVQYXQZ1HMbnwtn",
    "timestamp": 1471762434.0244,
    "operations": 1
    },
    "nudity": {
    "raw": 0.000757,
    "partial": 0.000763,
    "safe": 0.999243
    },
    "media": {
    "id": "med_KWmB2GQZ29N4MVpVdq5K",
    "uri": "[URL]https://sightengine.com/assets/img/examples/example2.jpg[/URL]"
    }
    }
]

stMastructurejson est une lastructurejson
vMonProduit est un Variant =

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(cc)

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(stMastructurejson,cc,psdJSON)
 

C'est un truc de ce genre, Ce n'est pas encore ça, mais ça ressemble à ça

Cliquez pour agrandir...

[windev]CheminImage est une chaîne
CheminImage = AlbumSélecteur(albumImage)
SI CheminImage = "" ALORS
Erreur(ErreurInfo())
RETOUR
FIN

IMG_Image = CheminImage
oRequête est un restRequête
oRequête.Méthode=httpPost
oRequête..URL="

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

"

oRequête.ContentType=typeMimeJPEG

oRequête.Contenu=dChargeImage(CheminImage)
oRequête..Entête["api_user"] = API_User
oRequête..Entête["api_secret"] = MDP
//oRequête..Entête["media"] = buffer fichier //
response est une restRéponse= RESTSend(oRequête)
//cc est un buffer = response
SI ErreurDétectée ALORS
Erreur(ErreurInfo(errComplet))
SINON

stMastructurejSON est une lastructurejson
vMonProduit est un Variant = JSONVersVariant(response.Contenu)
bufProduit est un Buffer
sProduit est une chaîne ANSI
// Sérialisation de l'élément
//Sérialise(stMastructurejSON, sProduit, psdJSON)
// Désérialisation vers l'élément
Désérialise(stMastructurejSON,vMonProduit, psdJSON)
// pour tout ss de vMonProduit
LIB_Statut= ChaîneConstruit("Pas de nudité : "+RC+"Nudité partielle : "+RC+"Nudité brute : ",...
stMastructurejSON.lanudite.safe,stMastructurejSON.lanudite.Partiale,stMastructurejSON.lanudite.raw)

// fin
FIN[/windev]