Конвертация Текста VB 6

[u3er]

Люди Поомгите Вот Код



Есть программа получения сообщений но когда пишу на русском привет приходит сообщение ?@825B а когда на английском то все хорошо!

Есть приложение получение сообщений так вот
Когда приходит сообщение пишет ?@825B вместо привет на латинской раскладке все нормально отображается а этот не декодирует
Помогите уже замучался вот код

Вот код что изменить чтобы Hex ?@825B сразу переводил в привет в этом коде.
Private Function dword2str(data As Long) As String
Dim i As Byte
dword2str = hex2str(Hex(data))
For i = 1 To 4
If Len(dword2str) < 4 Then dword2str = Chr$(0) & dword2str
Next i
End Function


Спасибо надеюсь на помощь

[alibek]

Тебе уже дали ссылку. Читай Джоэля.

[u3er]

Тебе уже дали ссылку. Читай Джоэля.

Каким образом мне это должно помочь в написании кода ? Бред! Нет бы помочь с кодом одно пустое литье у вас тут и и сам могу в википедии читать а толку то ? Для этого и форум чтобы помогать в программировании а не тупо ссылки бросать!
Одними ссылками отмазываетесь и нихера ничего не знаете! К чему тогда форум ?

Такая мелочь для вас тьфю должна быть а вы как....,!

[HiSER]

Тебе уже объяснили что сообщение приходит в Unicode, ссылку для прочтения дали.
Тебе только осталось от конвертировать в win1251 даже той же функцией SrcConv или WinAPI или еще как...
Изучать все это тебе лень может ещё за тебя код написать?

[u3er]

Тебе уже объяснили что сообщение приходит в Unicode, ссылку для прочтения дали.
Тебе только осталось от конвертировать в win1251 даже той же функцией SrcConv или WinAPI или еще как...
Изучать все это тебе лень может ещё за тебя код написать?

Читать нравоучения легко а помочь слабо! Я код дал! Его лишь стоить подправить!
Никто писать не заставляет!
Суда и обращаются чтобы помогли! А не читали мораль!
Учить я и сам могу! Но на это времени нет! Прошу лишь строчку поправить и то дерзите! Обидно! Учить из-за мелочи весь язык от сих до сих я не собираюсь! Абсурд! Видимо вам проце мораль читать а не код подправить! Причем! Очень мелкий!
Если не знает нах тогда форум ? раздающий ссылки на вики ?

[HiSER]

Читать нравоучения легко а помочь слабо!

Помощь уже оказана.

Я код дал!

Если ты про функцию dword2str, то это мягко говоря байда какая-то.

[u3er]

Читать нравоучения легко а помочь слабо!

Помощь уже оказана.

Я код дал!

Если ты про функцию dword2str, то это мягко говоря байда какая-то.

У меня тупо в text не отображает принятый русский текст привет вместо него выводит ?@825B на латинском все отлично! Знаю что мелочь какая то но я не профессиональный программист поэтому и прошу помощи


Тогда есть где нить код у вас на форуме который это ?@825B переведет в привет?

[HiSER]

Читать все же ты не хочешь!
Тебе раз 10 уже сказали конвертируй Unicode в win1251!
Перечитай сообщения несколько раз, может научишься внимательности...

[u3er]

Читать все же ты не хочешь!
Тебе раз 10 уже сказали конвертируй Unicode в win1251!
Перечитай сообщения несколько раз, может научишься внимательности...

вы че тут совсем ?? ЭТО HEX!!!!! ЭТО НЕ ЮНИКОД! НУ ВЫ ДАЕТЕ!

[HiSER]

[Qwertiy]

Если ты про функцию dword2str, то это мягко говоря байда какая-то.

Вот именно...

Тогда есть где нить код у вас на форуме который это ?@825B переведет в привет?

Блин. ?@825B - это 6 символов. привет - это 6 символов. И как же ты хочешь однозначно привести одни 6 символов к другим 6 символам.
Как вариант, то что ты приводишь (все 6 символов) кодирует один из символов сллова "привет". Но ты ведь этого не говоришь! И не говоришь, какой!

вы че тут совсем ?? ЭТО HEX!!!!! ЭТО НЕ ЮНИКОД! НУ ВЫ ДАЕТЕ!

И что же по-твоему дают 4 символа hex-кода? Это 2 байта, значит юникод в одной из его разновибностей!

[u3er]

Ура! Вышла новая версия Unreal Commnder'а!
Изображение

И что же по-твоему дают 4 символа hex-кода? Это 2 байта, значит юникод в одной из его разновибностей!

Вы бы решение дали а не учили! У вас есть готовый код из unicode в русский ? Почему то я пробовал ничего не переводится!

Даже онлайн КОНВЕРТЫРЫ НЕ ПЕРЕВОДЯТ ЭТУ ЕРЕСЬ ?@825B в привет!

[Qwertiy]

Даже онлайн КОНВЕРТЫРЫ НЕ ПЕРЕВОДЯТ ЭТУ ЕРЕСЬ ?@825B в привет!

Я тебе уже сказал, что перевести это в то, что тебе надо невозможно. Либо ты даёшь не всю строку, либо она уже повреждена кодом, который обрабатывает её до вывода.
Для того, чтобы тебе вообще можно было помочь, нужно чтобы ты как минимум представил приходящие бинарные данные.
Да, кстати.. Если это отправляется твоей программой, то строка может быть повреждена и до отправки.

[u3er]

Я тебе уже сказал, что перевести это в то, что тебе надо невозможно. Либо ты даёшь не всю строку, либо она уже повреждена кодом, который обрабатывает её до вывода.
Для того, чтобы тебе вообще можно было помочь, нужно чтобы ты как минимум представил приходящие бинарные данные.
Да, кстати.. Если это отправляется твоей программой, то строка может быть повреждена и до отправки.

Нет Я отправляю с телефона ICQ на латинском все отображается на русском вот такое приходит вот и все попусту информация не так выводится как надо
Почему ТОГДА НА ЛАТИНСКОМ ВСЕ РАБОТАЕТ?????

[HiSER]

Посмотри таблицу win1251 и Unicode и сразу все поймешь почему латиница печатается. У Unicode размер символа 16 бит, а win1251 8 бит. Старший байт символа ты вырезаешь, по этому и получается "?@825B".

[Qwertiy]

Почему ТОГДА НА ЛАТИНСКОМ ВСЕ РАБОТАЕТ?????

Потому что в каком-то месте обработка символов с кодами более 127 неверная. После того, как данные были повреждены, восстановить исходные уже невозможно. Надо искать и исправлять тот кусок кода, который их повреждает.