[JeReK5542]

Добрый вечер!
У мене такая проблема:
подключаюсь к почте через idpop3 и idmessage и вывожу письма(от кого пришло, тема письма и так далее).
Знаю, что проблема с кодировкой, но незнаю как решить.
Вот скрин:

[lmikle]

Есть такое дело. Indy не умеет расшифровывать такого вида кодировки автоматически. Вот я для себя писал такую штуку:

Код:

unit EmlStrUtils;

interface

uses
  Windows, SysUtils, Classes, StrUtils;

function DecodeEmailString(S : String) : String;

implementation

uses
  IdCoder, IdCoder3to4, IdCoderMIME, IdCoderQuotedPrintable;

function Base64Decode(const EncodedText: string): String;
var
  Decoder: TIdDecoderMIME;
begin
  Result := EncodedText;
  Decoder := TIdDecoderMIME.Create(nil);
  try
    Result := Decoder.DecodeString(EncodedText);
  finally
    Decoder.Free;
  end;
end;

function QuotedPrintableDecode(const EncodedText: string): String;
var
  Decoder: TIdDecoderQuotedPrintable;
begin
  Result := EncodedText;
  Decoder := TIdDecoderQuotedPrintable.Create(nil);
  try
    Result := Decoder.DecodeString(EncodedText);
  finally
    Decoder.Free;
  end;
end;

function DecodeTocken(S : String) : String;
var
  SecondQuestIdx : Integer;
  ThirdQuestIdx : Integer;
  Txt : String;
begin
  // =?charset?encoding?encoded text?=
  // =?utf-8?B?<text>?=
  // =?utf-8?Q?=D0=A5=D0=B0=D0=B9=D0=B9_...=21=21=21=29_?=

  Result := S;
  If Pos('=?',S) = 1 Then
    Begin
      SecondQuestIdx := PosEx('?',S,3);
      ThirdQuestIdx := PosEx('?',S,SecondQuestIdx+1);
      Txt := Copy(S,ThirdQuestIdx+1,Length(S)-ThirdQuestIdx-2);

      Case S[SecondQuestIdx+1] Of
        'B', 'b' :
          Begin
            Result := Base64Decode(Txt);
            If CompareText('utf-8',Copy(S,3,SecondQuestIdx-1-2)) = 0
              Then Result := Utf8ToAnsi(Result);
          End;
        'Q', 'q' :
          Begin
            Result := QuotedPrintableDecode(Txt);
          End;
      End;
    End;
end;

procedure SplitTockens(S : String; var AList : TStringList);
var
  Idx1, Idx2, Idx3 : Integer;
begin
  While S <> '' Do
    Begin
      Idx1 := Pos('=?',S);
      If Idx1 = 0
        Then
          Begin
            AList.Add(S);
            S := '';
          End
        Else
          If Idx1 > 1
            Then
              Begin
                AList.Add(Copy(S,1,Idx1-1));
                S := Copy(S,Idx1,Length(S));
              End
            Else
              Begin
                Idx2 := PosEx('?',S,3);
                Idx3 := PosEx('?',S,Idx2+1);
                AList.Add(Copy(S,1,PosEx('?=',S,Idx3+1)+1));
                S := Copy(S,PosEx('?=',S,Idx3+1)+2,Length(S));
              End;
    End;
end;

function DecodeEmailString(S : String) : String;
var
  I : Integer;
  AList : TStringList;
begin
  // =?charset?encoding?encoded text?=
  // =?utf-8?B?<text>?=
  // =?utf-8?Q?=D0=A5=D0=B0=D0=B9=D0=B9_...=21=21=21=29_?=

  Result := S;
  If Pos('=?',S) <> 0 Then
    Begin
      Result := '';
      AList := TStringList.Create;
      Try
        // Split tockens
        SplitTockens(S,AList);

        // Decode
        For I := 0 To AList.Count-1 Do
          AList[i] := DecodeTocken(AList[i]);

        // Join result
        For I := 0 To AList.Count-1 Do
          Result := Result + AList[i];
      Finally
        AList.Free;
      End;
    End;
end;

end.

[JeReK5542]

как использовать ваш код?

вообщем я создал файл EmlStrUtils.pas и закинул туда ваш код, после етого подключил его после

implementation

uses EmlStrUtils;

и использовал так
DecodeEmailString(idmessage1.subject)
и заработало)
спасибо за помощь)

помогите пожалуйста решить еще одну проблему с содержимым письма

и как распозновать html символы?

[lmikle]

Это еще не делал (но собираюсь).
В принципе, можно попробовать прогнать через MSHTML и у него попросить вернуть "чистый" текст. Хотя тут надо дольше ковыряться.

Кстати, обведенное на картинке очень похоже либо на KOI8 или на нераскодированный Base64 (первая строчка, остальные 2 это скорее KOI8).

[JeReK5542]

первая обведенная строчка ето base64, а вот с остальным незнаю че делать(

[lmikle]

Я же говорю, что это похоже на KOI8R.
Скорее всего где-то в заголовках или еще где есть указание на то, в какой кодировке текст. Тебе надо найти это место и из указанной перекодировать в 1251. Это уже руками. Готового решения от Indy не жди, т.к. это специфичная задача. Но можно попробовать поискать по русским сайтам... например здесь: http://www.delphisources.ru/pages/fa...1251_koi8.html

Тебе осталось только найти имя этой кодировки в письме.

Кстати, если кто еще читает эту тему. Какие самые употребительные кодировки в мире? Не только русские...