Forum: Win32/Win64 API (native code)
by Jumpy,
6. Aug 2012
Ich hab es jetzt so umgeändert, das die Klasse, die die Telnetverbindung zu SA aufbaut, nicht jedes mal "neu erzeugt und dann ge-FreeAndNilled" wird, sondern sie wird nur einmal beim ersten Aufruf erzeugt. Hat sie ihr Ding gemacht, wird die Telnet-Connection geschlossen, und alle Werte zurückgesetzt. Bei späteren Aufrufen, werden nur die Propertys neu gesetzt und die Klasse "gestartet".
So...
Forum: Win32/Win64 API (native code)
by Jumpy,
3. Aug 2012
Vielen Dank schon mal an alle Helfer, aber leider:
Ich komm dem Fehler nicht auf die Spur. Ich hab alles in try...except gekapselt, aber keiner dieser Blöcke springt an. Ich hatte es jetzt auch zweimal so, das ein Dialogfenster mit dem Fehler eingeblendet wurde (nicht von mir und ich war nicht im Debugmodus). Das verrückte war, solange dieses Dialogfenster offen war lief der Dienst weiter. Er...
Forum: Win32/Win64 API (native code)
by Jumpy,
27. Jul 2012
Hallo,
hab mal eine kleinen Test gebaut:
procedure TService1.ServiceExecute(Sender: TService);
begin
Timer1.Interval:=10000;
Timer1.Enabled:=true;
while not Terminated do
Forum: Win32/Win64 API (native code)
by Jumpy,
27. Jul 2012
Hallo,
hab mir schon einige Threads und Tutorials zur Erstellung eigener Dienste mit Delphi durchgelesen und wollte das mit der TService Klasse und der TService Application umsetzen.
Der Dienst soll nicht in einer Schleife immer wieder eine Aktion durchführen oder so, sonder es soll ein TTimer aktiviert und ein TServerSocket geöffnet werden. Nun soll nur noch mit entsprechenden Funktionen...