Ließt BlockRead aus Datei nich richtig ein?

[PAX]

Hallo!

Ich glaube mein Computer ist verhext ! Ich hab eine Zeichenkette in eine Datei undefinierten Typs geschrieben, und wenn ich die wieder in einen String einlese, + den Inhalt von einem Label mit ihm angleichen möchte, bricht das Programm genau in diesem Moment mit einer Zugriffsverletzung ab. Ich weiß nich mehr weiter. Hier der betreffende Quellcode:

Delphi-Quellcode:

Var f:file; t,s:string; result:integer;
begin
 assignfile(f,'c:\f.txt');
 rewrite(f); s:='blob';
 blockwrite(f,s,1);
 closefile(f);
 reset(f);
 blockread(f,t,1,result);
 closefile(f);
 label1.caption:=t;
end.

Ich bin gespannt, worans liegt.

PAX

[WtF]

Hallo Pax,
also hier deine Lösung:

Delphi-Quellcode:

Var f:file; s:string; result:integer;
begin
assignfile(f,'c:\f.txt');
rewrite(f); s:='blob';
blockwrite(f,s,1);
closefile(f);
reset(f);
blockread(f,s,1,result);
closefile(f);
label1.caption:=s;
end.

Mfg

[edit=Luckie]Code-Tags durch Delphi-Tags ersetzt. Mfg, Luckie[/edit]

[Luckie]

Ich würde mal die Variable result umbenennen. Result ist eine interne Variable für den Rückgabewert einer Funktion.

Desweiteren, kuck dir deinen Code mal an. Was machts du denn:

• Öffnen
• Zurücksetzten
• Schreiben
• Schließen
• Zurücksetzten
• Lesen
• Schließen

Fällt dir was auf? Du öffnest sie nicht wieder vor dem Lesen.

@WtF: Warum postest du seinen nicht funktionierenden Code noch mal?

[teebee]

Zitat von Luckie:

...

• Zurücksetzten

Fällt dir was auf? Du öffnest sie nicht wieder vor dem Lesen.

Doch er öffnet, das Reset öffnet die Datei zum Lesen.

So funktioniert es: Blockread/-write arbeiten mit Speicherbereichen, aus denen bzw. in die geschrieben wird. D.h. man sollte vorher die Buffer-Bereiche reservieren.

Delphi-Quellcode:

Var f:file;
    res:integer;
    s,t: Array[0..127] of Char;
begin
 assignfile(f,'c:\f.txt');
 rewrite(f);
 s:='blob';
 blockwrite(f,s,1);
 closefile(f);
 reset(f);
 blockread(f,t,1,res);
 closefile(f);
 label1.caption:=t;
end;

Gruß, teebee

[Luckie]

Aber das CloseFile hebt die Verknüpfung von der Datei zur Dateivariabeln doch wieder auf oder irre ich da? Dazu die Delhi-Hilfe:

Zitat von Delphi-Hilfe:

Terminates the association between file variable and an external disk file.

Ergo muss nach CloseFile erst wieder eine Zuweisung mit AssigneFile erfolgen, um wieder auf die Datei zugreifen zu können.

[choose]

Hallo Luckie,

dieser Pascal-Datentyp ist in Wirklichkeit in Record in dem uA ein Datei-Handle abgelegt wird, dass mit Close geschlossen wird.

Überzeuge Dich selbst:

Delphi-Quellcode:

type
  PTextRec = ^TTextRec;

begin
  AssignFile(myFile, AFileName);
  Writeln(PTextRec(@myFile)^.Name);

  Reset(myFile);
  try
    Writeln(PTextRec(@myFile)^.Name);
  finally
    Close(myFile);
    Writeln(PTextRec(@myFile)^.Name);
  end;
end;

[Luckie]

Zitat von choose:

dieser Pascal-Datentyp ist in Wirklichkeit in Record in dem uA ein Datei-Handle abgelegt wird, dass mit Close geschlossen wird.

Widerlegst du mich jetzt oder bestätigst du mich mit der Aussage? Wenn ich ein Datei-Handle schließe und somit wieder freigebe, dürfte CreateFile ins Leere laufen oder nicht?

[WtF]

@Luckie : weil der nicht funktionierende code so funktioniert
Zuerst dachte ich auch das es an der variable result liegt - ist aber nicht so - ich habs extra ausprobiert.

Code:

procedure TForm1.Button1Click(Sender: TObject);
Var f:file; s:string; r:integer;
begin
assignfile(f,'c:\f.txt');
rewrite(f); s:='blob';
blockwrite(f,s,1);
reset(f);
blockread(f,s,1,r);
closefile(f);
Label1.Caption:=s;
end;

Das eine close kann man nat. weglassen...

[choose]

Zitat von Luckie:

Widerlegst du mich jetzt oder bestätigst du mich mit der Aussage?

ein kurzes Ausprobieren sollte Dir zeigen, dass die Folge

Delphi-Quellcode:

AssignFile(myFile, AFileName);
Reset(myFile);
Close(myFile);
Reset(myFile);
Readln(myFile, myByte);

funktioniert.

Zitat von Luckie:

Wenn ich ein Datei-Handle schließe und somit wieder freigebe, dürfte CreateFile ins Leere laufen oder nicht?

CreateFile erwartet kein Handle sondern ua einen Dateinamen, der ja, wie zuvor gezeigt von Close unbeeinflusst bleibt. Der Tatsächliche Code steht in der Unit System bei OpenFile

Code:

LEA      EAX,[EBX].TFileRec.Name
PUSH     EAX
CALL     CreateFileA
CMP      EAX,-1
JZ       @@error
MOV      [EBX].TFileRec.Handle,EAX

wie man sieht, wird das Handle nach dem erfolgreichen Aufruf in die Struktur innerhalb des File-Datentyps zurückgeschrieben.

[teebee]

Zitat von Luckie:

Aber das CloseFile hebt die Verknüpfung von der Datei zur Dateivariabeln doch wieder auf oder irre ich da? Dazu die Delhi-Hilfe:

Zitat von Delphi-Hilfe:

Terminates the association between file variable and an external disk file.

Ergo muss nach CloseFile erst wieder eine Zuweisung mit AssigneFile erfolgen, um wieder auf die Datei zugreifen zu können.

Also ich interpretiere das so, dass die Verbindung mit dem File selbst beendet wird, nicht die Verbindung mit dem Filenamen. D.h. die Filevariable bezieht sich bei einem neuen Öffnen immernoch auf den gleichen Filenamen, ein erneutes AssignFile kann man sich also sparen.

@PAX: Ich glaube, es wäre einfacher, ein File of Char zuverwenden, dann kannst Du bequem read/write/ln benutzen.

Gruß, teebee