Понедельник, 29 Апр 2024, 15:01
Uchi.ucoz.ru
Меню сайта
Форма входа

Категории раздела
Высшая математика [11]
Экономическая социология [95]
Основы Менеджмента [64]
Бухгалтерский учёт [157]
Философия [163]
Мировая Экономика [603]
Бизнес планирование [29]
Финансирование и кредитование инвест [105]
Ценообразование [46]
Гражданское право [196]
Права Человека [173]
Основы Маркетинга [207]
Основы энергосбережения [55]
Информатика [0]
Экология и устойчивое развитие [0]
Физика для студентов [0]
Основы права [0]
Политология [0]
Не стандартные примеры на Delphi [169]
Примеры на Delphi7 [108]
Алгоритмы [94]
API [110]
Pascal [152]
Базы Данных [6]
Новости
Чего не хватает сайту?
500
Статистика
Зарегистрировано на сайте:
Всего: 51635

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Яндекс.Метрика
Рейтинг@Mail.ru

Каталог статей

Главная » Статьи » Студентам » Алгоритмы
Преобразование ASCII в шестнадцатиричное представление
Строка представляет собой массив байтов в виде ASCII-символов.
Необходимо организовать преобразование типов по аналогии с Delphi-функциями Ord
и Chr.

Функция BytesToHexStr преобразует, к примеру, набор байтов [0,1,1,0] в строку
'30313130', HexStrToBytes выполнит обратное преобразование.

unit
Hexstr;

interface
uses String16,
SysUtils;

Type

PByte = ^BYTE;
procedure BytesToHexStr(var
hHexStr: String; pbyteArray: PByte; InputLength: WORD);

procedure HexStrToBytes(hHexStr: String; pbyteArray:
Pointer);
procedure HexBytesToChar(var Response: String;
hexbytes: PChar; InputLength:
WORD);

implementation
procedure BytesToHexStr(var
hHexStr: String; pbyteArray: PByte; InputLength:
WORD);
Const

HexChars : Array[0..15] of Char = '0123456789ABCDEF';var

i, j: WORD;begin

SetLength(hHexStr, (InputLength * 2));
FillChar(hHexStr, sizeof(hHexStr), #0);
j := 1;
for i := 1 to InputLength
do begin
hHexStr[j] := Char(HexChars[pbyteArray^ shr
4]); inc(j);
hHexStr[j] := Char(HexChars[pbyteArray^ and 15]); inc(j);
inc(pbyteArray);
end;end;

procedure
HexBytesToChar(var Response: String; hexbytes: PChar; InputLength:
WORD);
var

i: WORD;
c: byte;begin

SetLength(Response, InputLength);
FillChar(Response, SizeOf(Response), #0);
for i := 0 to (InputLength -
1) do begin
c := BYTE(hexbytes[i]) And BYTE($f);
if c > 9 then
Inc(c, $37)
else
Inc(c, $30);
Response[i + 1] := char©;
end;{for}end;

procedure
HexStrToBytes(hHexStr: String; pbyteArray: Pointer);
{pbyteArray указывает на область памяти, хранящей
результаты}
var

i, j: WORD;
tempPtr: PChar;
twoDigits : String[2];begin

tempPtr := pbyteArray;
j := 1;
for i := 1 to
(Length(hHexStr) DIV 2) do begin
twoDigits := Copy(hHexStr, j, 2); Inc(j,
2);
PByte(tempPtr)^ := StrToInt('$' +
twoDigits); Inc(tempPtr);
end;{for}end;

end.
Категория: Алгоритмы | Добавил: Lerka (21 Ноя 2012)
Просмотров: 552 | Рейтинг: 1.0/ 5 Оштрафовать | Жаловаться на материал
Похожие материалы
Всего комментариев: 0

Для блога (HTML)


Для форума (BB-Code)


Прямая ссылка

Профиль
Понедельник
29 Апр 2024
15:01

Вы из группы: Гости
Вы уже дней на сайте
У вас: непрочитанных сообщений
Добавить статью
Прочитать сообщения
Регистрация
Вход
Улучшенный поиск
Поиск по сайту Поиск по всему интернету
Наши партнеры
Интересное
Популярное статьи
Портфолио ученика начальной школы
УХОД ЗА ВОЛОСАМИ ОЧЕНЬ ПРОСТ — ХОЧУ Я ЭТИМ ПОДЕЛИТ...
Диктанты 2 класс
Детство Л.Н. Толстого
Библиографический обзор литературы о музыке
Авторская программа элективного курса "Практи...
Контрольная работа по теме «Углеводороды»
Поиск
Главная страница
Используются технологии uCoz