AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Schreibschutz für Ordner setzen und aufheben
Thema durchsuchen
Ansicht
Themen-Optionen

Schreibschutz für Ordner setzen und aufheben

Ein Thema von simmi · begonnen am 8. Sep 2011 · letzter Beitrag vom 9. Sep 2011
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von simmi
simmi

Registriert seit: 24. Nov 2004
Ort: Röbel/Müritz
112 Beiträge
 
Delphi XE5 Professional
 
#1

Schreibschutz für Ordner setzen und aufheben

  Alt 8. Sep 2011, 12:51
Hallo,

ich möchte via ftp vom Server verschiedene Dateien in einem Ordner ablegen. Damit die Originalversionen der Dateien erhalten bleiben möchte ich den gesamten Ordner mit einem Schreibschutz versehen und für eine Aktualisierung der Dateien durch die Software den Schreibschutz aufheben können. Eine Kopie der Datei, die von der Software mit Daten gefüllt wird kann der Nutzer an einem anderen Ort speichern. Es handelt sich dabei um MS Officedateien (97-2010). Als Betriebssyteme werden nur XP und Win7 genutzt.

Hat jemand eine Idee??
Uwe
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

AW: Schreibschutz für Ordner setzen und aufheben

  Alt 8. Sep 2011, 13:01
Rat mal was die Suche nach "schreibschutz" geliefert hat.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.049 Beiträge
 
Delphi 12 Athens
 
#3

AW: Schreibschutz für Ordner setzen und aufheben

  Alt 8. Sep 2011, 13:09
Unterschiedliche FTP-Benutzer anlegen
- Einer mit ohne Schreibrechte für den normalen Zugriff
- Einer mit Schreibrechten, welchen das Updateprogramm verwendet
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
Benutzerbild von simmi
simmi

Registriert seit: 24. Nov 2004
Ort: Röbel/Müritz
112 Beiträge
 
Delphi XE5 Professional
 
#4

AW: Schreibschutz für Ordner setzen und aufheben

  Alt 8. Sep 2011, 13:11
Danke Luckie für diese äußerst hilfreiche Antwort

Es sind die gesamten Dokumentvorlagen des Unternehmens gepflegt nach DIN 9..., Es werden für verschiedene Projekte auch verschiedene Dokumentengruppen genutzt. Da läuft nach wie vor die BDE und die möchte ich weg bekommen. Meine Idee ist die, Ich habe eine MySQL Tabelle die Dokumentversionen, Zuordnungen und Dateinamen enthält, gleiche diese Daten mit dem lokalen Gerät bei bestehender Netzwerkverbindung ab und aktualisiere sie. Da die Rechner (Laptops) sich auch außerhalb unseres Intranets in dem der FTP Server läuft bewegen bracuhe ich einen lokalen Ordner.

Ich könnte jede Datei anfassen und den Schreibschutz setzen, aber ich würde mir gern diese Arbeit sparen und einfach einen Schreibschutz auf den gesamten Ordner setzen und natürlich wieder aufheben. Die vorhandenen Forumsbeiträge haben mir an dieser Stelle nicht wirklich helfen können.
Uwe

Geändert von simmi ( 8. Sep 2011 um 13:28 Uhr)
  Mit Zitat antworten Zitat
hsg

Registriert seit: 24. Apr 2006
Ort: Wustermark
354 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: Schreibschutz für Ordner setzen und aufheben

  Alt 8. Sep 2011, 13:50
Da du XP und Win7 als BS hast, vermute ich mal, dass du NTFS als Dateisystem nutzt. Da kannst du doch allen Benutzern die Schreibrechte entziehen, nur ein spezieller Benutzer bekommt dann das Schreibrecht. Dein Programm muss dann nur als dieser Benutzer arbeiten und darf damit als einziges die Dateien bearbeiten.
  Mit Zitat antworten Zitat
Benutzerbild von simmi
simmi

Registriert seit: 24. Nov 2004
Ort: Röbel/Müritz
112 Beiträge
 
Delphi XE5 Professional
 
#6

AW: Schreibschutz für Ordner setzen und aufheben

  Alt 8. Sep 2011, 14:11
Zitat:
Dein Programm muss dann nur als dieser Benutzer arbeiten und darf damit als einziges die Dateien bearbeiten.
Das habe ich bereits versucht und wollte einem Programm Adminrechte geben, Windows 7 hat mir nur den dicken Daumen gezeigt. Zum anderen möchte mein Admin nicht, das da an den Nutzerrechten gestellt wird und er steht nun mal in der Nahrungskette über mir...
Uwe
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.620 Beiträge
 
Delphi 12 Athens
 
#7

AW: Schreibschutz für Ordner setzen und aufheben

  Alt 8. Sep 2011, 14:13
Geht es jetzt ganz simpel um das Schreibschutz-Attribut?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von simmi
simmi

Registriert seit: 24. Nov 2004
Ort: Röbel/Müritz
112 Beiträge
 
Delphi XE5 Professional
 
#8

AW: Schreibschutz für Ordner setzen und aufheben

  Alt 8. Sep 2011, 14:20
Mag für Dich ganz simpel sein, aber ich habe im Augenblick ein Brett vorm Kopf.
Uwe
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.620 Beiträge
 
Delphi 12 Athens
 
#9

AW: Schreibschutz für Ordner setzen und aufheben

  Alt 8. Sep 2011, 14:28
Nur schnell heruntergetippt, enthält noch Verbesserungspotential:
Delphi-Quellcode:
procedure SetFileReadOnlyFlag(Directory: string; const mask: string = '*.*';
  Recursive: Boolean = false);
const
  faNewAnyFileEx = $00017FFF;
var
  Rec: TSearchRec;
begin
  Directory := IncludeTrailingPathDelimiter(Directory);
  if FindFirst(Directory + mask, faNewAnyFileEx, Rec) = 0 then
    try
      repeat
        if (Rec.Name <> '.') and (Rec.Name <> '..') then
          begin
            if (Rec.Attr and faDirectory) = faDirectory then
              begin
                if Recursive then
                  SetFileReadOnlyFlag(Directory + Rec.Name, mask, Recursive);
              end
            else
              FileSetAttr(Directory + Rec.Name, Rec.Attr or faReadOnly);
          end;
      until FindNext(Rec) <> 0;
    finally
      SysUtils.FindClose(Rec);
    end;
end;
Allerdings lässt sich der Schreibschutz im Normalfall mit 2 Mausklicks wieder entfernen, eine wirklich sichere Sache ist das also nicht.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Union
Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.492 Beiträge
 
Delphi 7 Enterprise
 
#10

AW: Schreibschutz für Ordner setzen und aufheben

  Alt 8. Sep 2011, 14:30
Ich hab jetzt die logische Struktur bzgl. FTP nicht ganz verstanden. Wo liegt der FTP und wie wird auf das Virtuelle Verzeichnis zugegriffen?
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:18 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz