[Решена] Чтение бинарного файла

[edyapd]

Не получается прочитать файл как бинарный

$hFile = FileOpenDialog("Выбор файла", @ScriptDir, "Файлы bin(*.bin)")
FileOpen($hFile, 16)
$data = FileRead($hFile, 1)
FileClose($hFile)
MsgBox(0, "Прочитанный байт:", Hex($data, 2))

Сам файл имеет такую последовательность байт

31 00 27 56 33 31

В итоге в сообщении вместо 31 выводится 01. И мало того, второй байт вообще не хочет читать, если задаю чтение двух байт. Такое ощущение как-будто натыкается на конец файла.

 

[alex33]

Re: Чтение бинарного файла

$sFile = FileOpenDialog("Выбор файла", @ScriptDir, "Файлы bin(*.bin)")
;~ If @error Then Exit MsgBox(16, "Ошибка", "При выборе файла произошла ошибка", 30)
$hFile = FileOpen($sFile, 16)
;~ If @error Then Exit MsgBox(16, "Ошибка", "При открытии файла произошла ошибка", 30)
$data = FileRead($hFile, 1)
;~ If @error Then Exit MsgBox(16, "Ошибка", "При чтении файла произошла ошибка", 30)
FileClose($hFile)
;~ If @error Then Exit MsgBox(16, "Ошибка", "При закрытии файла произошла ошибка", 30)
MsgBox(0, "Прочитанный байт:", Hex($data, 2))

 

[Garrett]

Re: Чтение бинарного файла

OffTopic:
edyapd
Читать данный вопрос от вас мягко говоря странно

 

[edyapd]

Re: Чтение бинарного файла

OffTopic:
edyapd
Читать данный вопрос от вас мягко говоря странно

Да я диалог никогда не использовал. А тут плюс уже спать давно пора. Вот и затупил.
Всем спасибо. Ошибку осознал.