Преобразование HEX-кода в ASCII

← →
SDW_syscoder © (2003-12-01 09:56) [0]

Уважаемые "Мастерки" & "Подмастерья", киньте кто-нибудь функцию перевода HEX-кода, например, [$82] в ASCII-код [В] (русская), т.к. стандартная функция Chr(X:byte):Char переводит данный код в какую-то галиматью(лажу).

← →
Романов Р.В. © (2003-12-01 09:58) [1]

Chr(StrToInt("$82"))

← →
SDW_syscoder © (2003-12-01 10:43) [2]

Этот номер не пройдёт. Переводить-та эта функция переводит, только вместо русской буквы "В", она выдаёт ","(запятую).

← →
SDW_syscoder © (2003-12-01 10:43) [3]

← →
pasha_golub © (2003-12-01 10:47) [4]

Мне кажется, что тут просто необходим Ваш код.
На вскидку, проблемы могут быть: шрифт не тот, в Мемо допустим; не так читаешь; не так записываешь; не учитываешь служебных символов; да мали что еще.

← →
Digitman © (2003-12-01 10:50) [5]

см. OemToChar()

← →
KosilkA © (2003-12-01 11:01) [6]

тут наверное дело в кодировке . нужно использовать OemToAnsi.

← →
SDW_syscoder © (2003-12-01 11:01) [7]

А может ли быть проблема в кодовой странице, к которой обращается функция Chr()?

> Digitman © (01.12.03 10:50) [5]
> см. OemToChar()

Походу я понял в чём дело, сначала надо преобразовать HEX-код функцией Chr() в ASCII, а затем с помощью OemToChar() перекодировать из DOS-кодировки в Windows (или там, допустим, наоборот).
Я правильно понял!?

← →
KosilkA © (2003-12-01 11:02) [8]

ааааа..я долго писал :-))))

вот вам из избранного

function WinToDos(const s : string) : string;
var dest : string;
begin
setLength(dest, length(s)+1);
AnsiToOem(@s[1], @dest[1]);
Result:=dest;
exit;
end;

function DosToWin(const s : string) : string;
var dest : string;
begin
setLength(dest, length(s)+1);
windows.OemToAnsi(@s[1], @dest[1]);
Result:=dest;
exit;
end;

> SDW_syscoder

можно сказать - да, правильно

Ну, ладно, пробовать некогда, но думаю всё получиться. Благодарю всех за предоставленную помощь, Я побежал в технарь учиться, а то уже опаздываю.

Преобразование HEX-кода в ASCII Найти похожие ветки