Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 13.07.2009, 22:56
LIC LIC вне форума
Прохожий
 
Регистрация: 13.07.2009
Сообщения: 6
Репутация: 10
По умолчанию Операция с файлами через FileStream

Здравствуйте господа.
Поиском пользовался, не нашел, Delphi выбрал по принадлежности к Паскалю. Прошу не пинать, отнестись с пониманием.
Задача такая, выбираем файл на диске (bin), определяем участок файла для исследования двумя значениями "Старт Адрес" и "Стоп Адрес", начало области не обязательно должно совпадать с началом файла и вводим еще одно контрольное значение (в моем случае это контрольная сумма). Программа подсчитывает К.С. обозначенного участка, сравнивает с контрольным значением, если совпадения нет, то "Старт Адрес" увеличиваем на один и так далее.
Вот набросок:

Код:
procedure TForm1.Button1Click(Sender: TObject); // выбор файла
begin
If OpenDialog1.Execute then LabeledEdit1.Text:=Opendialog1.FileName;
end;

procedure TForm1.Button2Click(Sender: TObject); // обработка
var
Siz, CRC: Cardinal;

FSize: Int64;

begin
FSize:=HexToInt(LabeledEdit3.Text);
??????????????????????????????????? // загрузить файл
CRC:=FileCRC(LabeledEdit1.Text);
LabeledEdit4.Text:=IntToHex(CRC,8);
end;
//----------------------------------------------

lmikle: Пользуемся тегами!

(вначале хочу научиться загружать и выделять участок файла, а потом и дальше можно)

Почитав и подумав решил работать с выбранным файлом через FileStream ибо там проще и обозначить "Старт Адрес" - смещение и "Стоп Адрес" как размер ("Стоп Адрес" минус "Старт Адрес"), но вот опыта нет для загрузки выбранного файла в поток.
Если у вас есть идеи ли в моем выборе есть ошибка, прошу подсказать. Если есть ссылка на пример похожий на мою задачу (основная загвоздка в загрузке файла и выделение участка файла), буду весьма признателен.
Извините если мой вопрос несуразен или примитивен.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 08:47.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025