AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Datei bereits in Benutzung

Ein Thema von Alex_ITA01 · begonnen am 26. Mär 2009 · letzter Beitrag vom 30. Mär 2009
 
Alex_ITA01

Registriert seit: 22. Sep 2003
1.134 Beiträge
 
Delphi 12 Athens
 
#1

Datei bereits in Benutzung

  Alt 26. Mär 2009, 10:24
Hallo zusammen,
ich habe hier folgenden Source gefunden, um herauszufinden, dass eine Datei bereits in Benutzung ist (bereits lesend geöffnet).

Delphi-Quellcode:
function IsFileUsed(const FileName:String): Boolean;
  const
    AccessMode: array[0..2] of LongWord = (
      GENERIC_READ,
      GENERIC_WRITE,
      GENERIC_READ or GENERIC_WRITE);
    ShareMode: array[0..4] of LongWord = (
      0,
      0,
      FILE_SHARE_READ,
      FILE_SHARE_WRITE,
      FILE_SHARE_READ or FILE_SHARE_WRITE);
  var
    Mode : LongWord;
    iRes : INTEGER;
  begin
    Mode := fmOpenRead or fmShareDenyWrite;
    iRes := -1;
    if ((Mode and 3) <= fmOpenReadWrite) and
      (((Mode and $F0) shr 4) <= fmShareDenyNone) then
      iRes := Integer(CreateFile(PChar(FileName),
                        AccessMode[Mode and 3],
                        ShareMode[(Mode and $F0) shr 4],
                        nil,
                        OPEN_EXISTING,
                        FILE_ATTRIBUTE_NORMAL,
                        0));
      If iRes < 0 then
          Result := True
        else
          Result := False;
    If Not Result then CloseHandle(THandle(iRes));
  end;
Mein Problem ist, dass ich von einem PC (X) auf eine Datei die auf dem PC (Y) liegt zugreife mit einem MemoryStream.LoadfromFile(Dateiname).
Ich habe LoadFromFile überschrieben und beim öffnen der Datei ein fmShareExclusive angegeben, damit kein anderer mehr darauf schreiben oder lesen kann.
Wenn ich jetzt aber vom PC (X) auch diese Datei öffnen will (fmOpenRead als Stream), dann dauert es ca. 40sek, bis das TFileStream.Create eine Exception auslöst und mir mitteilt, dass der Versuch die Datei zu öffnen schief ging. Auch die erwähnte Funktion oben, liefert mir nicht sofort (ca. 40sek) später, dass die Datei in Benutzung ist. Die Datei ist relativ groß und der Zugriff von PC (Y) dauert auch wesentlich länger als 40sek.
Habt ihr noch Ratschläge, wie ich herausbekomme, dass die Datei in Benutzung ist mit einer "Spontanantwort"?
Viele Grüße
Alex
Let's fetz sprach der Frosch und sprang in den Mixer
  Mit Zitat antworten Zitat
 


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 09:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz