DOS-кодировка в тектстбокс

[kibernetics]

хеллоу!
народ, ктонибудь знает, как вывести ДОС-овый текст в текстбоксе?
есть файл текстовый, в нём кодировка досовская. считываю текст и никак не могу отобразить в текстбоксе в нормальном виде.
одни крякозяблы. в ФАРЕ например читается нормально по F7.

[iGrok]

OemToChar

[kibernetics]

спасибо!

[SSecurity]

а ещё можно взять шрифт с досовской кодировкой
т.е. просто в текстбоксе шрифт Terminal для отображения прокатит

[SLIM]

а ещё можно взять шрифт с досовской кодировкой
т.е. просто в текстбоксе шрифт Terminal для отображения прокатит

Там моноширный шрифт. Выглядит не очень то

[SSecurity]

а ещё можно взять шрифт с досовской кодировкой
т.е. просто в текстбоксе шрифт Terminal для отображения прокатит

Там моноширный шрифт. Выглядит не очень то

Вот если бы в в вопросе было сказано и чтоб выглядело хорошо, и любым красивым шрифтом - тогда конечно сначала декодим а потом как больше нравится - выводим, но вопрос поставлен был вполне четко - Как вывести?

[kibernetics]

Я прислушался к рекомендациям iGrok, и вывожу так:

Код: Выделить всё

Public Function ToWin(sText As String) As String
    ToWin = Space(Len(sText))
    OemToChar sText, ToWin
End Function

[iGrok]

Я прислушался к рекомендациям iGrok, и вывожу так:

Код: Выделить всё

Public Function ToWin(sText As String) As String
    ToWin = Space(Len(sText))
    OemToChar sText, ToWin
End Function

И совершенно правильно делаешь, по-моему. =)