Service Application 启动又自动停止(20分)

aIni := TIniFile.Create(ExtractFilePath(paramStr(0)) + 'Config.ini');
DBName := aIni.ReadString('information', 'DBname', '');
DBPwd := aIni.ReadString('information', 'DBpwd', '');
DBIP := aIni.ReadString('information', 'DBIP', '');
ADOC.ConnectionString := Constr1 + DBPwd + Constr2 + DBName + Constr3 + DBName + Constr4 + DBPwd + Constr5 + DBIP + Constr6 + DBName + Constr7;
ADOC.Connected := True;
-----------------------------------------------------------------
为什么服务程序会自动停止呢? ADOconnection手动配置好字符串连接就不会有问题
我想把程序做的活点该怎么做?(指动态连数据库)

Service Application 启动又自动停止
难倒你的Service Application 没有写循环吗,如果没有一个
While true do
begin
XXXXX代码
end;
这样的循环的话肯定是启动之后就自己停止了的啊,你最好把全部代码都写出来啊,这样方便大家给你找错误