Форум программистов, компьютерный форум, киберфорум
Pure Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/30: Рейтинг темы: голосов - 30, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 29.09.2016
Сообщений: 38

big-endian byte order

20.10.2020, 19:00. Показов 6417. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добрый вечер!

Подскажите, как считать big-endian byte из памяти принятого в нее, ну или просто: как перевести из Си подобных языков, например Python в Purebasic, следующее: socket.ntohl(struct.unpack('I',buf[4:8])[0]) ?
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
20.10.2020, 19:00
Ответы с готовыми решениями:

Порядок байт в big-endian и little-endian
Всем привет! Народ подскажите мне пожалуйста простые прописные истины, а то я что то запутался! Предположим что у нас в байте 8 - бит и...

BitConverter little-endian -> big-endian
Копирую в массив byte некоторые значения byte msg = new byte; Array.Copy(BitConverter.GetBytes(STX), 0, msg, 0, sizeof(int)); ...

из little-endian в big-endian
Из little-endian в big-endian с помощью виртуальных классов

10
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
20.10.2020, 19:22
Если вы знаете, что там у вас в памяти лежит, то нет необходимости читать по байтам и разбираться в их порядке.
Можно сразу прочитать всю строку
Text$ = PeekS(*MemoryBuffer [, Length [, Format]])

Или сразу переменную типа Long
Value.l = PeekL(*MemoryBuffer)

, а так же много чего, в справке в разделе Memory расписано всё, как и что можно.
0
0 / 0 / 0
Регистрация: 29.09.2016
Сообщений: 38
21.10.2020, 13:00  [ТС]
Что-то мне всё-равно не понятно. В память приходит набор числовых данных с определенной структурой. Мне нужны те, что с 8 байта длиной 4 байта.

В Python-е я из памяти начиная с 8 байта считываю 4-х байтное число:
test1 = struct.unpack('I',datagram[8:12])[0]
print test1 #тут будет такое число 2482343775

В Purebasic:
test1 = PeekL(*buffer + 8)
;Получаю похожее число 2482343775

Дальше в Python я полученное число переделываю в то, что будет являться датой
test2 = socket.ntohl(test1)
print test2 #тут будет такое число 1603270035, которое является датой

В Purebasic:
Не понятно, что тут делать.

Debug FormatDate("%hh:%ii:%ss %dd/%mm/%yyyy", 2482343775) покажет 00:00:00 00/00/0000
Debug FormatDate("%hh:%ii:%ss %dd/%mm/%yyyy", 1603270035) покажет 08:47:15 21/10/2020
0
Эксперт по электронике
6493 / 3123 / 331
Регистрация: 28.10.2011
Сообщений: 12,279
Записей в блоге: 7
21.10.2020, 14:20
Лучший ответ Сообщение было отмечено spycor как решение

Решение

Цитата Сообщение от spycor Посмотреть сообщение
Не понятно, что тут делать.
Тоже что в питоне.
PureBasic
1
Debug ntohl_(2482343775)
1
0 / 0 / 0
Регистрация: 29.09.2016
Сообщений: 38
21.10.2020, 15:10  [ТС]
Так вот оно что! Яяяяяясно. Спасибо!
0
Эксперт по электронике
6493 / 3123 / 331
Регистрация: 28.10.2011
Сообщений: 12,279
Записей в блоге: 7
21.10.2020, 15:38
Это функция винды (WinAPI) https://docs.microsoft.com/ru-... sock-ntohl
1
Заблокирован
18.11.2020, 22:13
Лучший ответ Сообщение было отмечено spycor как решение

Решение

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Procedure.w EndianW(value.w)
  EnableASM
  ROL value, 8
  DisableASM
  ProcedureReturn value
EndProcedure
 
Procedure.l EndianL(value.l)
  EnableASM
  MOV Eax,value
  BSWAP Eax
  DisableASM
  ProcedureReturn
EndProcedure
 
Procedure.q EndianQ(val.q)
  CompilerIf #PB_Compiler_Processor = #PB_Processor_x64
    !MOV rax,qword[p.v_val]
    !BSWAP rax
    ProcedureReturn
   CompilerElse
    !MOV Eax,dword[p.v_val]
    !MOV Edx,dword[p.v_val+4]
    !BSWAP Eax
    !BSWAP Edx
    !MOV dword[p.v_val+4],Eax
    !MOV dword[p.v_val],Edx
    ProcedureReturn val
  CompilerEndIf
EndProcedure
 
Debug EndianL(2482343775)
и использование в твоём случае:
PureBasic
1
test1 = EndianL(PeekL(*buffer + 8))
1
0 / 0 / 0
Регистрация: 29.09.2016
Сообщений: 38
30.11.2020, 18:39  [ТС]
Продолжу тему. Покажите, плз, как правильно считать из памяти число формата big-end ?

