Всем привет!
Применяю Synapse для декодирования сообщений электронной почты. В целом все норм, но порой он не очень корректно конвертирует именно тему письма, а совсем редко, но ошибается и с кодировкой тела письма.
Сейчас острее стоит проблема именно с темой. Если подробнее - в веб-почте все норм: "Fw: ειδωλον философы", а после обработки в методе InlineDecode модуля mimeinln, строка превращается в: "Fw: _______ философы" (вопросы или нижнее подчеркивание). Проблема возникает в строке конверсии
s := CharsetConversion(s, ichar, CP) :
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
function InlineDecode(const Value: string; CP: TMimeChar): string;
var
s, su, v: string;
x, y, z, n: Integer;
ichar: TMimeChar;
c: Char;
function SearchEndInline(const Value: string; be: Integer): Integer;
var
n, q: Integer;
begin
q := 0;
Result := 0;
for n := be + 2 to Length(Value) - 1 do
if Value[n] = '?' then
begin
Inc(q);
if (q > 2) and (Value[n + 1] = '=') then
begin
Result := n;
Break;
end;
end;
end;
begin
Result := '';
v := Value;
x := Pos('=?', v);
y := SearchEndInline(v, x);
//fix for broken coding with begin, but not with end.
if (x > 0) and (y <= 0) then
y := Length(Result);
while (y > x) and (x > 0) do
begin
s := Copy(v, 1, x - 1);
if Trim(s) <> '' then
Result := Result + s;
s := Copy(v, x, y - x + 2);
Delete(v, 1, y + 1);
su := Copy(s, 3, Length(s) - 4);
z := Pos('?', su);
if (Length(su) >= (z + 2)) and (su[z + 2] = '?') then
begin
ichar := GetCPFromID(SeparateLeft(Copy(su, 1, z - 1), '*'));
c := UpperCase(su)[z + 1];
su := Copy(su, z + 3, Length(su) - z - 2);
if c = 'B' then
begin
s := DecodeBase64(su);
s := CharsetConversion(s, ichar, CP);
end;
if c = 'Q' then
begin
s := '';
for n := 1 to Length(su) do
if su[n] = '_' then
s := s + ' '
else
s := s + su[n];
s := DecodeQuotedPrintable(s);
// ichar = utf_8, cp = cp1251
s := CharsetConversion(s, ichar, CP);
end;
end;
Result := Result + s;
x := Pos('=?', v);
y := SearchEndInline(v, x);
end;
Result := Result + v;
end;
Предыдущая строка s := DecodeQuotedPrintable(s) отрабатывает корректно. Проверил получившуюся строку через онлайн-конвертор, который определил автоматически преобразование из windows-1251 в utf-8:
http://www.online-decoder.com/ru. И в итоге выдав верное значение: "Fw: ειδωλον философы".
Пробовал различные методы от TEncode (у меня XE7 и D10.2 Токио), но нужного результата не получил. Есть какие то идеи как заменить CharsetConversion(s, ichar, CP) ?
