Je cherche ce Code eb VB6, y a qlq1 qui en a une réponse ?

Je pose la question et je répond :p

Il y à quelque chose que je ne comprends pas avec l'UTF8 et j'espères que vous pourrez me répondre.
en effet, si code la lettre 'é' grace à la fonction font vous parlez (et j'obtient le meme résultat avec beaucoup d'autre code qui font la meme chose avec ou sans les API), j'obient ceci: é
cependant, si je prend Outlook express, que je précise le codage en UTF8, et que je meme dans le sujet mon 'é', le source du message me donne ceci en sujet: =?utf-8?B?w6k=?=. sachant que la chaine =?utf-8?B? signifie que ce qui y'a après est coder en UTF8 et que ?= signifie que c'est la fin de la chaine codée, je me retrouve avec mon 'é' codé ainsi: w6k !!! comme expliquer cette différence, et surtout, puisque ca parrait etre une norme (plusieurs logiciels de messagerie sont capable d'interpréter correctement le sujet de cet email) ou trouver de la doc la dessus afin d'etre capable de faire une fonction sachant me lire ce fameux 'w6k' ????

en fait, dans la chaine =?utf-8?B?, seulement '=?utf-8' signifie que c'est de l'UTF8, et ensuite, '?B?' signifie que c'est aussi coder en Base64. (si ca avait été par exemple =?utf-8?Q?, le ?Q? aurait signifier que le reste est coder en UTF8 et en Quotted Printable (pas de codage en fait)).
Voila, bah il ne reste qu'a passer mon fameux w6k= dans un decodeur Base64, j'obtient bien é qui en UTF8 donne é

Pour le truc que Outlook:
en fait, dans la chaine =?utf-8?B?, seulement '=?utf-8' signifie que c'est de l'UTF8, et ensuite, '?B?' signifie que c'est aussi coder en Base64. (si ca avait été par exemple =?utf-8?Q?, le ?Q? aurait signifier que le reste est coder en UTF8 et en Quotted Printable (pas de codage en fait)).
Voila, bah il ne reste qu'a passer mon fameux w6k= dans un decodeur Base64, j'obtient bien é qui en UTF8 donne é...

Oups
j'ai un probléme dans mon code
j'ai passé des heure à le cherché .....
en fin c'est dû à DelphiProg
hihiihihih
Le format généré des fichier contient des fois des erreurs dû à un chr(13) qui manque :
  try
    while not Eof(F) do
    begin
      ReadLn(F, S1);
      S := S + S1   + chr(13);  // -----> §!!!!!!!?????
    end;
  finally
    CloseFile(F);
  end;

mais arrête eest-ce que je suis aussi stupid ?
Je travail depuis 2.5 ans
je un prog
????????!!!!!!!!!

ah bon je ne le savait pas ça

Merci beaucoup

le code a était posé dans lee but de me donner une réponse et non pas dans le but d'avoir la premiére place dans un ....
parsuite le 10/10  est ma seule façon de le remercier pour ses effort.

qui vous a donné 1/10
hihihih
moi je t'es donné 10/10
et merci
merci pour toi aussi MAURICIO