|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Нетипизированный или Hex файл
Нужно реализовать запись в файл информация в котором будет хранится в двоичном коде, то есть bin файл. Реализовать это нужно так что бы записывалась HEX последовательность - 1 байт - NNh. Для этого был выбран нетипизированный файл. То есть "File1: File;"
как указано в примере использовалась процедура BlockWrite(); Все на первый взгляд работает, но на самом деле в этот файл записывается нечто другое, а именно абсолютно не те байты, что нужно. Хотя при обратном считывании данные идентичны с записываемыми. Похоже не корректно работает BlockWrite(); Задача состоит в том что бы записывалось все именно в первоначальной HEX последовательности, так как это прошивка для чипа. Помогите разобратся. Далее привожу исходник: Код:
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; |