Форум: "Основная";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];
ВнизПреобразование 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]ааааа..я долго писал :-))))
← →
KosilkA (2003-12-01 11:04) [9]вот вам из избранного
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;
← →
Digitman (2003-12-01 11:05) [10]
> SDW_syscoder
можно сказать - да, правильно
← →
SDW_syscoder (2003-12-01 11:10) [11]Ну, ладно, пробовать некогда, но думаю всё получиться. Благодарю всех за предоставленную помощь, Я побежал в технарь учиться, а то уже опаздываю.
← →
SDW_syscoder (2003-12-01 11:11) [12]Ну, ладно, пробовать некогда, но думаю всё получиться. Благодарю всех за предоставленную помощь, Я побежал в технарь учиться, а то уже опаздываю.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c