Datei mit FileStream auslesen

[delphinewbie]

Guten Morgen Delphi-Gemeinde,
ich habe mich hier gerade angemeldet und das nicht ohne Grund. Ich bin gerade dabei, mich ein wenig ins Delphi einzuarbeiten und auf der Suche nach geballtem Wissen bin ich nun hier gelandet. Ich habe den Eindruck, dass mir hier geholfen werden kann. Also wie gesagt, ich bin ein absoluter Einsteiger und ich hoffe, dass ihr mir meine vllt. primitiven Fehler verzeiht. Doch nun zu meinem Problem :
Ich möchte eine typisierte (oder heißt das strukturierte ) Datei (Byte für Byte) auslesen und die darin enthaltenen Daten natürlich weiterbearbeiten. Mir ist auch bekannt, wie diese Datei aufgebaut ist, d.h. wo steht ein String, wie lang ist er, wo steht ein integer u.s.w. und ich erhalte auch sinnvolle Daten, wie sie zu erwarten wären. Leider erhalte ich dann jedoch beim Beenden des Programms (in der IDE) eine Fehlermeldung.

Im Projekt xxx.exe ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung : 'Zugriffsverletzung bei Adresse 0040438A in Modul 'xxx.exe'. Lesen von Adresse 00000018'.
Prozess wurde angehalten. Mit einzelne Anweisung oder Start fortsetzen.
Starte ich die xxx.exe bspw. aus dem Windows-Explorer, kommt nach Programmbeendigung die Meldung :
xxx.exe funktioniert nicht mehr
Windows kann online nach einer Lösung für das Problem suchen.
u.s.w blabla....

Quellcode (Ausschnitt) :

type

bytes = record

// Global section
FileID : word;
data_offset : Longint;
L_of_Filecomment : word;
Filecomment : string;
Length_of_Reserve_string : array[1..32] of byte;
Reserve_string : array[1..32] of string;
end;

var
Form1: TForm1;
f : TFileStream;
ds: bytes;

implementation
.
.
.

if OpenDialog1.Execute then
begin
f:=(TFileStream.Create(OpenDialog1.FileName,fmOpen Read));
pfad:= OpenDialog1.FileName;

with f do begin
Read(ds.FileID,sizeof(word));
Read(ds.data_offset,sizeof(longint));
Read(ds.L_of_Filecomment,sizeof(word));
if ds.L_of_Filecomment <> 0 then
Read(ds.Filecomment[1],ds.L_of_Filecomment);
for i:=1 to 32 do begin
Read(ds.Length_of_Reserve_string[i],sizeof(word));
Read(ds.Reserve_string[i],ds.Length_of_Reserve_string[i]);
end;
Read(ds.NofChan,sizeof(word));
Read(ds.max_chan_length,sizeof(longint));
.
.
.
.
end; // end with f do
f.Free;
end; // if OpenDialog1.Execute
.
.

Das Eigenartige an der Sache ist jedoch, dass diese Fehler nicht auftreten, wenn alles ab der for-Schleife auskommentiert wird. Beginnt die Auskommentierung nur 3 Zeilen weiter, also bei Read(ds.NofChan,sizeof(word));, habe ich schon die Fehlermeldung!!! Hängt es irgendwie mit der for-Schleife zusammen oder mache ich bei den String-Arrays Fehler ?
Hat jemand eine Idee zu diesem sicherlich einfachen Problem ?
Vielen Dank,
delphinewbie

[DeddyH]

Hallo und Willkommen in der DP ,

ich denke, das Hauptproblem sind die Strings. Ein String ist in Delphi(2 - 2007) ein AnsiString, in neueren Versionen ein Unicode-String. AnsiStrings sind intern nur erst einmal ein Zeiger, also 4 Byte groß. Speicherst Du diesen und lädst ihn wieder, ist dieser Zeiger ungültig bzw. zeigt ganz woanders hin. Um das zu umgehen, solltest Du ShortStrings verwenden, diese sind allerdings auf 256 Zeichen begrenzt. Brauchst Du mehr, musst Du wohl auf statische Char-Arrays ausweichen.

[Gausi]

Das Problem dürfte sein, dass du die Länge der Strings vorher nicht pasend setzt. So sollte das gehen:

Delphi-Quellcode:

