Fehlermeldung bei AssignFile

[MSerror]

Danke blauweiss für Deine Tipps.
Es ist aber nur eine kleine "Unschärfe" im Programm.
tmpIOResult liefert "5" (Zugriff verweigert) also das gleiche, wie die Exception. Selbstverständlich verfüge ich über alle Administrationsrechte.

Hier die korrigierte Prozedur:

Delphi-Quellcode:

procedure TForm1.Schreiben(Sender: TObject);
begin
    if SaveDialog1.Execute then           { Dialog zum Speichern anzeigen }
    begin
      AssignFile(meinedatei, SaveDialog1.FileName);
      // FileMode := fmShareDenyNone;
 {$I-}
      Rewrite(meinedatei);
      tmpIOResult := IOResult;
 {$I+}
      If tmpIOResult <> 0 Then
      begin
           ShowMessage('Kann die Datei nicht erstellen! Fehler: ' + IntToStr(tmpIOResult));
      end
      Else
      begin
         satz.name := 'Test-Datensatz';
         satz.email := '[e-mail]';
         try
            write(meinedatei, satz);
         except
            on E : Exception do
            begin
                ShowMessage('Schreibfehler in myfile.dat!' + #13
                           + E.ClassName + ', Meldung: ' + E.Message);
            end;
         end;
         CloseFile(meinedatei);
         ShowMessage('myfile.dat erfogreich erstellt.');
      end;
    end; // von SaveDialog1
end;

Es läuft meiner Meinung nach eindeutig auf einen Bug in der System-Unit von Delphi 2010 hinaus.

Gruß
MSerror

[Luckie]

Welches Verzeichnis wählst du denn aus?

[MSerror]

Verschiedene Verzeichnisse z.B. Temp, Eigene Dateien oder ein selbst erstelltes - volle Zugriffsrechte vorhanden.

[Sir Rufo]

Das habe ich jetzt gerade mal durch Delphi 2010 auf Win 7 x64 durchlaufen lassen:

Delphi-Quellcode:

type
  TMyRec = record
    name : string[ 100 ];
    Email : string[ 40 ];
  end;

procedure TForm1.FileSaveAs1Accept( Sender : TObject );
  var
    MyFile : file of TMyRec;
    MyRec : TMyRec;
    tmpIOResult : Integer;
  begin
    AssignFile( MyFile, FileSaveAs1.Dialog.FileName );

    {$I-}

    ReWrite( MyFile );
    tmpIOResult := IOResult;

    {$I+}

    if tmpIOResult <> 0 then
      ShowMessage( Format( 'IOResult %d', [ tmpIOResult ] ) )
    else
      try
        MyRec.name := 'Test';
        MyRec.Email := '[e-mail]';
        write( MyFile, MyRec );
      finally
        CloseFile( MyFile );
      end;
  end;

Ja und was war das Ergebnis? ..... wen wundert es ... alles super .... kein Murren kein Meckern einfach nur fertig.

[MSerror]

Vielen Dank Sir Rufo.

Wegen der Schutzmechanismen von Windows 7 bleibe ich doch noch bei dem Delphi 3 Compiler, mit dem ich im beliebigen Verzeichnis Dateien anlegen, verändern und löschen kann. Der ganze neueste Windows-Systemordnerschutz ist gegen den alten "Opa" wehrlos.
Kurios, nicht wahr? Mal gucken wie lange.

Viele Grüße
MSerror

[Sir Rufo]

Das möchte ich erst sehen ... Lade doch mal ein kompiliertes Projekt hoch, was einfach so in den geschützten Ordnern schreiben kann.
Ich probiere das gerne aus um den Gegenbeweis anzutreten.

Ich habe da so eine Vermutung, aber mach mal

Ach ja, wenn es klappt, dann stifte ich ein Fass Bier

[MSerror]

Viel Spass

[Luckie]

Zitat von MSerror:

Wegen der Schutzmechanismen von Windows 7 bleibe ich doch noch bei dem Delphi 3 Compiler, mit dem ich im beliebigen Verzeichnis Dateien anlegen, verändern und löschen kann.

Das soll wohl ein Witz sein? Wie soll ein Compiler die Rechteverwaltung von Windows umgehen können?

[Sir Rufo]

Zitat von Luckie:

Zitat von MSerror:

Wegen der Schutzmechanismen von Windows 7 bleibe ich doch noch bei dem Delphi 3 Compiler, mit dem ich im beliebigen Verzeichnis Dateien anlegen, verändern und löschen kann.

Das soll wohl ein Witz sein? Wie soll ein Compiler die Rechteverwaltung von Windows umgehen können?

Darum konnte ich über das ausgelobte Fass Bier ja auch lachen