Delphi Service to Listen to TCP or UDP -
reading question: delphi windows service design, saw designer use code below in onexecute of tservice or in tthread method, in order keep service alive.
while not terminated begin // end; but if need (and do) create service respond (using indy) messages sent main application in order send authentication data, do code, ignore or put sleep() in it?
indy's tidtcpserver , tidudpserver components multi-threaded, don't need use tservice.onexecute event @ all. activate them in tservice.onstart event , deactivate them in tservice.onstop event, , assign handlers tidtcpserver.onexecute , tidudpserver.onudpread events needed. both events looped you, don't need while not terminated loop in them. read/process 1 request needed, exit, , wait next event repeat. let server handle exceptions raised. , keep in mind tidudpserver has threadedevent property false default, should set true inside service.
Comments
Post a Comment