[LIC]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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 ибо там проще и обозначить "Старт Адрес" - смещение и "Стоп Адрес" как размер ("Стоп Адрес" минус "Старт Адрес"), но вот опыта нет для загрузки выбранного файла в поток.
Если у вас есть идеи ли в моем выборе есть ошибка, прошу подсказать. Если есть ссылка на пример похожий на мою задачу (основная загвоздка в загрузке файла и выделение участка файла), буду весьма признателен.
Извините если мой вопрос несуразен или примитивен.

[lmikle]

что-то типа такого:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

var   AStream : TFileStream;   AData : Pointer;   ADataLength : Integer; begin   GetMem(AData,ADataLength);     // Забираем кусок файла в память   AStream := TFileStream.Create('Здесь имя файла',fmOpenRead);   AStream.Seek(1024,soFromBegining);   AStream.ReadBlock(AData,ADataLength);   AStream.Free;     // Здесь считаем CRC   ...     // Освобождаем память   FreeMem(AData,ADataLength); end;

[LIC]

Спасибо уважаемый lmikle, принцип понял.
За правку сообщения благодарю, исправлюсь.

[LIC]

Долго не спрашивал, просто пытался сам, но...

[LIC]

Доброе время суток.
Благодаря подсказке уважаемого lmikle освоил и реализовал FileStream поток, смог решить свою задачу, но вот возникла новая проблема. После открытия исследуемого файла пр-рой OpenDialog создаем новый файл при помощи FileStream нужного размера и проверяем CRC, если есть не равенство с искомым, то создаем новый файл с размером меньше на один байт и так по кругу. Но после определенного круга Windows выдает ошибку, что не может найти исходный файл, в чем проблема, может кто сталкивался.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

function TForm1.FileCRC32(const FileName: string): Cardinal;     var     InFile, Stream1, Stream2 : TFileStream;     crc32: Int64;     Res: Int64;     BufPtr: Pointer;     Sz, Ps: Integer;     S1, S2: Int64;     begin     Ps:= StrToInt('$'+LabeledEdit2.Text);     BufPtr := @Buf;     crc32 := $FFFFFFFF;   try //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++     Stream1 := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);     Stream1.Seek(Ps, soBeginning);     Stream2 := TFileStream.Create('Temp.tmp', fmCreate, fmOpenWrite);     Stream2.Seek(0, soBeginning);     Sz := Stream1.Size ;     Sz:= Sz-Ps;     Stream2.CopyFrom(Stream1, Sz); finally     Stream2.Free;      Stream1.Free;  end; //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  try       InFile := TFileStream.Create('Temp.tmp', fmOpenRead);       InFile.Seek(0, soBeginning);       Res := InFile.Read(Buf, BufLen);    while (Res <> 0) do begin       crc32 := UpdateCrc32(crc32, BufPtr, Res);       Res := InFile.Read(Buf, BufLen);      end;     InFile.Destroy;   except     on E: Exception do begin       if Assigned(InFile) then         InFile.Free;       ShowMessage(Format('При обработке файла [%s] произошла ' +         'ошибка [%s]', [FileName, E.Message]));    end; end;   Result:= crc32;   //XOR Out  not = FFFFFFFF   LabeledEdit4.Text:=IntToHex(CRC32,8);   begin     DeleteFile('Temp.tmp');     Inc(Ps);     LabeledEdit2.Text:=IntToHex(Ps,8);     S1:= StrToInt('$'+ LabeledEdit3.Text);     S2:= CRC32;    if Pointer(S1) = Pointer(S2) then begin     Ps:= StrToInt('$'+LabeledEdit2.Text);     LabeledEdit2.Text:=IntToHex(Ps,8);     end

Это один из вариантов, пробовал разные варианты.
Где моя ошибка? Подскажите пожалуйста.

[lmikle]

Навскидку:
1.
Stream2 := TFileStream.Create('Temp.tmp', fmCreate, fmOpenWrite);
->
Stream2 := TFileStream.Create('Temp.tmp', fmCreate);

2.
InFile.Destroy;
->
InFile.Free;

3. Вообще, у тебя что-то мудренно все делается. Во первых, можно не создавать файл, а использовать поток в памяти - TMemoryStream. И во вторых - незачем переписывать файл кучу раз, найди готовый алгоритм расчета crc32, который будет нормально работать с потоками.

[LIC]

Ну мудрено получилось, так это от не знания языка, когда знаешь, то получается коротко и красиво, а вот алгоритм CRC32 пришлось писать самому, ну не в корне, а по мелочам. Да и ошибка у меня не с вновь созданным файлом (Temp.tmp), а именно с файлом исходником,
OpenDialog1.FileName.
Спасибо, извините если описываю сумбурно.

[LIC]

Спасибо уважаемый lmikle, вы помогли мне начать мою программу. Ошибку устранил, но программа работает не стабильно, но думаю отладить получится. Мой маленький опыт и моя ошибка, то на что даже не обращал внимание:
1. Надо правильно организовывать циклы в процедуре,
2. Пользуйтесь всем спектром услуг и утилит, которые предоставляет Borland, мне помог монитор "Стек Вызовов", у меня одна процедура не закрвалась после отработки и открывалась снова и снова.

Может как всегда сумбурно, но от души.
Спасибо.

[lmikle]

У тебя в корне неправильно делается.
Входной файл должен быть открыть 1 раз. Далее ты должен в цикле взять данные куда-то из него и обработать. По результатам обработки ты должен решить - надо ли продолжать цикл и с какими параметрами. Все.