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