Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как поменять в файле один (или несколько) байт? быстро 
V
    Опции темы
EKoshelev
Дата 15.10.2006, 09:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Интересно как поменять в файле один или несколько байтов.

Можно конечно скопировать исх. файл по байтам и в процессе копирования изменить чё надо. Но это долго. Можно ли сделать это как-нибуть по быстрее?


--------------------
Вежливым и адекватным предлагаю общаться на "ты".
PM MAIL   Вверх
volvo877
Дата 15.10.2006, 09:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116
Какой файл-то?

Если открыть как бестиповый (или File Of Char), то в чем проблема? Seek еще никто вроде не отменял...
PM MAIL   Вверх
BUGOR
Дата 15.10.2006, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 5
Всего: 16
Можно использовать Memory Mapped Files. Тоже быстро получится. 


--------------------
Живу недоумевая, всё время хочу понять...
http://hunger.ru 
PM MAIL WWW ICQ   Вверх
Snowy
Дата 15.10.2006, 15:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Код

var
  fs: TFileStream;
  s:  string;
begin
  s := #$FF#$AB#$28#$4A; // Например хотим прописать туда байты FF AB 28 4A
  try
    fs := TFileStream.Create('', fmOpenReadWrite or fmShareDenyNone);
    try
      fs.Seek($A200, soBeginning); // прописать в позицию в файле $A200
      fs.Write(s[1], Length(s));
    finally
      fs.Free;
    end;
  except end;
end;
PM MAIL   Вверх
EKoshelev
Дата 15.10.2006, 17:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Snowy, спасибо брат

Просто я не знал, что всё прогрессивное человечество уже работает с TFileStream.

Это сообщение отредактировал(а) EKoshelev - 15.10.2006, 17:30


--------------------
Вежливым и адекватным предлагаю общаться на "ты".
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0466 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.