file of char delphi7 geht nicht

[DeddyH]

Bist Du sicher, dass es sich um ein File of Char handelt? Vermutlich ist da ein #0 o.Ä. dazwischen, was den String dann durcheinander bringt. An Deiner Stelle würde ich es auch einmal mit einem Stream versuchen, aus dem Du dann die für Dich interessanten Bytes herauskopierst.

[edit] Gerade ausprobiert:

Delphi-Quellcode:

var
  fs: TFileStream;
  ss: TStringStream;
  s: string;
begin
  fs := TFileStream.Create(Dateiname, fmOpenRead);
  try
    ss := TStringStream.Create('');
    try
      fs.Position := 12;
      ss.CopyFrom(fs, fs.Size - fs.Position);
      s := ss.DataString;
      ShowMessage(s);
    finally
      ss.Free;
    end;
  finally
    fs.Free;
  end;
end;

[/edit]

[lecomte]

mit streams hab ich keine erfahrung (hab jetzt 25 jahre mit turbo pascal gelebt ). hab es grad mit handbuch versucht, bin aber gescheitert.

wie lese ich aus der datei "inbox.toc" die ersten 322 zeichen heraus (die datei ist deutlich länger als 322) und übertrage die zeichen 122 bis 153 auf einen string?
oder ist eine solche frage unüblich in einem forum? krieg ich jetzt die antwort read the effing manual ?

[DeddyH]

Da haben sich jetzt Deine Antwort und mein Edit überschnitten

[jaenicke]

Zitat von lecomte:

wie lese ich aus der datei "inbox.toc" die ersten 322 zeichen heraus (die datei ist deutlich länger als 322) und übertrage die zeichen 122 bis 153 auf einen string?

Welche Zeichen willst du nun? Nur die 32 genannten oder die ersten 322? Die genannten Zeichen:

Delphi-Quellcode:

var
  FileContents: TFileStream;
  MailData: AnsiString;
begin
  FileContents := TFileStream.Create(ExtractFilePath(ParamStr(0)) + 'inbox.toc', fmOpenRead);
  try
    FileContents.Position := 122;
    SetLength(MailData, 32);
    FileContents.ReadBuffer(Pointer(MailData), 32);
    ShowMessage(string(MailData));
  finally
    FileContents.Free;
  end;

[DeddyH]

Meine Testdatei hatte den Inhalt A-K #0 L-Z. Eine Änderung auf Shortstring (=> string[255]) war nicht zielführend. Erst das Umstellen auf Streams brachte dann das gewünschte Ergebnis, da sich diese nicht um #0 und Konsorten scheren. Übrigens:

Zitat:

Delphi-Quellcode:

SetLength(MailData, 32);
FileContents.ReadBuffer(Pointer(MailData), 32);

Es wäre vielleicht weniger fehleranfällig, wenn man das so machte:

Delphi-Quellcode:

const
  LENGTH_REQUIRED = 32;
begin
  ...
  SetLength(MailData, LENGTH_REQUIRED);
  FileContents.ReadBuffer(Pointer(MailData), Length(MailData));