Delphi: problèmes d'encodage CDO.Message

Question

Nous avons écrit un programme Delphi qui envoie des informations avec CDO.

Dans ma machine Win7 (hongrois) les accents fonctionnent bien. Donc, si j'ai envoyé un mail avec "ÁÉÍÓÖŐÚÜŰ", je l'ai eu dans ce format. J'ai utilisé le codage iso-8859-2 dans le corps, ce qui code le sujet et les adresses électroniques (l'adresse de l'expéditeur contient le nom).

Je pensais avoir fini avec ça.

Mais lorsque je tente d'envoyer un mail d'une machine anglaise Win2k3 (le serveur de diffusion est le même!), Le résultat est tronquer quelques accents: U = U O = O

Ensuite, j'essayé d'utiliser Encodage UTF-8 ici.

Cela fourni des accents - mais de faux accents.

Le courrier contient des accents avec des signes ^.

ê <> é

Ce n'est pas lettre valide ... :-(hongrois

Je veux savoir, comment je convertir ou configurer l'entrée que je suis bon résultat.

J'ai essayé de connecter le corps pour voir est des changements ...

Log(SBody); 
Msg.Body := SBody; 
Log(Msg.Body); 

... ou non.

Mais ces journaux fournissent un bon résultat, l'entrée est bonne.

Il est donc possible de perdre et de mal interpréter le message généré par CDO. Puis-je aider le CDO si je peux encoder le texte ANSI en UTF réel. Mais dans Delphi, les fonctions du convertisseur n'ont pas de paramètres "CodePage". En Python je peux dit:

s.encode('iso-8859-2') 

ou

s.decode('iso-8859-2') 

Mais à Delphes, je ne vois pas ce paramètre.

Quelqu'un sait-il, comment préserver les accents, comment convertir les cordes accentuées hongroises pour leur préserver le format accentué?

Et je veux savoir, puis-je vérifier le résultat sans envoyer le courrier?

Merci pour votre aide: dd

Answer 1

une recherche rapide Google avec « codepage chaîne delphi » m'a fait torry's delphi pages et peut-être les codesnippets suivants (trouvés here) peut faire la lumière sur votre problème:

{:Converts Unicode string to Ansi string using specified code page. 
    @param ws  Unicode string. 
    @param codePage Code page to be used in conversion. 
    @returns Converted ansi string. 
} 

function WideStringToString(const ws: WideString; codePage: Word): AnsiString; 
var 
    l: integer; 
begin 
    if ws = ' then 
    Result := ' 
    else 
    begin 
    l := WideCharToMultiByte(codePage, 
     WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR, 
     @ws[1], - 1, nil, 0, nil, nil); 
    SetLength(Result, l - 1); 
    if l > 1 then 
     WideCharToMultiByte(codePage, 
     WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR, 
     @ws[1], - 1, @Result[1], l - 1, nil, nil); 
    end; 
end; { WideStringToString } 


{:Converts Ansi string to Unicode string using specified code page. 
    @param s  Ansi string. 
    @param codePage Code page to be used in conversion. 
    @returns Converted wide string. 
} 
function StringToWideString(const s: AnsiString; codePage: Word): WideString; 
var 
    l: integer; 
begin 
    if s = ' then 
    Result := ' 
    else 
    begin 
    l := MultiByteToWideChar(codePage, MB_PRECOMPOSED, PChar(@s[1]), - 1, nil, 0); 
    SetLength(Result, l - 1); 
    if l > 1 then 
     MultiByteToWideChar(CodePage, MB_PRECOMPOSED, PChar(@s[1]), 
     - 1, PWideChar(@Result[1]), l - 1); 
    end; 
end; { StringToWideString } 

--reinhard