여러 응용 프로그램 동기화

Question

일부 파일을 처리하는 여러 서비스가 있습니다. 처리하는 동안 각 서비스는 파일에 독점적으로 액세스해야합니다. 이 같은 글로벌 일부 임시 파일을 사용 뮤텍스, 무언가를 만들어 얼마 전에이 문제를 해결 :

function AppLocked: boolean; 
begin 
    result := FileExists(GetTempDir + '__MUTEX__' + LockExt); 
end; 

procedure AppLock; 
var 
    F: TextFile; 
begin 
    if FileExists(GetTempDir + '__MUTEX__' + LockExt) then 
    exit 
    else 
    try 
    AssignFile(F, GetTempDir + '__MUTEX__' + LockExt); 
    Rewrite(F); 
    Writeln(F, DateTimeToStr(Now)); 
    CloseFile(F); 
    except 
    end; 
end; 

procedure AppUnLock; 
begin 
    if FileExists(GetTempDir + '__MUTEX__' + LockExt) then 
    SysUtils.DeleteFile(GetTempDir + '__MUTEX__' + LockExt); 
end; 

이 꽤 잘 작동하고, 나는 작동 뭔가를 해결하고 싶지 않아,하지만 난 그냥 궁금 더 나은 해결책이 있습니까?

Answer 1

실제 뮤텍스 (win32 뮤텍스에서와 같이)가 선호되는 방법입니다.

Answer 2

응용 프로그램이 종료되고 잠금 해제하지 못한 경우 솔루션에 문제가 있습니다. 이것은 비정상 종료시 발생할 수 있습니다. 응용 프로그램이 종료되면 자동으로 지워지는 파일을 만드는 것이 좋습니다.

모든 마법은

unit uAppLock; 

interface 

function AppLocked : Boolean; 
function AppLock : Boolean; 
procedure AppUnlock; 

implementation 

uses 
    Windows, SysUtils, Classes; 

var 
    // unit global variable 
    LockFileHandle : THandle; 

// function to build the filename 
function GetLockFileName : string; 
begin 
    // You have to point out, where to get these informations 
    Result := GetTempDir + '__MUTEX__' + LockExt; 
end; 

function AppLocked : Boolean; 
begin 
    Result := FileExists(GetLockFileName); 
end; 

function AppLock : Boolean; 
var 
    LFileName :  string; 
    LLockFileStream : TStream; 
    LInfoStream :  TStringStream; 
begin 
    Result := False; 

    if AppLock 
    then 
    Exit; 

    LFileName := GetLockFileName; 

    // Retrieve the handle of the LockFile 
    LockFileHandle := CreateFile(PChar(LFileName), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_DELETE, 
    nil, CREATE_NEW, FILE_FLAG_DELETE_ON_CLOSE or FILE_ATTRIBUTE_TEMPORARY, 0); 

    if LockFileHandle <> INVALID_HANDLE_VALUE 
    then 
    begin 

     Result := True; 

     LInfoStream  := nil; 
     LLockFileStream := nil; 
     try 

     LInfoStream := TStringStream.Create; 
     LInfoStream.WriteString(DateTimeToStr(Now)); 
     LInfoStream.Seek(0, soFromBeginning); 

     LLockFileStream := THandleStream.Create(LockFileHandle); 
     LLockFileStream.CopyFrom(LInfoStream, LInfoStream.Size); 

     finally 
     LInfoStream.Free; 
     LLockFileStream.Free; 
     end; 

    end; 

end; 

procedure AppUnlock; 
begin 
    // Just close the handle and the file will be deleted 
    CloseHandle(LockFileHandle); 
end; 

end. 

BTW FILE_FLAG_DELETE_ON_CLOSE에 의해 수행됩니다 GetTempDir이 디렉토리로 보이는,하지만 당신은 경로로 사용합니다. 따라서 이름을 으로 바꾸는 것이 좋습니다. GetTempPath 대신 :