加急!编写Nt service程序出现问题

Question

我写了一个Nt service 程序 SystemService其中里面有一个叫server的线层
线层的代码如下
procedure server.Execute;
begin
SystemService.tcp.DefaultPort:=8000;
SystemService.tcp.Active:=true;
end;在SystemService代码如下
procedure TSystemService.ServiceStart(Sender: TService; var Started: Boolean);
begin
server.Create(false);
Started:=true;end;运行后能打开端口 没问题
但是发送数据 他不处理!
处理发来数据处理如下
procedure TSystemService.tcpExecute(AThread: TIdPeerThread);
var
command:string;
begin
command:=AThread.Connection.ReadLn();
showmessage(command);
end;
到底是哪里出了问题啊

Answer 1

>>但是发送数据 他不处理!
你怎麼知道不處理??/showmessage(command); 不一定有用的, 你應該寫到一個 log 文件!或者設置你的 service 為 Interactive 為 true 才能用到

Answer 2

没写过这个，不过aiirii(ari-爱的眼睛) 说的还是有点道理的