Скачать: CL | DM;

Преобразование 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c