Problem mit TFileStream (und DeleteFile)

[DerDan]

wie heist denn deine exe und wie die exe die du löschen willst?

[Helmi]

irgendwie hängt die Platte

die exe heisst genau so wie die die ich löschen will!!

realisiert durch die Variable SaveFile - die einmal beschrieben wird!!

[DerDan]

Das dacht ich mir,

denn genau das geht nicht, eine exe kann sich nicht selber löschen

[Helmi]

falsch!!

denn die Exe (wie gesagt es können auch andere dateien sein) ist nicht die Exe des Programmes - sondern eine andere Exe die zu diesem Zeitpunkt nicht läuft!

[DerDan]

Jetzt mal langsam,

es geht garantiert nicht eine exe zu löschen die gerade läuft!

ich find es seltsam anzunehmen, das das geht, nur weil DU es nicht hinbekommst überhaupt eine Exe oder andere Datei zu löschen.

[Helmi]

ich glaub ich schreib chinesisch

ich lösche nicht die Exe des Programmes das gerade läuft also von der application von der aus ich lösche!!

sondern eine Datei bzw eine Exe von der ich weiss dass sie nicht läuft ( weil ich sie ja selber starte oder beende)

[jim_raynor]

Das Problem ist doch so wie ich beschrieben habe. Du öffnest die Datei mit einem FileStream und liest dann Daten ein. Solange der FileStream existiert ist die Datei gesperrt und kann weder gelöscht, noch ein weiterer FileStream zu dieser Datei geöffnet werden. Setze einfach mal zwei Haltepunkte in der Procedure. einmal beim "TFileStream.Create" und einmal in beim FreeAndNil .

Wenn du jetzt das Prog startest, wird ja irgendwann am ersten Haltepunkt angehalten. Das Ereigniss wurde also ausgelöst. Wenn du jetzt mit F9 fortfährst sollte er als nächstes am Ende halten. Wenn das passiert ist alles korrekt.

Es kann aber auch passieren, dass er wieder in der ersten Zeile anhält und genau dann wird das DeleteFile und TFileStream.Create krachen. Die Prozedur wurde ja noch nicht beendet und der Filestream dementsprechend noch nicht freigegeben.
[edit]oh shitt, warum kann ich den Beitrag nicht mehr löschen [/edit]

[Nightshade]

Zitat von Helmi:

Delphi-Quellcode:

procedure TForm1.ClientSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
{...}
begin

      if not Working then
        begin
          //Variable setzen
          Working := True;

Versuch doch mal mit

Delphi-Quellcode:

procedure TForm1.ClientSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
{...}
begin

      if not Working then
        begin
          //Variable setzen
          Working := True;
          ShowMessage(SaveFile); //<-  hier anzeigen lassen

Den Dateinamen anzeigen zu lassen...

[Helmi]

ich weiss mir keinen Rat mehr

ich hab euch mal mein projekt als anhang angehängt

Aled und LabelTimer dienen nur zur anzeige - sind also unwichtig

mfg
helmi

[jim_raynor]

Vielleicht solltest du bei csIdle nicht Working auf false zurücksetzen. Nur so ne spontane Idee.