Перевод символов в бинарный код

← →
Oksana_new © (2006-10-12 19:36) [0]

Подскажите функцию перевод символов в бинарный код

← →
Джо © (2006-10-12 19:40) [1]

Ord?

← →
Oksana_new © (2006-10-12 19:44) [2]

Нет, ord возвращает код символа по таблицы ASCII. А мне нужен бинарный код (10101010)

← →
Джо © (2006-10-12 19:46) [3]

> [2] Oksana_new © (12.10.06 19:44)
> Нет, ord возвращает код символа по таблицы ASCII. А мне
> нужен бинарный код (10101010)

Что такое "бинарный код"? Строка, содержащая 0 и 1?

← →
Zeqfreed © (2006-10-12 19:47) [4]

Придется писать самостоятельно.

← →
default © (2006-10-12 19:48) [5]

Окси, может тебе надо IntToBin(Ord(CharVar)) ?

← →
Zeqfreed © (2006-10-12 19:50) [6]

> [5] default © (12.10.06 19:48)

А такая существует?

← →
Oksana_new © (2006-10-12 19:52) [7]

> Что такое "бинарный код"? Строка, содержащая 0 и 1?

Да

> Окси, может тебе надо IntToBin(Ord(CharVar)) ?

Попробую эту, а нет функции которая сразу считывает файл в бинарном коде?

← →
@!!ex © (2006-10-12 19:59) [8]

> Oksana_new © (12.10.06 19:52) [7]

По идее, чисто теоретически, он в бинарном коде и читается.
Просто Операционка заточена на то, чтобы показывать данные в десятиричном представлении.

← →
default © (2006-10-12 20:01) [9]

Zeqfreed © (12.10.06 19:50) [6]
да
F1 по ней щёлкни и посмотри в каком модуле сидит

← →
default © (2006-10-12 20:02) [10]

Oksana_new © (12.10.06 19:52) [7]
нет

← →
Zeqfreed © (2006-10-12 20:04) [11]

> [9] default © (12.10.06 20:01)

Topic not available The requested topic is not available. Some possible reasons and remedies: <skipped>

Турбо Делфай.

← →
default © (2006-10-12 20:05) [12]

Zeqfreed © (12.10.06 20:04) [11]
в семёрке есть

← →
Zeqfreed © (2006-10-12 20:08) [13]

> [12] default © (12.10.06 20:05)

И в семерке нет :) Может быть имелась в виду HexToBin? Но она, вроде, к сабжу отношения мало имеет.

← →
default © (2006-10-12 20:18) [14]

в шестёрке то есть
вот код её если что
function IntToBin(Value: cardinal): string; var i: Integer; begin SetLength(result, 32); for i := 1 to 32 do begin if ((Value shl (i - 1)) shr 31) = 0 then result[i] := "0" {do not localize} else result[i] := "1"; {do not localize} end; end; Borland copyright

← →
Zeqfreed © (2006-10-12 20:25) [15]

> [14] default © (12.10.06 20:18)

Странно, нет у меня такой :) А в каком модуле это?

← →
default © (2006-10-12 20:28) [16]

idGlobal

← →
Zeqfreed © (2006-10-12 20:33) [17]

> [16] default © (12.10.06 20:28)

Понятно, модуля такого у меня тоже нет.

← →
Ketmar © (2006-10-12 20:44) [18]

и у меня. и у всех, кто индейцев снёс, как я подозреваю. %-)
а ещё подозреваю, что борланд к этой функции отношения не имеет. %-)

← →
Zeqfreed © (2006-10-12 20:54) [19]

> [18] Ketmar © (12.10.06 20:44)

> и у меня. и у всех, кто индейцев снёс, как я подозреваю.
> %-)

Правильно, winsock рулят :)

> а ещё подозреваю, что борланд к этой функции отношения не
> имеет. %-)

Я тоже так думаю, почему-то :) Интересно почему? :)

← →
Leonid Troyanovsky © (2006-10-12 20:58) [20]

> Oksana_new © (12.10.06 19:52) [7]

> Попробую эту, а нет функции которая сразу считывает файл
> в бинарном коде?

Именно с результатом в виде строки, т.е. string?

--
Regards, LVT.

← →
default © (2006-10-12 21:16) [21]

по-вашему я его сам придумал?

← →
Zeqfreed © (2006-10-12 21:33) [22]

> [21] default © (12.10.06 21:16)

Поиском по содержимому файлов, я таки нашёл эту функцию :)
Но в справке о ней ни слова. А Indy, насколько я в курсе, писалось не Borland"ом.

← →
Ketmar © (2006-10-12 21:36) [23]

на что я и намекал -- это индейцы. %-)

← →
default © (2006-10-12 22:10) [24]

ну индейцы так индейцы, уговорили

числа я и сама могу в бинарный код перевести, мне символы нужно перевести, так что IntToBin не подходит

> Oksana_new © (13.10.06 17:15) [25]

ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ!!!!!!!
Вы в курсе, что символы - это частный случай представления числа?????
Вот например символ " "(пробел) - это на самом деле ЧИСЛО 32.
Приведите пожалуйста хотябы один пример символа и его бинарного представления.

[1] + IntToBin

> Zeqfreed © (13.10.06 17:51) [27]

Не катит. Вариант IntToBin(Ord(CharVar)) уже был предложен.
Сказано:
> числа я и сама могу в бинарный код перевести, мне символы
> нужно перевести, так что IntToBin не подходит

← →
SergP. (2006-10-13 18:07) [29]

>
>
> [25] Oksana_new © (13.10.06 17:15)
> числа я и сама могу в бинарный код перевести, мне символы
> нужно перевести, так что IntToBin не подходит

Ветка достойна помещения в орешник

это тупой "развод", по-моему.

> Приведите пожалуйста хотябы один пример символа и его бинарного
> представления.

У меня конкретное задание осушиствить алгоритм шифрования DES на Делфи. Если есть задание то соодветственно и символ должен иметь бинарный код

> Oksana_new © (13.10.06 20:02) [31]

> DES на Делфи. Если есть задание то соодветственно и символ
> должен иметь бинарный код

- Прапорщик, остановите поезд.

- Поезд, стой! Раз-два.

--
Regards, LVT.

мда. с такими знаниями лучше сначала написать и отладить "Hello, world". за DES, мягко говоря, рановато браться.

> Oksana_new © (13.10.06 20:02) [31]
>
> > Приведите пожалуйста хотябы один пример символа и его
> бинарного
> > представления.
>
>
> У меня конкретное задание осушиствить алгоритм шифрования
> DES на Делфи. Если есть задание то соодветственно и символ
> должен иметь бинарный код

Пример давай!!!
Вот пример того, что лично я понимаю под переводом из символа в нужную систему исчисления:
Символ 10(Dec) 16(Hex) 2(Bin)
"Z" = 90 = 5A = 01011010
Ваш вариант?

Перевод символов в бинарный код Найти похожие ветки