Midas:应用程序服务器死机

[78]

我将应用程序服务器做成一个可以设置的程序，放在系统托盘区，采用TSocketConnection方式。服务器运行了相关的所有软件。
只要我的应用程序服务器没有还原到正常界面时一切正常，但使应用程序服务器设置界面弹出后，再运行一个前台程序，这个服务器就停止相应，前台程序同时停止相应，在弹出代码中没有任何与数据库有关的东西。
运用任务管理器关掉这个应用程序服务器，前端程序立刻正常（自启动一个服务器）
请问这是什么原因？

[长弓落日]

学习！

[make11111]

等待。。。。

[dana]

将网络协议中无用的删除掉，可加快速度。
将socketconnetion的supportcallbacks设为false

[Liusp]

"在弹出代码中没有任何与数据库有关的东西",这个弹出代码是什么？就没有一点错误信息提示吗？

[78]

没有。
如果有就好了。
我用的是D6不含其它第三方控件。
我安第三方控件安烦了。

[78]

dana(dana):
问题依旧。
Liusp(夜深千帐灯):
弹出代码是：
frmMain.show;
showwindow(application.handle,sw_show);//这句改成sw_hide效果一样。

其实运行服务器后，只要打开过就会出现以上现象了。

[Liusp]

不应是Application.handle吧,应该是frmMain.Handle.
隐藏代码：
ShowWindow(Handle,SW_HIDE);

弹出代码：
showwindow(Handle,sw_show)

[Liusp]

试试吧！

[Liusp]

试试吧！

[78]

我的代码可以弹出界面的，但是弹出后不能再用前台程序提交请求。
而且我更正后依然如此。

[dancemaple]

可能是DCOMCNFG配置的问题

[Liusp]

我这儿的中间层也是按你的思路作的，
用到RX系列控件TRxTrayIcon,TAppEvents，相关代码如下，作参考吧！

procedure TFormServerMain.AppEventsActivate(Sender: TObject);
begin
{$IFNDEF WIN32}
if Screen.ActiveForm <> nil then Screen.ActiveForm.BringToFront;
{$ENDIF}
end;

//点Form的最小化按纽时隐藏
procedure TFormServerMain.AppEventsMinimize(Sender: TObject);
begin
{$IFDEF WIN32}
if NewStyleControls then ShowWindow(Application.Handle, SW_HIDE);
{$ENDIF}
end;

procedure TFormServerMain.AppEventsRestore(Sender: TObject);
begin
{$IFDEF WIN32}
if NewStyleControls then ShowWindow(Application.Handle, SW_SHOW);
{$ENDIF}
end;

//弹出
procedure TFormServerMain.TrayIconDblClick(Sender: TObject);
begin
Application.Restore;
end;

[78]

我找到原因了！！
D6的TStatusBar的BUG。
我在应用程序中使用了它，并且设置了一个panel作为访问用户的记数标志，结果它不能正确显示而且没有响应。
而我用一个TLable控件来代替就正常了。
我的d6装了补丁1，borland允许安装的那一个。