Frage zu TFileStream

[franky.f]

Hallo,

mich beschäftigt gerade folgende Frage:

Warum klappt folgendes nicht?
(Der Sinn sei einmal dahingestellt, es geht nur ums Prinzip ...)

Delphi-Quellcode:

procedure TForm1.TestFileStream;
var
  FFileStream1: TFileStream;
  FFileStream2: TFileStream;

begin
  // Die Datei ist vorhanden und weder schreib- noch sonst irgendwie geschützt, ganz normal eben
  FFileStream1 := TFileStream.Create('C:\TestDatei.txt', fmOpenRead, fmShareExclusive);

  // hier wird der eine Stream dem anderen zugewiesen, 
  // also FFileStream1 und FFileStream2 müssten auf die selbe Speicheradresse zeigen
  FFileStream2 := FFileStream1;

  // hier wird FFileStream2 freigegeben, dann müsste doch eigentlich auch FFileStream1 NIL sein oder ?
  FreeAndNil(FFileStream2);

  if FFileStream1 <> nil then 
  begin
    // und das hier dürfte niemals erreicht werden.
    FreeAndNil(FFileStream1);
    // tut es aber :-(
  end;
end;

Das ganze passiert in Delphi 7.

Danke und Gruß
Frank

[alleinherrscher]

So jetzt aber:

Deine Variable FFilestream2 wird auf Nil gesetzt und der Speicher der hinter dem Pointer steckt, freigegeben.
Allerdings enthält FFilesStream1 immer noch den Pointer, also die Adresse auf den freigegebenen Speicherbereich. Wenn du jetzt mit FFilestream1 auf den Bereich zugreifen willst, gibts sicher ne Exception oder so...

Grüße

//edit: sorry, wegen den ganzes edit's

[chaosben]

Hi Frank! Herzlich Willkommen in der DP!

Du hast dir die Antwort schon fast selbst gegeben:

Delphi-Quellcode:

// hier wird der eine Stream dem anderen zugewiesen,
// also FFileStream1 und FFileStream2 müssten auf die selbe Speicheradresse zeigen
FFileStream2 := FFileStream1;

Durch FreeAndNil wird dann nur FileStream2 auf nil gesetzt während FileStream1 weiterhin auf einen Speicher zeigt. Daher ergibt die Abfrage FileStream1 = nil false.

[DeddyH]

Du meinst false

[chaosben]

Zitat von DeddyH:

Du meinst false

Na klar ... danke fürs Aufpassen.

[franky.f]

Hallo und DANKE,

jetzt blick ich, glaube ich, durch.

Gruß
Frank

[DelphiManiac]

Hi franky, von mir auch nochmals ein Herzliches Willkommen!

Dein Problem wurde ja schon gelöst, habe nur noch einen kleinen Tipp für dich:

Delphi-Quellcode:

...
  if FFileStream1 <> nil then  // kannst du auch mit "if Assigned(FFileStream1) then" prüfen, das macht intern auch den <> nil   Vegleich, ist nur eine Schönheitssache...
  begin 
    // und das hier dürfte niemals erreicht werden. 
    FreeAndNil(FFileStream1); 
    // tut es aber :-( 
  end; 
end;

Viele Grüße
DelphiManiac