[Alexius]

Нужно реализовать запись в файл информация в котором будет хранится в двоичном коде, то есть bin файл. Реализовать это нужно так что бы записывалась HEX последовательность - 1 байт - NNh. Для этого был выбран нетипизированный файл. То есть "File1: File;"
как указано в примере использовалась процедура
BlockWrite(); Все на первый взгляд работает, но на самом деле в этот файл записывается нечто другое, а именно абсолютно не те байты, что нужно. Хотя при обратном считывании данные идентичны с записываемыми.
Похоже не корректно работает BlockWrite();
Задача состоит в том что бы записывалось все именно в первоначальной HEX последовательности, так как это прошивка для чипа.
Помогите разобратся. Далее привожу исходник:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TForm1.Button1Click(Sender: TObject); var f:File;      i:Byte;      Ti,To:String; begin Ti:=''; To:='FF'; AssignFile(F,'c:\92.bin'); Rewrite(F,1); BlockWrite(F,To,1); CloseFile(F); Reset(F,1); BlockRead(F,Ti,1) CloseFile(F); Label1.Caption:=To; Label2.Caption:=Ti; End;

[Decoding]

Если я правильно понял твою глубокую мысль, то попробуй так

Код:

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

<b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>const</b>   Long = <font color="royalblue">3</font>; <b>var</b>   f: <b>File</b> <b>of</b> byte;   _Ti, _To: <b>array</b> <b>of</b> byte;   i: integer; <b>begin</b>    SetLength( _Ti, Long );    FillChar( _Ti, Long, <font color="royalblue">0</font> );    SetLength( _To, Long );    FillChar( _To, Long, <font color="royalblue">0</font> );    _To[<font color="royalblue">0</font>] := <font color="royalblue">$FF</font>;    _To[<font color="royalblue">1</font>] := <font color="royalblue">$AA</font>;    _To[<font color="royalblue">2</font>] := <font color="royalblue">$54</font>;    AssignFile( F, <font color="royalblue">'c:\92.bin'</font> );    Rewrite( F );    BlockWrite( F, _To[<font color="royalblue">0</font>], Length( _To ) );    CloseFile( F );    Reset( F );    BlockRead( F, _Ti[<font color="royalblue">0</font>], Length( _Ti ) );    CloseFile( F );    Label1.Caption := <font color="royalblue">''</font>;    Label2.Caption := <font color="royalblue">''</font>;    <b>for</b> i := <font color="royalblue">0</font> <b>to</b> Long-<font color="royalblue">1</font> <b>do</b>    <b>begin</b>       Label1.Caption := Label1.Caption + IntToStr( _To[i] ) + <font color="royalblue">'; '</font>;       Label2.Caption := Label2.Caption + IntToStr( _Ti[i] ) + <font color="royalblue">'; '</font>;    <b>end</b>; <b>end</b>;

[Alexius]

Не работает программа. Выбрасывает ошибку в строке _To[0] := $FF;
Но мне все-таки кажется что понял ты меня не правильно. Файл должен быть именно формата HEX, а у тебя там получается Byte. Он ведь получается хранится в другом формате или нет?

[Decoding]

Не работает программа. Выбрасывает ошибку в строке _To[0] := $FF;

Убери строки
FillChar( _Ti, Long, 0 );
FillChar( _To, Long, 0 );

Но мне все-таки кажется что понял ты меня не правильно. Файл должен быть именно формата HEX, а у тебя там получается Byte. Он ведь получается хранится в другом формате или нет?

Тогда объясни, что значит в HEX формате? У любого символа есть код, например для 'f' это 102 (в десятичной форме). Но его можно показать и в HEX (66), и в BIN (01100110), и в OCT (146) и в любой другой...

В твоем примере переменная To имеет тип string, и ты ей присваиваешь 'FF' (To:='FF'), после чего записываешь To в файл. Если ты хочешь, чтобы в файле после этого было 'FF' (то-есть, что записал, то и увидел), то работай с файлом как с обычным текстовым...

[Alexius]

Чувак респект, похоже я начинаю догонять, что означает нижнее подчеркивание в переменных и символ доллара?

[Decoding]

Нижнее подчеркивание (_) - ничего оно не значит... Просто переменную To объявить нельзя, т.к. в Delphi это зарегистрированное слово (в цикле for). Вот я и поставил впереди подчеркивание...

Символ доллара ($) - означает, что за ним идет число в шестнадцатиричном формате ($FF = 255)...