Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Распределённые приложения и сеть > Проблемы с кодировкой

Автор: VladCSharp 19.10.2006, 10:15

вот процедура получения почты:

Код

Dim mPop3 As New POP3
Dim mesCount As Byte
mPop3.Username = tbUser.Text
mPop3.Password = tbPassword.Text
mPop3.Connect(tbIP.Text)
mesCount = mPop3.CheckMessages()
If mesCount = 0 Then
MsgBox("Новых сообщений нет")
Exit Sub
End If

Dim mes As New Message
Dim strB(1024) As Byte
Dim str As String
Dim i As Byte
For i = 1 To mesCount
mPop3.RetrieveHeader(i, mes)
strB = System.Text.Encoding.GetEncoding(1251).GetBytes("Form: " & mes.From.Text & " " & mes.Subject)
str = System.Text.Encoding.Default.GetString(strB)
List.Items.Add(str)
Next

mPop3.Disconnect()

все отлично, кроме одного: при выводе заголовков в ListBox русские буквы отображаются неверно, как можно исправить, какую кодировку задать?

Автор: Exception 19.10.2006, 11:03

Модератор: пожалуйста, используйте подсветку кода!

Автор: Djuffin 19.10.2006, 13:19

А это разве не в форум про VB?

Автор: stab 19.10.2006, 15:47

видимо, кодировку каким-то образом надо получить из заголовков.

Автор: VladCSharp 20.10.2006, 04:04

Цитата(Djuffin @ 19.10.2006, 13:19)

А это разве не в форум про VB?

да, это в форум про vb, но я потом увидел, что для vb отдельный форум.

Добавлено @ 04:06

Цитата(cully @ 19.10.2006, 15:47)

видимо, кодировку каким-то образом надо получить из заголовков.

получаю, теперь пишу так:

Код


For i = 1 To mesCount
            mPop3.RetrieveHeader(i, mes)
            StrCodir = mes.CharSet
            Str = "From: " & mes.From.Text & " " & mes.Subject
            If StrCodir = "" Then
                strB = System.Text.Encoding.GetEncoding(1251).GetBytes(Str)
            Else
                strB = System.Text.Encoding.GetEncoding(StrCodir).GetBytes(Str)
            End If
            Str = System.Text.Encoding.Default.GetString(strB)
            List.Items.Add(Str)
        Next

но все равно не получается

Автор: stab 20.10.2006, 06:33

мне кажется проблема здесь:

Код


Str = System.Text.Encoding.Default.GetString(strB)

наверное надо не Default, а ту которая в заголовке указана. попробуй, вдруг заработает. smile

Добавлено @ 06:42
кстати, а что за класс ты используешь для забора почты? где взял? может он с исходниками, если да глянь в них как осуществляется работа с кодировкой. мне, опять же кажется, что там кодировка вообще необрабатывается, если так, то:

Код


 If StrCodir = "" Then
                strB = System.Text.Encoding.GetEncoding(1251).GetBytes(Str)
            Else
                strB = System.Text.Encoding.GetEncoding(StrCodir).GetBytes(Str)
            End If

видима, надо заменить на:

Код


strB = System.Text.Encoding.ASCII.GetBytes(Str)

и делать перекодировку, как я описал выше.

Автор: VladCSharp 20.10.2006, 08:50

использую Indy.Sockets, какие только комбинации кодировок я уже не пробовал, мне кажется я не там ищу, а где искать не пойму

Автор: stab 20.10.2006, 15:30

ок, на днях скачаю, поковыряюсь. меня просто это тоже ждёт в скором будущем. smile

Автор: stab 21.10.2006, 03:29

что-то не могу найти где скачать, скачал версию для Delphi .NET, это явно не то + скачал Indy CLR с кодплекс, вроде бы тоже не то, там нет метода RetrieveHeader и вообще такое ощущение, что проект на кодплексе в глубокой жопе.