我做的TCP 服务，为什么安装之后，我无法启动它？(50分)

G

gsl4361

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-25

• #1

建立一SERVICE APPLICATION 只放了一个TCP SERVER 控件，SERVICE 也成功了，
可是无法激活它，直接在服务中也无法启动它。为什么？在SERVICE 类中到底可以方什么控件？
TABLE,TIMER,....

 

C

cushaw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-25

• #2

会不会是监听端口被其他程序占用了？

 

G

gsl4361

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-25

• #3

不是。我设的端口9802

 

F

framework

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-25

• #4

能给代码看看吗

 

Q

qsilence

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-25

• #5

你的服务主循环怎么写的，是不是运行就退出了？
在任务管理器（W2k）中能看到你的EXE是否运行，
放那控件控件绝对没问题

 

G

gsl4361

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-25

• #6

就是delphi 6,7 中的关于 service application 中的 help里的例子。service form中 只放了一个
server socket 控件，端口设为9802。active 默认 true。
编译成功后，用-install 安装，提示成功。在windows server 的 service 中可以看见。但是，当你启动它
时，提示：不能启动。

 

G

gsl4361

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-25

• #7

to qsilence:
服务程序需要循环吗？什么含义？

 

Q

qsilence

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-25

• #8

主循环
procedure ServiceController(CtrlCode: DWord); stdcall;
begin
WatchService.Controller(CtrlCode);
end;

function TWatchService.GetServiceController: TServiceController;
begin
Result := ServiceController;
end;

procedure TWatchService.ServiceExecute(Sender: TService);
begin
while not Terminated do
begin
ServiceThread.ProcessRequests(False);
Sleep(100);
end;
ServerSocket1.Active := False;
end;

 

G

gsl4361

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-25

• #9

我不懂，循环的目的是什么？