Бинарные данные в delphi

[Air]

Я что-то не нашёл в delphi типов, работающих с бинарными числами.
Пришлось сделать так.

Type
 TBinary = String;

Function IntToBin(int:integer):TBinary;
var i:integer;
    Ost:string;
begin
if int < 1 then        //=<
 Result:=inttostr(int)
else
 while int > 1 do
  begin
   ost:=inttostr(int mod 2)+ost;
   int:=int div 2;
  end;
Result:=inttostr(int)+ost;
end;

Однако уткнулся в проблему: строку "1010010100101011000100010100101011 01000000000111011010111" никак не перевести ни в integer, ни в cardinal

Выходом из проблемы станет функция преобразования из bin в integer
Однако здесь я в тупике... помогите кто чем сможет.

Заранее благодарю.

[Dj_smart]

Всё просто:
1. Считаем количество цыфр.
2. Есть 1 то плюсуем степень.

result:=0;
strlen:=length(str);
for n:=1 to strlen do begin
  if str[strlen-n+1]:='1' then result:=result+power(2,n-1);
end;

Вроде так)))

То есть
2^0=1 первый бит
2^1=2 второй бит
2^2=4 третий бит
....

[Air]

Работает, спасибо большое.

[Dj_smart]

Незачто, ведь на то он и форум)))

[FaTaL]

У меня такой вопрос. Есть в реестре параметр типа REG_BINARY
Я его читаю так:

var
  reg : TRegistry;
  buf : array [0..19] of char;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('Тут ключ', false);
  reg.ReadBinaryData('Параметр', Buf, SizeOf (buf));
  reg.CloseKey;
  reg.Free;

Знаю что там точно содержится строка.
Как мне получить эту строку типа String?

[BOBAH13]

Buf - кусок памяти в 20 байт (чаров)
String - указатель на кусок памяти, в не ограниченое кол-во байт (чаров)

Дельфи интерпритирует еще проще String(buf) все

ВАЖНО если размер ключа 20 байт, то надо сделать размер buf = 21 и забить 21 байт нулем. Т.к. строка - это кусок памяти заканчивается строка такая нулем.

Или еще проще, сразу перед считыванием пишите FillChar(buf, sizeof(buf), 0); Но надо точно знать, что размер buf > чем размер считанных данных т.е.

reg.ReadBinaryData('Параметр', Buf, SizeOf (buf) -1);

[FaTaL]

Сообщение от BOBAH13

Buf - кусок памяти в 20 байт (чаров)
String - указатель на кусок памяти, в не ограниченое кол-во байт (чаров)

Дельфи интерпритирует еще проще String(buf) все

ВАЖНО если размер ключа 20 байт, то надо сделать размер buf = 21 и забить 21 байт нулем. Т.к. строка - это кусок памяти заканчивается строка такая нулем.

Или еще проще, сразу перед считыванием пишите FillChar(buf, sizeof(buf), 0); Но надо точно знать, что размер buf > чем размер считанных данных т.е.

reg.ReadBinaryData('Параметр', Buf, SizeOf (buf) -1);

Есть такая ветка реестра:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\111\]
"Test"=hex:0b,d6,e7,e9,bf,f0,c3,f2,3d,64,5e,ad,cf,c8,61,75,87,31,13,bc

Как из неё извлеч данные, чтобы получилась строка
j3b8fkxxk8
Там точно эта строка есть и проги её как то получают из этих данных, но мне нужно реализовать это самому программно.
Помогите кто можите
Заранее благодарен.

[BOBAH13]

Что-то я не понял, я же написал, дал ответ. Вам лень думать ?

[FaTaL]

Сообщение от BOBAH13

Что-то я не понял, я же написал, дал ответ. Вам лень думать ?

Попробывал, но он что-то не то выдает совсем. Левые какие то символы. Может кините примерчик? Буду премного благодарен.
Вот так я сделал:

var
  reg : TRegistry;
  buf : array [0..21] of char;
begin
  FillChar (buf, SizeOf (buf), 0);
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('SOFTWARE\111', false);
  reg.ReadBinaryData('Test', buf, SizeOf (buf)-1);
  reg.CloseKey;
  reg.Free;
end;

А дальше как получить мне нужную строку, которая должна быть
j3b8fkxxk8

[BOBAH13]

Дельфи интерпритирует еще проще String(buf) все

Не понятно что вы пробывали. Я понимаю что пусть другие будут делать за вас все, это очень удобно. Ну да ладно, раз вы не проявляите желания понять и вчитатся, то вопрос:

С каких соображений вы полчили это "j3b8fkxxk8" из "0b,d6,e7,e9,bf,f0,c3,f2,3d,64,5e,a d,cf,c8,61,75,87,31,13,bc"

Т.к. я не поленился и ввел эти байты в хекс редакторе и увидел вот что:
"ЦзйїрГт=d^*ПИau‡1ј" где тут та строка я не пойму. И не уникод это вроде, т.к. языковый байт не повторяется, может кодировка какая, или еше что-то, может зашифровано, или зжато, извените но я не экстрасенс
И еще вопрос, если вы знаите что будет получена строка "j3b8fkxxk8" зачем тогда вообще ее читать ?

Задача сделана типа: получить золото из алюминия, как ?