TFileStream.Create gibt Error

[Drahcir]

Und da bin ich mit Programm V2, mal sehen wo ihr noch überall Fehler findet

Zitat von Christian Seehase:

Moin Zusammen,

das fmShareDenyNone hilft Dir nichts, wenn ein anderer Prozess die Datei exklusiv geöffnet hat.
Die Verwendung von TSearchRec.Size funktioniert auch nur bedingt, da es auf 32-Bit begrenzt ist.
Besser:

  iFileSize := (sr.FindData.nFileSizeHigh shl 32) or (sr.FindData.nFileSizeLow);

Dann werd ich mir da was überlegen müssen

Zitat von DeddyH:

Ich will ja keine Werbung machen, aber mit meiner Komponente wäre das ganz einfach zu lösen gewesen

Schau ich mir gerne nachher an wenn ich Zeit habe

Zitat von Sir Rufo:

Zitat von Christian Seehase:

das fmShareDenyNone hilft Dir nichts, wenn ein anderer Prozess die Datei exklusiv geöffnet hat.

+ wenn man keine Berechtigung zum Lesen der Datei hat, dann geht das auch nicht

Hm ok, ich glaube dann stört mich das exklusiv und würde mich wundern wenn ich Berechtigungen auf eine MSDOS.SYS kriegen würde, wo wäre denn da dann die Sicherheit?

Naja hab n bissl umgesattelt mit den vorhergehenden Beiträgen und meine Funktion, die auch (fast ) funktioniert, sieht so aus:

Delphi-Quellcode:

function TfrmMain.getDirectoryGroesse(OrdnerPfad:string) : Int64;
var Rec : TSearchRec; Groesse : Int64;
begin
  Groesse := 0;
  result := 0;
  if SysUtils.FindFirst(OrdnerPfad + '*', faAnyFile, Rec) = 0 then
  try
    repeat
      if (Rec.Name <> '.') and (Rec.Name <> '..')
      then begin
        if DirectoryExists(OrdnerPfad + Rec.Name)
        then begin
          Groesse := Groesse + getDirectoryGroesse(Ordnerpfad + Rec.Name + '\');
          g_pLogFile.Warning('Öffne Ordner ' + Ordnerpfad + Rec.Name + '\');
        end;
        if FileExists(OrdnerPfad + Rec.Name)
        then begin
          Groesse := Groesse + Rec.Size;
          g_pLogFile.Information('Datei ' + Ordnerpfad + Rec.Name + ' : ' + FormatFloat(' #,###.', Rec.Size));
        end;
      end;
    until SysUtils.FindNext(Rec) <> 0;
  finally
    g_pLogFile.Warning('Ordnergröße ' + Ordnerpfad + Rec.Name + ' : ' + FormatFloat(' #,###.', Groesse));
    SysUtils.FindClose(Rec);
  end;
  
  result := Groesse;
end;

Naja aber da scheint der irgendwie auch Dateien zu ignorieren, wenn ich einen Ordner (Bsp: 'C:\Users\Drahcir\' durchsuchen lasse, fehlen knapp 40GB, keine Ahnung wo die verschwinden naja ich arbeite noch dran ... Kanns sein dasses die Ordner mit den Namen '.' oder '..' sind, die ich ja bei allem geflissentlich übergehe, was sind die eigentlich? (ich glaub ich bin wieder Off-Topic aber gehört ja zu dem Programm)

Vielen Dank nochmal für die schnellen und tollen Antworten

[DeddyH]

Kannst Du mal ausprobieren, ob das Programm im Anhang die richtige Größe ermittelt?

[Drahcir]

Tut es, jetzt bin ich deprimiert Gibt exakt die richtige Bytezahl an ...

[DeddyH]

Das arbeitet mit meiner Komponente, der Main-Quelltext hat gerade einmal 80 Zeilen. Vielleicht solltest Du die Dir tatsächlich einmal genauer anschauen. Mich persönlich interessiert vor allem, ob sie sich unter älteren Delphi-Versionen (< Delphi 7) installieren lässt

[Drahcir]

Zitat von DeddyH:

Das arbeitet mit meiner Komponente, der Main-Quelltext hat gerade einmal 80 Zeilen. Vielleicht solltest Du die Dir tatsächlich einmal genauer anschauen. Mich persönlich interessiert vor allem, ob sie sich unter älteren Delphi-Versionen (< Delphi 7) installieren lässt

Gerne schau ich sie mir an, du hast nichts dagegen das ich den nicht-kommerziell nutze (sofern er mit D6 läuft)?
Natürlich mit Namenserwähnung wenns sein muss

[DeddyH]

Du kannst damit machen, was Du willst, steht auch so in der Lizenz

[Drahcir]

Zitat von DeddyH:

Du kannst damit machen, was Du willst, steht auch so in der Lizenz

Top

Ich binde deine Komponente nachher oder morgen ein, je nachdem, wie ich Zeit habe, und meld mich dann anschliessend wieder hier

[generic]

Zitat von Drahcir:

Zitat von Sir Rufo:

Zitat von Christian Seehase:

das fmShareDenyNone hilft Dir nichts, wenn ein anderer Prozess die Datei exklusiv geöffnet hat.

+ wenn man keine Berechtigung zum Lesen der Datei hat, dann geht das auch nicht

Hm ok, ich glaube dann stört mich das exklusiv und würde mich wundern wenn ich Berechtigungen auf eine MSDOS.SYS kriegen würde, wo wäre denn da dann die Sicherheit?

Lese-Berechtigung kein Problem, steht ja nichts vertrauliches drin.
In der Hibfil stehen von alles Benutzer und allen Prozessen Informationen drin.
Das ist schon etwas mehr vertraulich, daher KEINE Lese-Berechtigung.

[DeddyH]

Zur Unit masks habe ich diesen Thread gefunden. Was hältst Du davon, wenn wir das solange gemeinsam durchgehen, bis es läuft? Ich könnte dann den Quelltext entsprechend ändern und bei Torry aktualisieren, und Du hättest eine funktionierende Komponente, so hätten wir beide etwas davon

[Drahcir]

Zitat von DeddyH:

Zur Unit masks habe ich diesen Thread gefunden. Was hältst Du davon, wenn wir das solange gemeinsam durchgehen, bis es läuft? Ich könnte dann den Quelltext entsprechend ändern und bei Torry aktualisieren, und Du hättest eine funktionierende Komponente, so hätten wir beide etwas davon

Sehr gerne Vielleicht könntest du mir bei der Gelegenheit ein wenig den Quelltext erklären?

Hier im Forum denk ich ist dafür ein unpassender Ort, hast du Skype oder Teamspeak? Kannst mir ja ne PN schicken
Sonst wäre ein IRC ja auch eine Möglichkeit, das Internet bietet ja große Auswahl