VPF::Чтение BIN файла. Как прочитать инфу

Pentium02

Дата 14.8.2006, 23:41 (ссылка)

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

Загрузка ...

Бывалый

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

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

Есть бинарник, нужно получить инфу, написанаю по известным адресам, как это сделать?

Snowy

Дата 15.8.2006, 01:14 (ссылка)

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

Загрузка ...

Эксперт

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

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

Читай справку по TFileStream.Create
После создания стрима, установи его Position в нужный адрес.
Читать - с помощью соответствующих методов, в зависимости от типа данных.
Примеры можешь найти поиском по слову TFileStream.

Pentium02

Дата 15.8.2006, 15:41 (ссылка)

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

Загрузка ...

Бывалый

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

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

Я пытаюсь прочитать ФуллФлеш от мобилы Siemens S75.
По адресу 0000210 находится надпись S75
а по адресу 0000220 надпись SIEMENS
А четает какуюто чушь.

Код


procedure TForm1.Button1Click(Sender: TObject);
var
F: TFileStream;
FR: Integer;
buf: array[0..16] of char;
begin
F:=TFileStream.Create('D:\Test.bin', fmOpenReadWrite);
Edit1.Text:=IntToStr(F.Size);
F.Position:= 0000220;
F.Read(buf, 16);
Memo1.Lines.Text:=buf;
f.Free;
end;

Это сообщение отредактировал(а) Pentium02 - 15.8.2006, 15:41

dumb

Дата 15.8.2006, 15:52 (ссылка)

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

Загрузка ...

sceloglauxalbifacies

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

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

есть подозрение, что

Код


F.Position:= $0000220;

Pentium02

Дата 16.8.2006, 00:11 (ссылка)

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

Загрузка ...

Бывалый

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

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

Спасибо!!!

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