VPF::чтение из буфера - Форум программистов

JS2

Дата 4.2.2010, 11:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 25.3.2009

Репутация: нет
Всего: нет

Доброго времени суток. Не могу разобраться как проити по буферу, который формируется из стрима и на каждом офсете считать по 4 байта. Т.е. условно содержимое:

1 2 3 4 5 6 7 8 9

в цикле выводим:

1 2 3 4
2 3 4 5
3 4 5 6
4 5 6 7
5 6 7 8
6 7 8 9

Вот начало:

Код


procedure TForm8.Button2Click(Sender: TObject);
var
  S: TStream;
  Buf: PChar;
  I: Integer;
begin
  S := TFileStream.Create('Test', fmOpenRead or fmShareDenyNone);
  try
    GetMem(Buf, S.Size);
    try
      S.Read(Buf^, S.Size);
      for I := 0 to S.Size - 3 do
      begin
        //
      end;
    finally
      FreeMem(Buf);
    end;
  finally
    S.Free;
  end;
end;

Mikel

Дата 4.2.2010, 11:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

Репутация: нет
Всего: 2

Что-н типа этого

Код


PDWord=LongWord^;
...
D:LongWord;
..

D:=PDWord(LongWord(@Buf)+i)^;

Добавлено через 2 минуты и 12 секунд
Да, и S.Size - 4

--------------------

...so remember, it's better to burn out than to fade away

JS2

Дата 4.2.2010, 11:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 25.3.2009

Репутация: нет
Всего: нет

Цитата(Mikel @ 4.2.2010, 11:07

)

Что-н типа этогокод Pascal/Delphi1:2:3:4:5:6:PDWord=LongWord^;...D:LongWord;..D:=PDWord(LongWord(@Buf)+i)^;highlightSyntax('delphi_A2NTQx','delphi');highlightSyntax('delphi_A2NTQx','delphi');Добавлено через 2 минуты и 12 секундДа, и S.Size - 4

блин, что то не то:

выводится так:

7FF40010
907FF400
50907FF4
C750907F

а надо вроде как так:

7FF40010
F4001090
00109050
109050C7

Или я что-то не понимаю?

Mikel

Дата 4.2.2010, 12:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

Репутация: нет
Всего: 2

Все верно, просто поменяй байты местами. Информация к размышлению http://ru.wikipedia.org/wiki/%D0%9F%D0%BE%...%82%D0%BE%D0%B2

--------------------

...so remember, it's better to burn out than to fade away

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »