|
#1
|
|||
|
|||
delphi pop3
Добрый вечер!
У мене такая проблема: подключаюсь к почте через idpop3 и idmessage и вывожу письма(от кого пришло, тема письма и так далее). Знаю, что проблема с кодировкой, но незнаю как решить. Вот скрин: |
#2
|
|||
|
|||
Есть такое дело. 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. |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
JeReK5542 (05.01.2014)
|
#3
|
|||
|
|||
как использовать ваш код?
вообщем я создал файл EmlStrUtils.pas и закинул туда ваш код, после етого подключил его после Цитата:
DecodeEmailString(idmessage1.subject) и заработало) спасибо за помощь) помогите пожалуйста решить еще одну проблему с содержимым письма и как распозновать html символы? Последний раз редактировалось M.A.D.M.A.N., 05.01.2014 в 19:19. |
#4
|
|||
|
|||
Это еще не делал (но собираюсь).
В принципе, можно попробовать прогнать через MSHTML и у него попросить вернуть "чистый" текст. Хотя тут надо дольше ковыряться. Кстати, обведенное на картинке очень похоже либо на KOI8 или на нераскодированный Base64 (первая строчка, остальные 2 это скорее KOI8). |
#5
|
|||
|
|||
первая обведенная строчка ето base64, а вот с остальным незнаю че делать(
|
#6
|
|||
|
|||
Я же говорю, что это похоже на KOI8R.
Скорее всего где-то в заголовках или еще где есть указание на то, в какой кодировке текст. Тебе надо найти это место и из указанной перекодировать в 1251. Это уже руками. Готового решения от Indy не жди, т.к. это специфичная задача. Но можно попробовать поискать по русским сайтам... например здесь: http://www.delphisources.ru/pages/fa...1251_koi8.html Тебе осталось только найти имя этой кодировки в письме. Кстати, если кто еще читает эту тему. Какие самые употребительные кодировки в мире? Не только русские... |
#7
|
||||
|
||||
UTF-8. Почти везде.
Потом идёт 1251, 1252. Встречаются ISO-8859-1 и ISO-8859-15. Ну и реже можно встретить какие-нибудь семибитные. Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#8
|
||||
|
||||
Цитата:
Не стоит путать форумы с богадельнями. © Bargest |
#9
|
|||
|
|||
я попробую както решить проблему с кодировкой, но если ктото знает, как ето все решить напишите пожалуйста)
|
#10
|
|||
|
|||
вообщем проблема осталась нерешённой(
|
#11
|
||||
|
||||
Вот ещё в довесок к теме - преобразование Win1251 <-> Koi8r
Код:
type TConvertChars = array[#128..#255] of char; const Win_KoiChars: TConvertChars = (#128,#129,#130,#131,#132,#133,#134,#135,#136,#137,#060, #139,#140,#141,#142,#143,#144,#145,#146,#147,#148,#169, #150,#151,#152,#153,#154,#062,#176,#157,#183,#159,#160, #246,#247,#074,#164,#231,#166,#167,#179,#169,#180,#060, #172,#173,#174,#183,#156,#177,#073,#105,#199,#181,#182, #158,#163,#191,#164,#062,#106,#189,#190,#167,#225,#226, #247,#231,#228,#229,#246,#250,#233,#234,#235,#236,#237, #238,#239,#240,#242,#243,#244,#245,#230,#232,#227,#254, #251,#253,#154,#249,#248,#252,#224,#241,#193,#194,#215, #199,#196,#197,#214,#218,#201,#202,#203,#204,#205,#206, #207,#208,#210,#211,#212,#213,#198,#200,#195,#222,#219, #221,#223,#217,#216,#220,#192,#209); Koi_WinChars: TConvertChars = (#128,#129,#130,#131,#132,#133,#134,#135,#136,#137,#138, #139,#140,#141,#142,#143,#144,#145,#146,#147,#148,#149, #150,#151,#152,#153,#218,#155,#176,#157,#183,#159,#160, #161,#162,#184,#186,#165,#166,#191,#168,#169,#170,#171, #172,#173,#174,#175,#156,#177,#178,#168,#170,#181,#182, #175,#184,#185,#186,#187,#188,#189,#190,#185,#254,#224, #225,#246,#228,#229,#244,#227,#245,#232,#233,#234,#235, #236,#237,#238,#239,#255,#240,#241,#242,#243,#230,#226, #252,#251,#231,#248,#253,#249,#247,#250,#222,#192,#193, #214,#196,#197,#212,#195,#213,#200,#201,#202,#203,#204, #205,#206,#207,#223,#208,#209,#210,#211,#198,#194,#220, #219,#199,#216,#221,#217,#215,#218); function Win_KoiConvert(const St: string): string; var i: integer; begin Result:=St; for i:=1 to Length(St) do if St[i]>#127 then Result[i]:=Win_KoiChars[St[i]]; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#12
|
|||
|
|||
если ктонибуть решит ету проблему, напишите пожалуйста сюда решение
|
#13
|
|||
|
|||
ну что некто так и незнает как решить?(
|