Discussion :

[NicoSab]

Bonjour à tous ceux qui me liront,

Avant de poster, j'ai bien entendu écumé Google ainsi que l'aide.
Malheureusement je ne trouve pas de solution à mon problème qui doit être tout bête.

Alors voilà, j'ai une application client (WDM17) qui prend des photos et à chaque prise de photo les envoies sur le serveur (WD17).
Voilà ce que j'ai coté client :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
//on met l'image dans un buffer
BuffFile=fChargeTexte(chImage)
BuffFile=Crypte(BuffFile,"",crypteAucun)
//envoie de l'image par socket
EnvoiMessage(cstPHOTO,BuffFile,0)

Le client reçoit la socket sous cette forme

Ensuite le serveur éxecute ce code ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
SI ExtraitChaîne(SansEspace(sMessage),7) <> "FIN" ALORS
bufBufferPhoto = ExtraitChaîne(SansEspace(sMessage),7)
bufBufferPhoto = Décrypte(bufBufferPhoto,"",crypteAucun)
//On récupére le chemin où enregistrer la photo
ResFichierTempUnique = fOuvre(fRepExe()+"\CheminPhoto.txt")
SI ResFichierTempUnique = -1 ALORS
Erreur(ErreurInfo())
SINON
//On lit les infos de la photo
sCheminPhotoTSP = fLitLigne(ResFichierTempUnique)
FIN
bResulat = fSauveBuffer(sCheminPhotoTSP,bufBufferPhoto)
SI bResulat = Faux ALORS
InfoJournalEvenements("Echec sauveBuffer"+ bResulat)
SINON
InfoJournalEvenements("Buff "+bufBufferPhoto)
FIN

Après quoi j'ai bien la photo dans le répertoire où elle devrait être (plus grosse que celle d'origine, 170Ko sur le client et 279Ko sur le serveur)
Mais c'est là ou je me heurte à mon problème, l'image ne peux pas être ouverte.


Même résultat avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonBuffer = dSauveImageJPEG(MonImage,enMemoire

) coté client et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

BooleanResultat = fSauveText(CheminOùEnregistrerMonImage,MonBufferViaSocket)

coté serveur.

Auriez-vous une idée de solution ?

Merci de m'avoir lu et pour vos éventuelles réponse.

[Nicolas_Jeanneau]

Bonjour,

je pense que tu n'utilises pas les bonnes fonctions. Regarde si les fonctions dImageVersTabeau , et dTransfertVersImage ne pourraient pas correspondre à tes besoins. Tu devrais alors pouvoir transférer le contenu du tableau entier vers le serveur qui fera le travail inverse à partir du pointeur vers ce tableau.

Je n'utilise pas ces fonctions donc je ne sais pas si elles iront jusqu'au bout de tes besoins mais ce sont celles qui me paraissent les plus adaptées.

bon courage,

Nicolas

[NicoSab]

Bonjour Nicolas et merci pour cette réponse,

Je vais regarder de suite ces 2 fonctions et vous tiendrais informé.

Cordialement,
NicoSab

[NicoSab]

Re-bonjour à tous,

Suite au commentaire de Nicolas voilà ce que j'effectue (je ne suis pas très compétent) :
Client WDM17

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
BuffFile est un Buffer
tabLuminance est un tableau de * par * entiers
bufTableau est un Buffer
//Affichage de l'image dans le champ image
cimgVisualisation = chImage
//On met l'image en mémoire dans un buffer
BuffFile = dSauveImageJPEG(cimgVisualisation,enMémoire)
//On met l'image dans un tableau
dImageVersTableau(BuffFile, tabLuminance, dComposanteRouge + dNiveauDeGris + dComposanteBleu +dComposanteVert)
//On sérialise le tableau dans un buffer binaire pour l'envoi par socket
Sérialise(tabLuminance,bufTableau,psdBinaire)
//on envoi la socket
EnvoiMessage(cstPHOTO,bufTableau,0)

Coté Serveur WD17

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
imgPhoto est une Image
tabLuminance est un tableau de * par * entiers
//on recupere le buffer de la socket
bufBufferPhoto = ExtraitChaîne(SansEspace(sMessage),7)
//on désérialise le buffer dans un tableau
Désérialise(tabLuminance,bufBufferPhoto,psdBinaire)
//on créé l'image à partir du tableau de couleur
imgPhoto = dTransfertVersImage(&tabLuminance,imgBVR,1600,1200)
//on enregistre l'image
bResulat = dSauveImageJPEG(imgPhoto,sCheminPhotoTSP)

Malheureusement aucune image ne se créé...auriez vous une idée ?

Merci de m'avoir lu et pour vos éventuelles réponses.

Cordialement,
NicoSab

[NicoSab]

Merci à tous pour votre aide, je vous partage la solution que j'ai trouvé si certain en aurait besoin.
Coté Client :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
chImage est une chaîne //Chemin et nom de la photo prise
chCrypteImage est une chaîne UNICODE
//Affichage de l'image dans le champ image
cimgVisualisation = chImage
//on passe au deuxieme plan pour visualiser la photo
FEN_Photo..Plan = 2
//On charge la photo dans un buffer
BuffFile = fChargeBuffer(chImage)
//Chiffrement du buffer enBase64 pour gerer les caractères non imprimable
chCrypteImage=Crypte(BuffFile,"",compresseAucun,encodeBASE64)
//Envoie de la socket contenant l'image, le numero dossier et le nom
EnvoiMessage(cstPHOTO,chCrypteImage+TAB+NumDossier+TAB+chImage,0)

Et pour le serveur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
//Reception de la Photo
sCheminPhotoPoste = ComplèteRep("D:\WINSUR\PHOTO\"+ExtraitChaîne(SansEspace(sMessage),8))
sCheminPhoto = ExtraitChaîne(SansEspace(sMessage),9)
NomPhoto = ExtraitChaîne(sCheminPhotoTSP,rangDernier,"\")
//Chemin complet où sera enregistrée la photo
sCheminPhotoTSP =  sCheminPhotoPoste+["\"]+NomPhoto
 
//sauvegarde de l'image présente dans la socket avec son chemin et nom de destination
fSauveBuffer(sCheminPhoto,Décrypte(ExtraitChaîne(SansEspace(sMessage),7),"",encodeAucun,encodeBASE64))

ExtraitChaîne(SansEspace(sMessage),7) est la partie de la socket contenant le buffer de l'image chiffrée
ExtraitChaîne(SansEspace(sMessage),8) est la partie de la socket contenant le numero du dossier où enregistrer la photo
ExtraitChaîne(SansEspace(sMessage),9) est la partie de la socket contenant le nom de la photo à enregistrer

Merci à tous et n'hésitez pas si vous avez des remarques.

Cordialement,
NicoSab