Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как правильно прочитать начало файла

Автор: JohnnySE 15.8.2006, 15:51

начало файла: FF FF FF 7F
как получить такой вид: 0x7fffffff

Автор: _hunter 15.8.2006, 15:59

а чем не устраивает такой:
0xffffff7f
вид?

P.S.
чтобы получить вышеукзанный вид все байты развернуть -- первый на место последнего (и наоборот), второй на место третьего (инаоборот)

Автор: Snowy 15.8.2006, 16:01

Открываешь файл через TFileStream.
Делаешь ReadInteger - получаешь число в правильном порядке.

Автор: Alexeis 15.8.2006, 16:14

Цитата(Snowy @ 15.8.2006, 16:01

)

Делаешь ReadInteger - получаешь число в правильном порядке

Для архитектуры Intel байты данных в памяти и файле хранятся в порядке обратном тому кототорый мы используем при записи на бумаге или при наборе в текстовом редакторе.

Автор: Snowy 15.8.2006, 16:18

Именно поэтому нужно читать не побайтово, а блоком, чтобы данные встали на соответствующее место в памяти.
Через ReadInteger читаем сразу четырёхбайтовое значение и оно корректно ложится в память на свои 4 байта.

Автор: JohnnySE 15.8.2006, 16:47

Я наверно не правильно задал вопрос.
В файл я выгрузил данные для себя и для сравнения.

Код


type
stFileHeader = record
  start_sig:  array[0..3]of byte;     // всегда 0x7fffffff
  finish_sig: array[0..3]of byte;     // всегда 0x00000200
  blocks_num: array[0..3]of byte; // похоже на количество блоков
  reserved:   array[0..3]of byte;    // зарезервировано
end;

читаю
MemStreamOut.ReadBuffer(fileheader, sizeof(fileheader));
и вижу что fileheader.start_sig = (255,255,255,127);

а мне надо получить 7fffffff, как?

Автор: Yanis 15.8.2006, 16:51

JohnnySE
А почему бы в структуре не заменить array[0..3]of byte на Integer?

Автор: Romikgy 15.8.2006, 16:54

JohnnySE, а покажи как загружал?

Цитата(JohnnySE @ 15.8.2006, 15:47

)

start_sig: array[0..3]of byte;

этот массив как инициализировал?

Автор: Yanis 15.8.2006, 16:58

JohnnySE
Конечно, если нужны извращения, то можно и так твой массив перевести:

Код

  dwNum: DWORD;
begin
  start_sig[0] := 255;
  start_sig[1] := 255;
  start_sig[2] := 255;
  start_sig[3] := 127;

  dwNum := ((start_sig[0] or start_sig[1] shl 8) or (start_sig[2] or start_sig[3] shl 8) shl 16);
end;

Автор: JohnnySE 15.8.2006, 17:05

Если меняю на integer, то в массив попадает
2147483647,512,1,0
А если byte
то 255,255,255,127
потом можно сделать так
цикл
HStr:= HStr+IntToHex(fileheader.start_sig[i],2);
и получаем то что надо
Спасибо Всем

Автор: Yanis 15.8.2006, 17:13

Цитата(JohnnySE @ 15.8.2006, 18:05

)

и получаем то что надо
Спасибо Всем

Мой вариант на пару суток быстрее!

Автор: JohnnySE 16.8.2006, 11:20

Цитата(Yanis @ 15.8.2006, 16:58

)

Конечно, если нужны извращения, то можно и так твой массив перевести:

вот просил помочь, а Вы извращения...
http://forum.vingrad.ru/index.php?showtopic=107533
Заголовок файла

{
    DWORD sig;            // всегда 0x7fffffff
    DWORD sig2;            // всегда 0x00000200
    DWORD blocks_num;        // похоже на количество блоков, но не всегда
                    // поэтому расчитываем количество блоков сами
    DWORD reserved;
};

Заголовок элемента
{
    char EOL[2];
    char data_len[8];            // размер данных в HEX как строка!
    char space1;
    char page_len[8];            // размер страницы в HEX как строка!
    char space2;
    char next_item_addr[8];        // указатель на следующую страницу
                        // текущего блока в HEX как строка.
                        // Если последняя страница, то 0x7fffffff
    char space3;
    char EOL_2[2];
};

Cсылка на блок описания метаданных

{
    DWORD block_header_addr;    // адрес заголовка
    DWORD block_data_addr;        // адрес данных
    DWORD fffffff;            // должно быть равно 0x7fffffff. Если
                        // нет, то блоки ссылок закончились
};