WB Site web pour poster un message à une page webdev

Bonjour,
Je suis dans le besoin, SVP , d'un exemple de site webdev , en général awp ou session, qui reçoit un fichier. je galère depuis 24H sans direction.

J'ai même trouver de la LST 69, mais quand je le recompile, il ne marche pas. Mais je voulais un truc simple. En fait , je veux envoyer des images à Whatsapp et pour ce faire je dois avoir un truc pareil et envoyer le lien à whatsapp.
Merci

à l'explication c'est pourtant simple.

Voici le code du bouton windev
[windev]// Code windev (Client) d'envoi automatique
NomFormulaire est une chaîne = "FormulaireUpload"
CheminFichierLocal est une chaîne = "C:\abb\teo.txt" // À modifier selon votre besoin

// L'URL pointe bien sur le fichier physique compilé en .awp
URL_Serveur est une chaîne = "

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

"
//URL_Serveur = "

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

"
//URL_Serveur = "

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

"

URL_Serveur = "

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

"

//URL_Serveur = "

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

"



// 1. Préparation du formulaire
HTTPCréeFormulaire(NomFormulaire)
HTTPAjouteParamètre(NomFormulaire, "X-Auth-Token", "MaCleSecreteHyperLongueEtSecurisee123!")
HTTPAjouteParamètre(NomFormulaire, "X-Client-ID", NetNomMachine())
HTTPAjouteFichier(NomFormulaire, "A8", CheminFichierLocal, "application/octet-stream")
//HTTPAjouteFichier(NomFormulaire, "FichierMultiPart", CheminFichierLocal, "application/octet-stream")

// 2. Envoi automatique en POST
SI HTTPEnvoieFormulaire(NomFormulaire, URL_Serveur, httpPost) ALORS

// Lecture du texte renvoyé par le ChaîneAffiche du webdev
RéponseServeur est une chaîne = HTTPDonneRésultat(httpRésultat)

// 3. Analyse du résultat
SI Position(RéponseServeur, "OK :") > 0 ALORS
Trace("Succès : " + RéponseServeur)
SINON SI Position(RéponseServeur, "SÉCURITÉ :") > 0 ALORS
Trace("Échec critique de sécurité : " + RéponseServeur)
SINON
Trace("Erreur retournée par webdev : " + RéponseServeur)
FIN

SINON
Trace("Erreur de connexion réseau (Serveur injoignable) : " + ErreurInfo())
FIN
[/windev]


Voici le code de la page principale, awp


[windev]// Code d'initialisation de PAGE_upload_auto (Serveur)
S_TokenRecu est une chaîne
S_MachineCliente est une chaîne
S_TokenAttendu est une chaîne = "MaCleSecreteHyperLongueEtSecurisee123!"

// 1. Extraction des paramètres
S_TokenRecu = PageParamètre("X-Auth-Token")
S_MachineCliente = PageParamètre("X-Client-ID")

// --- LOG DE DIAGNOSTIC FIABLE ---
// On écrit dans le répertoire sécurisé des données du site webdev
CheminLog est une chaîne = fRepDonnées() + [fSep] + "debug_upload.txt"
ContenuLog est une chaîne = [
--- NOUVEL APPEL ---
Date/Heure : [%DateVersChaîne(DateDuJour())%] [%HeureVersChaîne(HeureSys())%]
Token reçu : [%S_TokenRecu%]
Machine : [%S_MachineCliente%]
]

// Si le token est vide, on enrichit le log avant d'arrêter
SI S_TokenRecu = "" ALORS
ContenuLog += CR + "Résultat : ÉCHEC - Token vide !"
// On écrit le fichier sur le serveur (crée ou ajoute à la suite)
fSauveTexte(CheminLog, ContenuLog)

ChaîneAffiche("DIAGNOSTIC : Le serveur webdev n'a reçu aucun Token.", typeMimeTexte)
//FinProgramme()
FIN

// Si le token est bon, on note le succès dans le log
ContenuLog += CR + "Résultat : Sécurité OK, traitement du fichier..."
fSauveTexte(CheminLog, ContenuLog)

[/windev]
code réception fichier :
dans le champ UPLOAD de la la page de réception :
[windev]// Événement : Réception des fichiers uploadés (Serveur) de FichierMultiPart
S_NomFichierRecu est une chaîne
S_RepertoireDestination est une chaîne = fRepDonnées() + [fSep] + "Uploads"
S_MachineCliente est une chaîne = PageParamètre("X-Client-ID")

RésultatAJAX est une chaîne = ""

// Syntaxe AWP propre avec indice 1
//A8
SI UploadNomFichier("A8", 1) <> "" ALORS
//SI UploadNomFichier("FichierMultiPart", 1) <> "" ALORS

SI PAS fRépertoireExiste(S_RepertoireDestination) ALORS
fRepCrée(S_RepertoireDestination)
FIN

S_NomFichierRecu = UploadCopieFichier("A8", S_RepertoireDestination, "", 1)
//S_NomFichierRecu = UploadCopieFichier(FichierMultiPart, S_RepertoireDestination, "", 1)

SI S_NomFichierRecu <> "" ALORS
RésultatAJAX = "OK : Fichier reçu de " + S_MachineCliente
SINON
RésultatAJAX = "ERREUR : Copie du fichier impossible sur le serveur."
FIN
SINON
RésultatAJAX = "ERREUR : Aucun fichier trouvé à l'indice 1."
FIN

// En AJAX, on utilise RENVOYER au lieu de ChaîneAffiche / FinProgramme
RENVOYER RésultatAJAX[/windev]

Je cherche un cas qui marche.
Merci

 

Bonjour,
Mon problème c'est le fichier attachéé en fait. et je voulais une autonomie. Je regarde ça et je te reviens.
Autre choses, c'est mon le webservice rest qui va gérer. Merci. Ce n'est pas humain

 

pour 39$ par mois, pour à peine 50 message, ce n'est pas justifiable. C'est uniquement parce que dois sauvegarder un lien pour les documents.

 

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

Bonjour

J'ai d'autres lien API Whatsapp pour tester si tu veux ???

Salutations

Cliquez pour agrandir...