Pera Detlic
2008-06-19 18:52:56 UTC
Hi,
My application is using Indy almost a hole year (always the last available
version) and it works just fine, but from time to time (sometimes few times
in a day , sometimes few times in a week) I get SocketStarted := false (code
is at the end of mail).
My app. is on a few places with different computers and lan switch but the
results are the same - it works 24/7
Users just restart app. and everything work just fine - until next
hsDisconnected := true
Which parameter I can change to fix this problem ?
Thx
-------------------------------- code -----------------------------
procedure TGlavniF.TCPClientSocketStatus(ASender: TObject;
const AStatus: TIdStatus; const AStatusText: String);
begin
if AStatus = hsConnected then
begin
SocketStarted := true;
end;
if AStatus = hsDisconnected then
begin
SocketStarted := false;
end;
end;
My application is using Indy almost a hole year (always the last available
version) and it works just fine, but from time to time (sometimes few times
in a day , sometimes few times in a week) I get SocketStarted := false (code
is at the end of mail).
My app. is on a few places with different computers and lan switch but the
results are the same - it works 24/7
Users just restart app. and everything work just fine - until next
hsDisconnected := true
Which parameter I can change to fix this problem ?
Thx
-------------------------------- code -----------------------------
procedure TGlavniF.TCPClientSocketStatus(ASender: TObject;
const AStatus: TIdStatus; const AStatusText: String);
begin
if AStatus = hsConnected then
begin
SocketStarted := true;
end;
if AStatus = hsDisconnected then
begin
SocketStarted := false;
end;
end;