Перевод с QT5 в Delphi

[arxlex]

Преобразование байтов в числа:
Рабочий исходный код (QT5):

unsigned int bytes_to_int(QByteArray data, int start)
{
    unsigned int result=0;
    unsigned char temp;

    temp = data[start + 3];
    result = result | temp;
    result = result << 8;

    temp = data[start + 2];
    result = result | temp;
    result = result << 8;

    temp = data[start + 1];
    result = result | temp;
    result = result << 8;

    temp = data[start];
    result = result | temp;

    return result;
}

Моя версия перевода(не работает=():

function ByteToInt(const s: string; base: integer): integer;
var
  i: integer;
  c: Char;
begin
  i := 0;
  c := s[base + 3];
  i := i + ord(c);
  i := i shl 8;
  c := s[base + 2];
  i := i + ord(c);
  i := i shl 8;
  c := s[base + 1];
  i := i + ord(c);
  i := i shl 8;
  c := s[base];
  i := i + ord(c);
  Result := i;
end;

К сожелению мой перевод не работает, показывает не корректные значения. Кто подскажет в чем может быть ошибка? Спасибо!

[Rin]

Компилятор делает то, что написано в коде. Что вы хотите получить из такой строки
"1234"?
Ответы:
1)875770417
2)52515049

[Человек_Борща]

Байт в число? Ну как-то так...

function ByteToInt(const aValue:Byte):Integer;
var
 aHEX:String;
 aInt:Integer;
begin
 Result:=-1;
 aInt:=-1;
aHex:=''; 
aHex:=SysUtils.IntToHex(aValue,2*SizeOf(aValue));
 if (aHex <> EmptyStr) then
 begin
   If TryHexToInt(aHex,aInt) then
   begin
   if aInt <> -1 then
   Result:=aInt;
   end;
 end;
end;

[GunSmoker]

Есть мнение, что в QByteArray нумерация начинается с нуля, а не с единицы, как в строках в Delphi.

[Пепел Феникса]

1)GunSmoker прав.
2)а почему строка выбрана аналогией массива байт?

[arxlex]

Вот данные которые надо прочитать:

data(TStringList):
#1#0#0#0' '#0#0#0#0'$'#$1F#0#$1C#2#0#0'@'#3#0#0#0#0#0#0#8#0#0#0#$10#0#0#0#8#0#0#0#8#0#0#0#8#0#0#0#$18#0#0#0#8#0#0#0

В data-е храняться данные полученные с телефона на базе андроид. Точнее данные скриншота экрана, высота, ширина, глубина экрана в пикселях, оффсет красного, размер красного и .т.п.

с помощи функции int bytes_to_int(QByteArray data, int start) данные преобразуются в числах. Например высота - 320, ширина - 240, глубина цвета - 4 и .т.п.

                        bytesPerPixel = bytes_to_int(data, 4)/8;
                        width = bytes_to_int(data, 12);
                        height = bytes_to_int(data, 16);
                        redOffset = bytes_to_int(data, 20);
                        redSize = bytes_to_int(data, 24);
                        blueOffset = bytes_to_int(data, 28);
                        blueSize = bytes_to_int(data, 32);
                        greenOffset = bytes_to_int(data, 36);
                        greenSize = bytes_to_int(data, 40);
                        alfaOffset = bytes_to_int(data, 44);
                        alfaSize = bytes_to_int(data, 48);

[Пепел Феникса]

перечитать мой пункт 2, у вас не строка в функции то.

[GunSmoker]

Если исходные данные в Delphi вы помещаете в строку, то я бы написал bytes_to_int так:

function data_to_int(const AData: AnsiString; const AOffset: Integer): Cardinal;
begin
  Result := PCardinal(@AData[AOffset + 1])^;
end;

...

var
  Data: AnsiString;
begin
  ...
  bytesPerPixel := data_to_int(data, 4) div 8;
  width := data_to_int(data, 12);
  height := data_to_int(data, 16);
  redOffset := data_to_int(data, 20);
  ...

[arxlex]

Спасибо, GunSmoker-у! Тема закрыта