for i:=1 to 32 do 
begin
  Read(ds.Length_of_Reserve_string[i],sizeof(word));
  SetLength(ds.Reserve_string[i], ds.Length_of_Reserve_string[i]) 
  Read(ds.Reserve_string[i][1], ds.Length_of_Reserve_string[i]);
end;

Also: Erst die Länge des Strings aus der Datei lesen, diese Länge auf den String übertragen, und dann die Daten in den String laden, Startposition ist dann das erste Zeichen in dem String.

[delphinewbie]

Hi DeddyH,
ne, hat nicht geholfen. Der Zeiger wird doch aber nicht verändert, wenn ich die Datei nur hintereinander auslese, oder ? Und wie gesagt, die Datei wird ja auch richtig ausgelesen.
Die Fehlermeldung kommt erst beim Beenden des Programms , also der xxx.exe.
Es sieht ja fast so aus, als ob dann beim Programmbeenden eine unzulässige Adresse angesprochen wird. Aber wieso ?
Gibt es eigentlich noch andere Möglichkeiten außer mit TFileStream, derartige Dateien auszulesen ? Den Dateien kann man auch keine konstante Struktur zuordnen, sodass man mit records hätte arbeiten können.
Das Problem dabei ist ja, dass die Dateilänge nie gleich ist, abhängig davon z.B. wie lang Kommentare sind oder wieviele Datenkanäle abgespeichert wurden. Diese Angaben finde ich immer erst direkt in der Datei, aber das funktioniert ja auch richtig. Nur eben das Ende...

Vielen Dank

[delphinewbie]

@Gausi,
danke, aber ich bekomme die gleiche Fehlermeldung, nur sind die Adressen, bei denen die Zugriffsverletzung auftritt anders.

Ich bin ratlos

[DeddyH]

Zitat:

Delphi-Quellcode:

Length_of_Reserve_string : array[1..32] of byte;
...
Read(ds.Length_of_Reserve_string[i],sizeof(word));

Das Array ist 32 Byte groß, Du liest aber 64 Byte (Word = 16 Bit). Außerdem müsstest Du (wenn ich das richtig sehe) wohl erst das Byte-Array komplett befüllen und erst anschließend das String-Array.

[delphinewbie]

ok, habe das array jetzt auf word gesetzt.

Length_of_Reserve_string : array[1..32] of word;
Reserve_string : array[1..32] of string;

Ich kann aber nicht erst das eine array füllen und dann das andere, weil die Reichenfolge beim Lesen eben so ist :
1. Lesen von 2 bytes (Länge L des nachfolgenden strings
2. Lesen von L*bytes ( der string selbst)
Oder habe ich dich falsch verstanden ?

Fehlermeldung bleibt leider immer die gleiche

[DeddyH]

Ob die Reihenfolge und die Datentypen so stimmen, weiß ich nicht, das hängt ja vom Dateiformat ab und nicht davon, wie Du den Record definierst.

[delphinewbie]

genau, und wenn die Daten aber richtig eingelesen werden (Vergleichbarkeit ist vorhanden), muss ja wohl von der Seite her alles o.k. sein.
Trotzdem muss ich irgendwas vergessen haben.Vllt. muss Speicher freigegeben werden oder die Datei wird nicht korrekt 'geschlossen' ?

Ich werde mal noch ein bissl probieren...

[p80286]

Hallo Delphinewbie,

zunächst solltest Du Dich mit dem Debugger (Tasten:F7, F8, F4 F5) vertraut machen, da kann man meist sehen wohin was gelesen wird.

Dann verwendest Du z.B.

Length_of_Reserve_string : array[1..32] of word; 1. Du bist sicher das es nur max. 32 Strings gibt?
2. Da ich die Struktur in Deiner Datei nicht kenne, ein Vorschlag ins Blaue

Delphi-Quellcode:

Type 
  mytype=record
           Feld1 : word;
           Feld2 : integer;
           ....
           textfeld : ansistring;
        end;

Den Weg den Du gewählt hast, halte ich für gefährlich, da zwei Werte die Länge eines Strings und der String selber in unterschiedlichen Variablen aufgenommen werden. Beide Werte gehören zusammen, und sollten nicht willkürlich getrennt werden.

Gruß
K-H

P.S.

Zitat:

Vllt. muss Speicher freigegeben werden oder die Datei wird nicht korrekt 'geschlossen' ?

Dann sollte der Debugger erst recht bemüht werden!