Problem mit TFileStream.Seek ?

[amigage]

Meine letzte Frage (Geschwindigkeitsoptimierung) wurde bestens beantwortet.

Nun habe ich ein anderes Problem, das Fragen aufwirft.

Ich habe eine Routine, bei der ich blockweise die Daten aus einer Datei lese. Alles wunderbar, solange die Datei kleiner 1-2MB ist.
Sind die Dateien größer ist die Geschwindigkeit unterschiedlich.

Einmal wird alles fix ausgelesen (z.B. 5500 Durchläufe des unteren Codes in weniger als 1 Sekunde), beim nächsten mal dauert es ewig. Das heisst, wenn ich nach 10 Sekunden einen Haltepunkt setze, wurden erst ca 900 Durchläufe durchgeführt.

Hier ist die Record-Definition:

Delphi-Quellcode:

  TMessageBlockHeader = record
    Address: cardinal;
    BlockLength: cardinal;
    TextLength: cardinal;
    NextBlockAddress: cardinal;
  end;

Hier die Routine:

Delphi-Quellcode:

procedure xyz.GetData(address: cardinal;  var MyStream: TStringStream);
var
  FFileHandle: TFileStream;
  BlockHeader: TMessageBlockHeader;
  block: TStringStream;
  Schleife : Cardinal;

begin
    FFileHandle := TFileStream.Create('C:\test.bin', fmOpenRead or fmShareDenyNone); //fmShareDenyWrite);

    Schleife := 0;
    
    While True do
    begin
      if address = 0 then
        break;

      inc(Schleife); // zum Zählen der Durchläufe
      
      FFileHandle.Seek(address, soFromBeginning);
      FFileHandle.Read(BlockHeader, sizeof(BlockHeader));

      if address = BlockHeader.Address then
      begin
        if (BlockHeader.TextLength > 0) and
           (BlockHeader.TextLength <= BlockHeader.BlockLength) then
        begin
          block := TStringStream.Create('');
          try
            block.CopyFrom(FFileHandle, BlockHeader.TextLength);
            MyStream.WriteString(block.DataString);
          finally
            block.Free;
          end;
//            if ((BlockHeader.NextBlockAddress > 0)
//            and (BlockHeader.NextBlockAddress <= address)) then
//              break;
          address := BlockHeader.NextBlockAddress;
        end;
      end; // if
    end;//while
    MessageBox(0, PChar('Schleifen: ' + IntToStr(Schleife)), 'Caption', MB_OK + MB_ICONINFORMATION);

  end; // if
  if FFileHandle <> nil then
    FFileHandle.Free;
end;

Ich habe mal etwas gelesen, dass Seek nicht immer gleich arbeitet. Was kann man dagegen tun?

Danke für jede Hilfe. Ich hoffe, mich kann jemand erleuchten