Forum: Programmieren allgemein
by franktron,
15. Jun 2010
Ich hab den Fehler
Das
ServiceThread.ProcessRequests(False);
Fehlte im ServiceExecute muss eine Schleife mit dem Befehl drin stehen sonst gehts nicht
Forum: Programmieren allgemein
by franktron,
15. Jun 2010
Wenn ich das so machen geht das aber auch nicht
procedure Tkas_service.ServiceExecute(Sender: TService);
begin
KAS_Server1.ShowStatus('Service Run');
//KAS_Server1.DoRun;
while Not Terminated do
Begin
sleep(10);
End;
end;
Forum: Programmieren allgemein
by franktron,
15. Jun 2010
Nein aber im Stop Ereignis vom Service
aber ich hab mal gedebugt und das ServcieStop wird gar nicht angesprungen
Forum: Programmieren allgemein
by franktron,
14. Jun 2010
Mein Dienst will nicht stoppen
procedure TKas_Server.DoRun;
Var
XML_Server : Txml_kas_server;
begin
FIsDebugFile:=True;
Recon:=False;