Bidirektionale Names Pipes (wie bei Sockets)?

[Bummi]

Ich habe es im Netz im Einsatz mit 3 Schichten
1. direkt an der Maschine als Dienst
2. Middle-tier für die Protokllierung / Aufbereitung / Steerung als Dienst
3. GUI für die Adrstellung

zwischen 1 und 2 hängt eine Zugriffsberechtigung auf Dateiebene hängt ...

Delphi-Quellcode:

procedure TPipeServer.GenACLFromFile;
//20110228 by Thomas Wassermann
var
  res : Boolean;
  len : Cardinal;
  fDaclPresent,fDaclDefaulted:Bool;
begin
  FACL := nil;
  if Assigned(FpFileSD) then  DoHeapFree(FpFileSD);
  if FileExists(FACLFileName) then
    begin
    res := GetFileSecurity(PChar(FACLFileName),DACL_SECURITY_INFORMATION,FpFileSD,0,len);
    if res or (GetLastError() = ERROR_INSUFFICIENT_BUFFER) then
       begin
         FpFileSD := DoHeapAlloc(len);
         GetFileSecurity(PChar(FACLFileName),DACL_SECURITY_INFORMATION,FpFileSD,len,len);
         GetSecurityDescriptorDacl(FpFileSD,fDaclPresent,FACL,fDaclDefaulted);
       end;
    end;
end;