VPF::Hex...ASCII - Форум программистов

MetalFan

Дата 1.3.2011, 19:30 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

BinToHex/HexToBin ?

--------------------

There are always someone smarter than you...

CODeRUS

Дата 1.3.2011, 22:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 25.7.2007

Репутация: нет
Всего: нет

а каким его туда местом?

MetalFan

Дата 2.3.2011, 00:15 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

А что, разве никаким? Задачу по преобразованию Hex<->Bin как раз решает на ура без извращения с IntToHex и т.п.

--------------------

There are always someone smarter than you...

CODeRUS

Дата 2.3.2011, 01:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 25.7.2007

Репутация: нет
Всего: нет

Вроде как в теме никто кроме вас о bin и не заикался. Или я что-то упустил? Или вы задачу неверно прочитали?

MetalFan

Дата 2.3.2011, 09:04 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Цитата(CODeRUS @ 1.3.2011, 19:20

)

for ch in str do
hexstr := hexstr + inttohex(ord(ch), 2);

легко заменяется одним вызовом BinToHex. smile

не?

--------------------

There are always someone smarter than you...

CODeRUS

Дата 2.3.2011, 11:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 25.7.2007

Репутация: нет
Всего: нет

как бы то да не то, и легкость по-моему сомнительная. мучать указатели, выделять память, совсем не один вызов получается). да и от версии делфи результат должен отличаться, ибо в 2010 скажем в результате будет 2 байта на символ, в 2007 - 1 байт.

MetalFan

Дата 2.3.2011, 13:28 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

CODeRUS, не вижу никаких сложностей.
Код для D2010

Код


var
  lSrc: AnsiString;
  lRes: string;
begin
  lSrc := edt1.Text;
  SetLength( lRes, Length(lSrc) * 2);
  BinToHex( PAnsiChar(lSrc), PWideChar(lRes), Length(lSrc));
  ShowMessage(lRes);

Гораздо проще и без всяких явных циклов и IntToHex'ов)
Единственный момент - не накосячить с размерами буферов.

Это сообщение отредактировал(а) MetalFan - 2.3.2011, 15:12

--------------------

There are always someone smarter than you...

CODeRUS

Дата 2.3.2011, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 25.7.2007

Репутация: нет
Всего: нет

хмм и правда, совсем забыл про такие преобразования, спасибо))

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »