当中间层与客户端之间的网络出现故障时,客户机读取数据时,程序没有响应! ( 积分: 100 )

我是用Delphi7,midas.dll开发,
当中间层与客户端之间的网络出现故障时,
客户机读取数据时,程序没有响应,
DELPHI6好像几秒钟后会提示，可D7没提示，
真怪，哪位仁兄能否指点一下。。
跪求期待中！

自已顶一下，
（我用D7升级包，升级后，还是一样“客户端无响应”）
跪求期待中！

连接前先尝试Ping一下服务器看是否网络畅通...

我客户端程序很简单，
object ClientDataSet1: TClientDataSet
Aggregates = <>
CommandText = 'SELECT TOP 1 * FROM KUSER'
Params = <>
ProviderName = 'dspTemp'
RemoteServer = SocketConnection1
Left = 192
Top = 144
end
object SocketConnection1: TSocketConnection
Connected = True
ServerGUID = '{400A4195-44D5-4AEA-A2D9-8FA924E0F7EE}'
ServerName = 'kAppServer.TkAppServer'
Address = '39.42.46.49'
Port = 9993
Left = 240
Top = 144
end
设计时，就将SocketConnection1.Connect:=True
然后运行客户端程序，
这时，再悄悄地把中间层所在的电脑的网线断开，
（此时客户机并不知情），然后我在客户机上运行查询
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientDataSet1.Close;
ClientDataSet1.CommandText:='select top 1 .....';
ClientDataSet1.Open;
end;
（这个也非常简单），
这里，这个客户机就一直没响应（因为中间层已悄悄地断网）
在D6中，客户机虽也会无响应，但过了几秒钟后，会返回一个 10060的SOCKET错误异常，
但D7中，就没有异常出现？？？（中间层已设置了超时30秒）
至于Johnny_du说PING一下，可能不允许执行这种操作，太慢了，因上我这只是个例子，
实际上会有大量的查询动作，如果每个查询前加个PING，那程序就慢得别用了。
继续期待中。（我是有DELPHI7）

顶一下，说一声，如果可以多台服务器就可以看哪个服务器可以联上，就转联接到哪个服务器上

多台服务器模式我也在考虑之中，
不过，我这是客户端处于无响应状态，我一直怀疑是Delphi Borland SocketServer的BUG，
或者是SocketConnection的BUG.
(只有DELPHI7是这样，DELPHI6就正常)

附上客户端例子的全部代码。（非常简单）
----------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBClient, MConnect, SConnect;
type
TForm1 = class(TForm)
ClientDataSet1: TClientDataSet;
SocketConnection1: TSocketConnection;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientDataSet1.Close;
ClientDataSet1.CommandText:='select top 1 .....';
ClientDataSet1.Open;
end;

end.

--------------------------------------
object Form1: TForm1
Left = 192
Top = 107
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 272
Top = 288
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
object ClientDataSet1: TClientDataSet
Aggregates = <>
CommandText = 'SELECT TOP 1 * FROM KUSER'
Params = <>
ProviderName = 'dspTemp'
RemoteServer = SocketConnection1
Left = 192
Top = 144
end
object SocketConnection1: TSocketConnection
Connected = True
ServerGUID = '{400A4195-44D5-4AEA-A2D9-8FA924E0F7EE}'
ServerName = 'kAppServer.TkAppServer'
Address = '69.42.46.49'
Port = 5003
Left = 240
Top = 144
end
end
--------------------------------
其中，中间层也是个空壳，没东西，我的客户端只是做一个非常简单的数据请求，
操作流程是这样：
1》。服务器上启动“中间层”，
2》。客户端上启动“客户端”，（一启动，就默认连接上了中间层，设计是就设为SocketConnection.Connected:=True
3》。服务器端断网（拔网线）
4》。客户端点击查询按纽。
5》。客户端就处于“无响应”状态。
----Delphi7是这样，但Delphi6中，虽然也会无响应，但过了几秒钟，会弹出个异常来。
我无法忍受D7中这样无止境的无响应，希望也能像D6一样出现一个异常来,这样，我就可以进下处理一下

再顶！期待哪位仁兄指点。。。

再顶一下[]

再顶，有兴趣的朋友一起来顶一下，如解决这个问题，将与大家一起分享！

多半是客户端组件未加入超时异常处理导致吧，应该算BUG

我自已没能力加超时异常处理!
唉[]

请问一下，SockConnection1，每次操作一个表时都要打开和关闭一下吗？我这边查询一个表时，你多点几下，马上就会出错。在前面加上SockConnection1.open,然后关闭才不会出错吗？这是什么原因呢？我在插入数据时我多点几下插入数据也会，删除也一样。你能帮我解决一下吗？
代码如下：
SockConnection1.open;
ClientDataSet1.close;
ClientDataSet1.CommandText :='select * from 1 ';
ClientDataSet1.open;
SockConnection1.close ;

不要再设计时将
SocketConnection.Connected:=True
再你程序运行时，比如窗体show或者create的时候再将它置为ture
就可以了。

To xinjinren:
我只是做实验才这样先Connect:=True(开际开发时肯定不会这样做)
我这样做的目的: 模拟出先联通服务器, 过一会,中间线路出故障, 但客户端并未查觉,
依然提交数据请求,(这时,客户端程序就无响应)
今天我又有了点新进展, 我跟踪到 SConnect.pas单元中的第1848行(注elphi7),
在GetMessage(Msg, FHandle, THREAD_RECEIVEDSTREAM, THREAD_EXCEPTION)这里,无响应.
可我没法子......(就执行到这一步,就无响应,没有超时报错的机制)

这个问题我前几个月遇到过，这是网络不稳定造成的。
其实解决也简单，只要对数据集相关动态连接一次就可以了。

你要模拟出先联通服务器, 过一会,中间线路出故障, 但客户端并未查觉,
依然提交数据请求，完全可以再程序运行期间将SocketConnection.Connected置为true的，然后再断开中间线路。
在设计期间就将SocketConnection.Connected置为true再D7下确实是存在很大问题的。

to bbscom,
我这里每次试验都是这样，应当不会是网络问题吧。[]

到最后也没搞定，
算了，均分了吧