Discussion :

[Harry]

Euh, cpdump, le pb c'est que c'est un projet VCL dans delphi 2005, ce n'est pas compatible avec l'unité vers lequel tu m'as dirigé, je vais quand meme regarder pour voir si je peux copier des concepts utilisés, mais l'unité ne marchera pas.

[Harry]

SixBits contient 252 juste avant le plantage.



Voici les valeurs de sixbits à chaque étape :

0
32
61
252

Merci

[cpdump]

La fonction que je t'ai donné au début était bien plus simple et assez facile à convertir avec un stream.

Code :

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

1
2
3
for i := 1 to Length(s) do
  begin
    x := Ord(s[i]);

donne (à verifier le nom de la propriété pour size)

Code :

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

1
2
3
4
5
6
car: byte;
 
for i := 0 to stream.size - 1 do
  begin
    stream.readbuffer(car, 1);
    x := integer(car);

[Harry]

Ahh, merci cpdump, en effet vu comme ca c'est effectivement plus facile, j'avais essaye un temps de la modifier mais je n'avais pas réussi, du coup en voyant la fonction de sjrd je l'avais trouvé plus clair, plus facile à comprendre.

Mais en effet ta fonction avec les modifs semble marcher !!, du moins, ca ne plante pas, néanmoins j'ai un doute, le webservice refuse le format de ce qui est dans la balise... je ne sais pas si c'est a cause de la technique d'encodage, si il y a erreur ou autre.

Merci beaucoup cpdump ainsi qu'a sjrd, qui, tel un chevalier Jedi, s'est demené pour m'aider à realiser cette fonction, je met le tag Résolu en attendant la reponse du responsable du webservice, je réouvrirai le sujet si ce n'était pas bon

[cpdump]

Tu peux tester pour voir si tu as le même résultat avec les outils dos (je crois qu'ils rajoutent un en tête)
http://www.filelibrary.com:8080/cgi-bin/freedownload/DOS/l/7/base64.zip

Peut être que le webservice veut un en-tête, un format partitculier (par ex. pas plus d'un certain nombre de caractères par ligne).

[sjrd]

Merci beaucoup cpdump ainsi qu'a sjrd, qui, tel un chevalier Jedi, s'est demené pour m'aider à realiser cette fonction

Arrête tu vas me faire rougir...

[Harry]

Je ressort ce sujet de la naphtaline....

Ca na passe pas au niveau du webservice car il y a pas un nombre de caractères multiple de 4 dans le résultat

J'ai essaye d'ajouter des 0 en ascii direct dans le résultat (avant le reste) mais ca n'a pas apprécié, j'ai remarqué que Outloook ajoute un '=' à la fin de la chaine lui, je vais essayer de faire pareil mais le '=' ça fait pas partie de la chaine de caractères base64

Si vous savez quoi faire dites le moi

Merci,

A++

[EDIT]avec un seul '=' en fin de chaine ca à lair de passer, je sais pas ce que ca va donner sur une photo qui demandera plus de 'rembourrage'.
Je peux pas tester tout de suite, j'ai un plantage d'origine inconnue juste après et delphi 2005 fait des siennes... (freeze tout avec le cpu à 100% pendant plusieurs minutes à la pluspart des lignes en pas à pas...) donc pour l'instant je remet le sujet dans la Naphtaline

[/EDIT]