SetFileAttributes bzw. FileSetAttr setzen Attribute nicht r.

[Die Muhkuh]

Hi,

so setze ich Datei-Attribute:

Delphi-Quellcode:

Attrib := faAnyFile;
      if cbProtectedFile.Checked then
        Attrib := Attrib + faReadOnly
      else
        Attrib := Attrib - faReadOnly;

      if cbArchiv.Checked then
        Attrib := Attrib + faArchive
      else
        Attrib := Attrib - faArchive;

      if cbHiddenFile.Checked then
        Attrib := Attrib + faHidden
      else
        Attrib := Attrib - faHidden;

      if cbSystemFile.Checked then
        Attrib := Attrib + faSysFile
      else
        Attrib := Attrib - faSysFile;

      FileSetAttr(FDoc.FFilename, Attrib);

Wenn ich Z.B. nur auf "cbProtectedFile" klicke so das es "checked" ist, und diese Procedure ausführe werden zwar Datei-Attribute gesetzt, aber die Falschen. Woran kann das liegen?

[SirThornberry]

das liegt daran das du
Attrib := faAnyFile; geschrieben hast. faAnyFile beinhaltet schon alle Attribute und du addierst noch welche drauf.
Außerdem beinhaltet faAnyFile, faDirectory was aber zum setzen nicht nötig ist da man dieses attribut über die funktion nicht setzen kannst (sonst würdest du damit aus einer Datei ein verzeichnis machen können)

[Muetze1]

Moin!

Und die einzelnen Attribute sind einzelne Bits und werden im Normalfall mit oder verknüpft...

MfG
Muetze1

[Christian Seehase]

Moin Spider,

der Wert muss mit 0 initialisiert werden.
Addieren geht dann, wie Mütze ja schon sagte mit or, abziehen mit and not.

[Die Muhkuh]

Zitat von Christian Seehase:

Moin Spider,

der Wert muss mit 0 initialisiert werden.
Addieren geht dann, wie Mütze ja schon sagte mit or, abziehen mit and not.

Hi,

das mit 0 hab ich auch grad gefunden.


Addieren geht aber auch so, oder?

Delphi-Quellcode:

Attrib := 0;
      if cbProtectedFile.Checked then
        Attrib := Attrib + faReadOnly;

      if cbArchiv.Checked then
        Attrib := Attrib + faArchive;

      if cbHiddenFile.Checked then
        Attrib := Attrib + faHidden;

      if cbSystemFile.Checked then
        Attrib := Attrib + faSysFile;

      FileSetAttr(FDoc.FFilename, Attrib);

Ansonsten so?

Delphi-Quellcode:

Attrib := 0;
      if cbProtectedFile.Checked then
        Attrib := Attrib or faReadOnly;

      if cbArchiv.Checked then
        Attrib := Attrib or faArchive;

      if cbHiddenFile.Checked then
        Attrib := Attrib or faHidden;

      if cbSystemFile.Checked then
        Attrib := Attrib or faSysFile;

      FileSetAttr(FDoc.FFilename, Attrib);

[edit=Christian Seehase]Delphi-Tag geschlossen. Mfg, Christian Seehase[/edit]

[mung]

Delphi-Quellcode:

    
 Attrib := 0; //Initialisieren
 Attrib :=   Attrib or
              byte(cbProtectedFile.Checked) or
              (byte(cbHiddenFile.Checked) shl 1) or
              (byte(cbSystemFile.Checked) shl 2) or
              (byte(cbArchiv.Checked )    shl 5) ; //Bits an die richtige stelle schieben

 FileSetAttr(FDoc.FFilename, Attrib);

shl (SHiftLeft) schiebt die bit nach links, also: (0001 shl 1) = 0010
dann noch alles oder verknüpt und fertig ist das Attribut

mfg mung

[Christian Seehase]

Moin Manuel,

solange Du nicht die Zahlenwerte kennst, die jeweils dahinterstecken, solltest Du keinesfalls bei solchen Bitmasken mit + arbeiten.
Es gibt nämlich viele Fälle, in denen hinter den Konstantenbezeichnern schon die Kombination von Einzelkonstanten steckt (hier z.B. faAnyFile), so dass bei Addition durch Übertrag die falschen Bits gesetzt werden, bzw. nicht die, die Du haben willst.

[Muetze1]

Moin!

@mung: warum vorher noch 0 setzen?

Delphi-Quellcode:

Attrib := 
              byte(cbProtectedFile.Checked) or
              (byte(cbHiddenFile.Checked) shl 1) or
              (byte(cbSystemFile.Checked) shl 2) or
              (byte(cbArchiv.Checked )    shl 5) ; //Bits an die richtige stelle schieben

FileSetAttr(FDoc.FFilename, Attrib);

MfG
Muetze1

[SirThornberry]

Also das mit dem Addieren ist völlig OK solange er nur einzelAttribute addiert. Dementsprechend war

Delphi-Quellcode:

Attrib := 0;
      if cbProtectedFile.Checked then
        Attrib := Attrib + faReadOnly;

      if cbArchiv.Checked then
        Attrib := Attrib + faArchive;

      if cbHiddenFile.Checked then
        Attrib := Attrib + faHidden;

      if cbSystemFile.Checked then
        Attrib := Attrib + faSysFile;

      FileSetAttr(FDoc.FFilename, Attrib);

völlig korrekt da keienr der faXXXXX Werte eine Kompinanten mehrere Attribute ist.

[Christian Seehase]

Moin SirThornberry,

Zitat von SirThornberry:

völlig korrekt da keienr der faXXXXX Werte eine Kompinanten mehrere Attribute ist.

In diesem Falle schon, aber spätestens wenn man integer nimmt, und ein Bit an der Vorzeichenstelle steht, oder man die Werte nicht kennt hat man ggf. verloren.
Ich halte es für sinnvoll bei Bitfeldern nur logische Operatoren zu verwenden.