Wann ist eine Datei fertig geschrieben?

[Sharky]

Hai ihr,

ich habe folgende Situation:

Auf einem Server läuft ein Dienst der Daten von einem anderen Server empfängt und aus diesen dann Dateien erzeugt die auf einem Fileserver abgelegt werden.

Ich muss nun einen Dienst schreiben der diese Dateien in Abhängigkeit des Dateinamens in verschiedene Verzeichnisse kopiert/verschiebt (das ist ja kein Problem).

Die Frage ist nun:
Wie kann ich herausfinden ob die Datei von dem Dienst auch schon fertig erzeugt wurde. Nicht das ich diese schon kopieren bevor sie fertig erzeugt wurde.

Was ist denn da der beste/sicherste Ansatz um Probleme zu verhindern?

[Win32.API]

Am einfachsten waere es den Dienst so zu veraendern, dass er dein Programm benachrichtigt wenn eine datei fertig ist. Dann stellt sich aber die Frage ob du zugriff auf den Quellcode von dem Dienst hast.

[Phoenix]

Ich würde jetzt mal ins blaue Raten, aber das müsste über offene Handles gehen.
SysInternals hat das Tool Handle, welches offene File-Handles einer Datei anzeigen kann. Leider ohne Source.

Aber da deren Tool das kann muss es ein paar API-Funktionen geben, die das Leisten. Vielleicht schaust Du mal im SysInternals Forum rein, ich würde jede Wette eingehen dass da was zu steht. http://forum.sysinternals.com/

[Sharky]

Zitat von Win32.API:

Am einfachsten waere es den Dienst so zu veraendern. ...

Hai Win32.API,

das ist leider nicht möglich. Das Programm ist von "unserer" Bank.

Zitat von Phoenix:

Ich würde jetzt mal ins blaue Raten, aber das müsste über offene Handles gehen.
SysInternals hat das Tool Handle, welches offene File-Handles einer Datei anzeigen kann. .../

Hai Feuervogel,

dann werde ich mal schauen ob ich in dieser Richtung etwas finde.

[marabu]

Hallo Stephan,

der von dir zu schreibende Dienst wird wohl auf dem erwähnten FileServer laufen, so dass du ReadDirectoryChangesW() verwenden könntest.

Freundliche Grüße

[Sharky]

Zitat von marabu:

...so dass du ReadDirectoryChangesW() verwenden könntest. ...

Hai Du,

danke für den Tip. Da werde ich mich doch gleich einmal damit beschäftigen.

[Reinhard Kern]

Zitat von Sharky:

Hai ihr,

...
Wie kann ich herausfinden ob die Datei von dem Dienst auch schon fertig erzeugt wurde. Nicht das ich diese schon kopieren bevor sie fertig erzeugt wurde.

Was ist denn da der beste/sicherste Ansatz um Probleme zu verhindern?

Hallo,

einfach und brutal: versuche, die Datei exklusiv zu öffnen. Wenn das nicht geht, ist sie noch nicht fertig geschrieben und geschlossen.

Gruss Reinhard

[grenzgaenger]

luckie, hatte da mal eine routine gepostet...

Delphi-Quellcode:

FUNCTION CheckAccessToFile(DesiredAccess: DWORD; CONST FileName: WideString): BOOLEAN;
CONST
 GenericFileMapping: TGenericMapping = (
  GenericRead: FILE_GENERIC_READ;
  GenericWrite: FILE_GENERIC_WRITE;
  GenericExecute: FILE_GENERIC_EXECUTE;
  GenericAll: FILE_ALL_ACCESS
  );
VAR
 LastError:     DWORD;
 LengthNeeded:  DWORD;
 SecurityDescriptor: PSecurityDescriptor;
 ClientToken:   THandle;
 AccessMask:    DWORD;
 PrivilegeSet:  TPrivilegeSet;
 PrivilegeSetLength: DWORD;
 GrantedAccess: DWORD;
 AccessStatus:  BOOL;
BEGIN
 Result    := False;
 LastError := GetLastError;
 IF NOT GetFileSecurityW(PWideChar(FileName), OWNER_SECURITY_INFORMATION OR
  GROUP_SECURITY_INFORMATION OR DACL_SECURITY_INFORMATION, nil, 0, LengthNeeded) AND
  (GetLastError <> ERROR_INSUFFICIENT_BUFFER) THEN
  Exit;
 SetLastError(LastError);
 Inc(LengthNeeded, $1000);
 SecurityDescriptor := PSecurityDescriptor(LocalAlloc(LPTR, LengthNeeded));
 IF NOT Assigned(SecurityDescriptor) THEN
  Exit;
 TRY
  IF NOT GetFileSecurityW(PWideChar(FileName), OWNER_SECURITY_INFORMATION OR
   GROUP_SECURITY_INFORMATION OR DACL_SECURITY_INFORMATION,
   SecurityDescriptor, LengthNeeded, LengthNeeded) THEN
   Exit;
  IF NOT ImpersonateSelf(SecurityImpersonation) THEN
   Exit;
  TRY
   IF NOT OpenThreadToken(GetCurrentThread, TOKEN_QUERY OR
    TOKEN_IMPERSONATE OR TOKEN_DUPLICATE, False, ClientToken) THEN
    Exit;
   TRY
    AccessMask := DesiredAccess;
    MapGenericMask(AccessMask, GenericFileMapping);
    PrivilegeSetLength := SizeOf(TPrivilegeSet);
    IF AccessCheck(SecurityDescriptor, ClientToken, AccessMask,
     GenericFileMapping, PrivilegeSet, PrivilegeSetLength,
     GrantedAccess, AccessStatus) THEN
     Result := AccessStatus;
   FINALLY
    CloseHandle(ClientToken);
   END;
  FINALLY
   RevertToSelf;
  END;
 FINALLY
  LocalFree(HLOCAL(SecurityDescriptor));
 END;
 //Möglicher Aufruf
 //procedure TForm1.Button1Click(Sender: TObject);
 //begin
 //  if OpenDialog1.Execute then
 //    ShowMessage(BoolToStr(
 //      CheckAccessToFile(GENERIC_WRITE, // check for generic write access
 //      OpenDialog1.FileName), True) + ': ' + SysErrorMessage(GetLastError));
 //end;
END;

um zu prüfen, ob man eine datei öffnen kann. denke, das ist eine möglichkeit, eine andere die von reinhard...

aber für mich stellt sich eine frage, wo läuft dein progy, auf dem fileserver, wo das andere progy die datei erzeugt? falls ja, glaub ich ich zu erinnern, dass da eine nachricht oder etwas ähnliches erzeugt wird.. wenn die datei geschlossen wird... aber da müsst luckie auch bescheid wissen. in der windows API kenn ich mich nicht so aus...