Вот как это делаю я, но это явно не так должно быть.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
; Подготовка данных пришедших в память в формате big-end. Это число 5 в двух байтах.
*buf = AllocateMemory(2)
PokeA(*buf + 0, 0)
PokeA(*buf + 1, 5)
 
Debug PeekU(*buf); Тут будет 1280, а должно быть 5.
 
; Чтобы его считать, я создаю временный буфер
*buf_temp = AllocateMemory(2)
PokeA(*buf_temp + 0, PeekA(*buf + 1)); Считываю последний байт из памяти и записываю его во временный буфер первым
PokeA(*buf_temp + 1, PeekA(*buf + 0)); Считываю первый байт и пишу его вторым
 
Debug PeekU(*buf_temp); Тут будет нужное число 5.
Как сразу считать число в обратном порядке байт, т.к. Peek считывает только в little-end?
0
Заблокирован
30.11.2020, 21:06
Лучший ответ Сообщение было отмечено spycor как решение

Решение

Цитата Сообщение от spycor Посмотреть сообщение
Это число 5 в двух байтах.
2 байта это word
чтение: value = EndianW(PeekW(*MemoryBuffer))
запись: PokeW(*MemoryBuffer, EndianW(Number))

Добавлено через 5 минут
можно отдельные функции сделать для чтения BE, чтоб не путаться:
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Procedure.w EndianW(value.w)
  !ROL word[p.v_value], 8
  ProcedureReturn value
EndProcedure
 
Procedure.l EndianL(value.l)
  !MOV Eax, dword[p.v_value]
  !BSWAP Eax
  !MOV dword[p.v_value], Eax
  ProcedureReturn value
EndProcedure
 
Procedure.q EndianQ(value.q)
  !MOV Eax, dword[p.v_value]
  !MOV Edx, dword[p.v_value+4]
  !BSWAP Eax
  !BSWAP Edx
  !MOV dword[p.v_value+4], Eax
  !MOV dword[p.v_value], Edx
  ProcedureReturn value
EndProcedure
 
Procedure.w PeekWB(*MemoryBuffer)
  ProcedureReturn EndianW(PeekW(*MemoryBuffer))
EndProcedure
 
Procedure.l PeekLB(*MemoryBuffer)
  ProcedureReturn EndianL(PeekL(*MemoryBuffer))
EndProcedure
 
Procedure.q PeekQB(*MemoryBuffer)
  ProcedureReturn EndianQ(PeekQ(*MemoryBuffer))
EndProcedure
 
Procedure PokeWB(*MemoryBuffer, Number.w)
  PokeW(*MemoryBuffer, EndianW(Number))
EndProcedure
 
Procedure PokeLB(*MemoryBuffer, Number.l)
  PokeL(*MemoryBuffer, EndianL(Number))
EndProcedure
 
Procedure PokeQB(*MemoryBuffer, Number.q)
  PokeQ(*MemoryBuffer, EndianQ(Number))
EndProcedure
чтение: value = PeekWB(*MemoryBuffer)
запись: PokeWB(*MemoryBuffer, Number)
1
0 / 0 / 0
Регистрация: 29.09.2016
Сообщений: 38
04.12.2020, 11:47  [ТС]
Цитата Сообщение от pustelekno Посмотреть сообщение
2 байта это word
А если 2 байта Unicod, как быть с ним?
0
Заблокирован
04.12.2020, 20:38
так же как и с .w
Code
1
2
3
4
5
6
7
Procedure.u PeekUB(*MemoryBuffer)
  ProcedureReturn EndianW(PeekU(*MemoryBuffer))
EndProcedure
 
Procedure PokeUB(*MemoryBuffer, Number.u)
  PokeU(*MemoryBuffer, EndianW(Number))
EndProcedure
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
04.12.2020, 20:38
Помогаю со студенческими работами здесь

Из little endian в big endian
Есть 256-битное 16-ричное число: 54 68 69 73 20 69 73 20 6D 65 73 73 61 67 65 2C 20 6C 65 6E 67 74 68 3D 33 32 20 62 79 74 65 73 Как...

Big-endian тестирование
Есть программа, которая должна работать на little и big endian одинаково. В ней куча всяких "ifdef". С помощью какого ПО для...

Как проще всего работать с Big-Endian C++ ?
С++. Как проще всего работать с Big-Endian, используя стандартные операции ?

Требуется совет по Little и Big-endian разной битности
допустим есть у меня байтовый массив следующего содержания: В Int32-little endian он будет выглядит как: - реверс всего...

Как считывать бинарные данные из файла с big-endian порядком?
Как считать данный из bin файла в котором данные(байты) записаны от старшего к младшему(т.е. в big-endian) сейчас я использую такой код...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru