FileStream von Byte x bis Byte y lesen und als String ausgeben.

[Gandimann]

Zitat von Der schöne Günther:

In System.IoUtils hast du z.B. TFile.Open(..) , das gibt einen TFileStream zurück.

Und: Bist du sicher dass die die "rohen" Bytes wirklich in einen String stopfen willst? Ein String ist kein Container für Bytes, sondern Text. Wenn du wirklich die echten Bytes willst, dann nimm ein Array.

Hier jedenfalls ein Beispiel das die Bytes als ASCII interpretiert und dann in den String steckt.

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses System.SysUtils, System.Classes, System.IoUtils;

const
   filePath = 'x:\myFile.dat';
   startByte = 33;
   byteCount = 4; // 33, 34, 35, 36
var
   fileStream: TStream;
   myBytes: TBytes;
   myString: String;
begin
   fileStream := TFile.Open(filePath, TFileMode.fmOpen);
   try
      if fileStream.Seek(startByte, TSeekOrigin.soBeginning) < startByte then
         raise Exception.Create('file is too small');

      if fileStream.Read(myBytes, byteCount) < byteCount then
         raise Exception.Create('file is too small');

      myString := TEncoding.ASCII.GetString(myBytes);
   finally
      fileStream.Destroy();
   end;
end.

Danke Günther für deine Rückmeldung.

Die Implementierung in mein Windows VCL Application (Nicht Konsole) gibt leider die Meldung "File is too small" zurück

meine Implementierung:
procedure TForm1.Button2Click(Sender: TObject);


const
filePath = 'C:\Test.dat';
startByte = 33;
byteCount = 4; // 33, 34, 35, 36
var
fileStream: TFileStream;
myBytes: TBytes;
myString: String;
begin
fileStream := TFileStream.Create(filepath, fmOpenRead);
try
if fileStream.Seek(startByte, TSeekOrigin.soBeginning) < startByte then
raise Exception.Create('file is too small');

if fileStream.Read(myBytes, byteCount) < byteCount then
raise Exception.Create('file is too small');

myString := TEncoding.ASCII.GetString(myBytes);

finally
fileStream.Destroy();
end;
ShowMessage (myString);
end;



Test.dat als Zip Anhang