Delphi：CDO.Message编码问题

Question

我们写了一个Delphi程序，用CDO发送一些信息。

在我的Win7机器（匈牙利语）口音工作正常。

因此，如果我发送邮件与“ÁÉÍÓÖŐÚÜŰ”，我得到了这种格式。 我在正文中使用了iso-8859-2编码，并且对主题进行了编码，并将电子邮件地址（发件人地址包含名称）编码。

我以为我完成了这个。

但是，当我尝试从WIN2K3汉英机器发送邮件（邮件服务器是一样的！），结果是削减一些口音： 为u = u Ø= O

下一个我试图用UTF-8编码在这里。

这提供了口音 - 但错误的口音。

邮件包含带^符号的口音。

ê<>电子

这是无效的匈牙利信... :-(

所以我想知道，如何我转换或设置的输入，我得到了很好的效果。

我试图登录的身体看到的是变化......

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

...还是不行。

但是这些日志提供了很好的结果，输入很好。

因此，在CDO上生成消息可能会丢失和误转。

如果我可以将ANSI文本编码为真正的UTF，我可以帮助CDO吗？ 但是在Delphi转换器函数中没有“CodePage”参数。 在Python，我可以说：

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

或

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

但在Delphi中我没有看到这个参数。

是否有人知道，如何保留口音，如何转换重音匈牙利字符串以保留它们的重音格式？

我想知道，我可以在不发送邮件的情况下检查结果吗？

感谢您的帮助： DD

Answer 1

与“德尔福字符串代码页”快速谷歌搜索拉去torry's delphi pages ，也许以下codesnippets（发现here）可以揭示你的问题的一些光：

{: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