Bir servis yazmak için uğraşıyorum. Servisin LOG kayıtlarını bir text dosyasına yazmak istiyorum. Ama dosya oluşmuyor. Sebebi ne olabilir?
Kod: Tümünü seç
procedure TInfo_Pts4_Servis.ServiceStart(Sender: TService; var Started: Boolean);
var
Dosya : TextFile;
begin
DosyaHata('Log test');
end;
procedure TInfo_Pts4_Servis.DosyaHata(Ack : String);
const
FileName = 'd:\logdate.txt';
var
DosyaAdi : String;
xDosya : TextFile;
F: TextFile;
begin
AssignFile(f,FileName);
if FileExists(FileName) then Append(f)
else
Rewrite(f);
writeln(f,Ack);
CloseFile(f);
{
// önce bunu denedim yine olmadı
DosyaAdi := 'Pts_Servis.Log';
AssignFile(xDosya, DosyaAdi);
Rewrite(xDosya);
if System.SysUtils.FileExists(DosyaAdi) then Append(xDosya)
else Rewrite(xDosya);
WriteLn(xDosya, Ack);
finally
CloseFile(xDosya);
end;
}
end;
