Delphi: проблемы с кодированием CDO.Message

Question

Мы написали программу Delphi, которая отправляет некоторую информацию с CDO.

В моей машине Win7 (венгерской) акценты работают нормально.

Так что если я отправил письмо с «ÁÉÍÓÖŐÚÜŰ», я получил его в таком формате. Я использовал кодировку iso-8859-2 в теле, и это закодирует тему и адреса электронной почты (адрес отправителя содержит имя).

Я думал, что закончил с этим.

Но когда я пытаюсь отправить почту с Win2k3 английской машины (сервер рассылки же!), В результате усечения нескольких акцентов: U = U O = O

Далее я попытался использовать UTF-8.

Это обеспечило акценты - но неправильные акценты.

Письмо содержит акценты с символами ^.

< ê> é

Это не относится венгерское письмо ... :-(

Так что я хочу знать, как преобразовать или настроить вход I получил хороший результат.

Я пытался войти в тело, чтобы увидеть это изменение ...

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

... или нет.

Но эти журналы обеспечивают хороший результат, вход хороший.

Таким образом, сообщение об ошибке может быть потеряно и неверно преобразовано в CDO.

Могу ли я помочь CDO, если я могу кодировать текст ANSI в настоящий UTF. Но в функциях конвертора Delphi нет параметров «CodePage». В Python я МОГУ сказал:

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

или

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

Но в Delphi я не вижу этот параметр.

Кто-нибудь знает, как сохранить акценты, как преобразовать акцентированные венгерские струны, чтобы сохранить их в акцентированном формате?

И я хочу знать, могу ли я проверить результат без отправки почты?

Спасибо за вашу помощь: дд

Answer 1

быстрый поиск Google с «Дельфи строки кодовой страницы» заставил меня 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