Subject | IB_Connection.ConnectionStatus does not seem to work |
---|---|
Author | etish2000 |
Post date | 2004-03-15T20:59:23Z |
The following code segment was place in the OnTimer event that
running once every second. No matter the state of the connection,
this property always returns csConnected.
Am I doing something wrong, or is this not a good property to use?
with AdminDataForm.do
begin
case ConnectionStatus of
csDisconnected: lblCnctStat.Caption := 'Disconnected';
csDisconnectPending: lblCnctStat.Caption := 'DisconnectPending';
csDropPending: lblCnctStat.Caption := 'DropPending';
csForcedConnectPending:
lblCnctStat.Caption := 'ForcedConnectPending';
csConnected: lblCnctStat.Caption := 'Connected';
csConnectPending: lblCnctStat.Caption := 'ConnectPending';
csCreatePending: lblCnctStat.Caption := 'ConnectPending';
else
lblCnctStat.Caption := 'Unknown';
end;
end;
running once every second. No matter the state of the connection,
this property always returns csConnected.
Am I doing something wrong, or is this not a good property to use?
with AdminDataForm.do
begin
case ConnectionStatus of
csDisconnected: lblCnctStat.Caption := 'Disconnected';
csDisconnectPending: lblCnctStat.Caption := 'DisconnectPending';
csDropPending: lblCnctStat.Caption := 'DropPending';
csForcedConnectPending:
lblCnctStat.Caption := 'ForcedConnectPending';
csConnected: lblCnctStat.Caption := 'Connected';
csConnectPending: lblCnctStat.Caption := 'ConnectPending';
csCreatePending: lblCnctStat.Caption := 'ConnectPending';
else
lblCnctStat.Caption := 'Unknown';
end;
end;