Dienst - Netzwerk - Dateizugriff verweigert

[BennyM]

Hallo,

ich habe ein kleines Problem mit einem Dienst. Ich möchte das der Dienst übers Netzwerk eine Textdatei schreibt.
Ich verwende dazu folgende Funktion

Delphi-Quellcode:

procedure TForm1.SchreibeText(Text: String);
var T  : TextFile;
    Pfad, KW, Pfad_Protokoll     : String;
begin
   try
      Pfad := '\\192.168.1.11\Channel\';
      KW   := '20';
      Pfad_Protokoll := Pfad + 'Protokoll\Downloadmanager_' + KW + '.txt';
      AssignFile(T, Pfad_Protokoll);
      if not FileExists(Pfad_Protokoll) then
         ReWrite(T) else
         Append(T);
      Writeln(T, FormatDateTime('dd.mm.yyyy hh:nn:ss', now) + ' - ' + Text);
      CloseFile(T);
   except
      on E: Exception do
         ShowMessage(Text + '/' + E.Classname + '/' + E.Message);
   end;
end;

Wenn ich das ganze als Programm ausführe, funktioniert alles wunderbar. Wenn ich die funktion allerdings im Dienst laufen lasse, dann bekomme ich immer "Dateizugriff verweigert". Ich habe auch schon die Rechte auf den Ordner überprüft. Es steht auch Netzwerk und Netzwerkdienst mit vollzugriff drin...

Hat vielleicht noch einer ne Idee woran das liegen kann?

mfg
Benny

[marabu]

Hallo Benny,

vielleicht verhindern unzureichende Rechte auf der Freigabe den Zugriff?

Grüße vom marabu

[Olli]

Unter welchem Konto läuft denn der Dienst? SYSTEM hat normalerweise keinerlei (SMB-)Netzwerkrechte.

[BennyM]

Zitat von Olli:

Unter welchem Konto läuft denn der Dienst? SYSTEM hat normalerweise keinerlei (SMB-)Netzwerkrechte.

Ja der dienst ist unter dem Systemkonto gelaufen. Das war die Lösung. Herzlichen Dank