VPF::Работа с файлами - Форум программистов

Dedal

Дата 6.5.2004, 00:26 (ссылка)

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

Загрузка ...

Новичок

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

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

Вопрос такой. Может кто подскажет. Надо открыть файл BMP. С этим-то проблем нет. Но как, допустим, в 2000-м(или любом другом) байте младший бит обнулить? Сделать это надо наложением маски вида 11111110 путем логического умножения.

p0s0l

Дата 6.5.2004, 14:32 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Код

var
  f : file;
  b : byte;
begin
  AssignFile(f, 'c:\111.bmp');
  Reset(f, 1);
  Seek(f, 2000);
  BlockRead(f, b, SizeOf(b));
  Seek(f, 2000);
  b := b and $FE;
  BlockWrite(f, b, SizeOf(b));
  CloseFile(f);
end;

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

С уважением, г-н Посол.

Crane

Дата 9.4.2005, 16:54 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Можно ли файл читать по битно, получается геморно раскладывать считанный байт на биты для послудующего их изменения, нужно весь файл перебрать побитно для применения хитрого скремблера к каждому прочитанному биту. Должен же быть способ через функции MS-DOS, или со вставками на ассемблере или еще как, но должно же быть решение подскажите!

Snowy

Дата 11.4.2005, 08:49 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Crane @ 9.4.2005, 16:54)

Можно ли файл читать по битно

Нет. Операционная система позволяет читать только блоками, размер которых указывается в байтах.
Соответственно минимальная единица считываемой информации = 1 байт.
Но оптимально читать большими блоками (лучше сразу весь файл) и работать с байтами уже в памяти.

Добавлено @ 08:54
Кроме того нет типа данных для хранения одного бита. Все равно вся работа идет минимум с байтом.

EKoshelev

Дата 14.4.2005, 09:33 (ссылка)

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

Загрузка ...

Опытный

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

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

p0s0l, глядя на твой код мне почему-то кажется что после всех дел, которые ты там описал файл станет длиной 2000 б. Хотя я на 100% не уверен. А ты уверен, что он останется прежней длины???

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

Вежливым и адекватным предлагаю общаться на "ты".

Snowy

Дата 14.4.2005, 11:26 (ссылка)

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

Загрузка ...

Эксперт

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

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

Файл останентся той длины, которой был, если до этого он был длиннее, чем 2000.
Задача стояла - изменить 2000-й байт.

Dr.No_xXx

Дата 14.4.2005, 13:54 (ссылка)

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

Загрузка ...

Бывалый

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

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

Как вариант мона сделать так.В каждом байте хранится 8 бит.То есть в этих 8 битах хранится код байта.Мона впринципе,при знании кодов,просто выводить инфу в битах.

Snowy

Дата 14.4.2005, 15:20 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Dr @ 14.4.2005, 13:54)

Мона впринципе,при знании кодов,просто выводить инфу в битах.

Куда выводить? Зачем??
Человеку нужно изменить один или несколько бит в файле.
Тут только один путь - цитаешь нужный байт, меняешь в нем нужный бит и пишешь его назад.

Dimannn

Дата 15.4.2005, 10:05 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 14.4.2005
Где: Владимир

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

Попробуй так

Код


Type Bit= ^Boolean;

procedure TForm1.Button1Click(Sender: TObject);
Var H1,h2: THandle;
    Base, P: Bit;
begin
H1:=FileOpen('filename',fmOpenReadWrite);
h2:=CreateFileMapping(H1,nil,0,0,0,nil);
Base:=MapViewOfFile(h2,PAGE_READWRITE,0,0,0);
P:=Base;

P:=Pointer(Integer(P)+SizeOf(Boolean)*2332) //Доступ к биту № 2332
P^:=not(P^);  //Инвертирование бита

UnmapViewOfFile(Base);
CloseHandle(h2);
CloseHandle(H1);
end;

Это сообщение отредактировал(а) Dimannn - 15.4.2005, 10:06

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

Хотите быстро и без проблем опубликовать вашу программу в сети за 5 минут?
Тогда потратьте пару минут чтобы посмотреть, что предлагает OpenProject.org.ru

<Spawn>

Дата 15.4.2005, 11:38 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Dimannn Зачем такие извращения? И при чем тут изменение байт(Boolean имеет размер 1 байта, а не бита!!!!)? Уже все давно распиали. Зачем постить код, не имея представления о том, что он делает?

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

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