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

-Сергей-

Дата 27.10.2003, 19:17 (ссылка)

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

Загрузка ...

Бывалый

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

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

Файл хранится в двоичном виде, ObjectRosourceToText и ObjectBinaryToText не помогают, сообщают Invalid Stream format.

Это сообщение отредактировал(а) -Сергей- - 27.10.2003, 19:18

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

Для утвердительного ответа достаточно лишь одного слова - "да". Все прочие слова придуманы, чтобы сказать "нет".

December

Дата 27.10.2003, 20:56 (ссылка)

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

Загрузка ...

Antitheorist

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

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

fileRead

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

Для друзей с винграда - скидки на разработку сайтов

-Сергей-

Дата 2.11.2003, 09:10 (ссылка)

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

Загрузка ...

Бывалый

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

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

Спасибо, а примерчик можно

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

remax

Дата 2.11.2003, 18:34 (ссылка)

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

Загрузка ...

Доцент

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

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

Для работы с "обычными" файлами необходимо использовать "обычные" методы:

Цитата

procedure TForm1.ExampLoad;
var
t1:file;
t2:file of byte;
b:array [0..99] of byte;
i:integer;
begin

{ВАРИАНТ 1 Используем нетипизированный файл для чтения первых 100 байт}
assignfile(t1,'Filename.dat');
reset(t1,1);
blockread(t1,b,100,i); // В i - количество реально прочитанных байт
closefile(t1);

{ВАРИАНТ 2 Используем типизированный файл для чтения первых 100 байт}
assignfile(t2,'Filename.dat');
reset(t2);
i:=0;
while (i<100) and (not eof(t2)) do
begin
read(t2,b[i]);
inc(i)
end

end;

Это сообщение отредактировал(а) remax - 2.11.2003, 18:38

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

Как бы ты не старался быть хорошим и правильным человеком с принципами и уважительным отношением к другим, всегда найдется кто-то, кто бросит в тебя какашку

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