Changeset 820 for cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas

Timestamp:

Jul 3, 2010, 4:43:42 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Allow retry on login

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas (modified) (2 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas

@@ -753 +753 @@
   tempPosition : TTabPosition; //kt
   ImagesEnabled : boolean; //kt
+  Connected : boolean; //kt 6/3/10
+  RetryConnect : integer; //kt 6/3/10
 begin
   //kt 6/29/07  Begin modification -------------------
@@ -809 +811 @@
 {$ENDIF}
 
+{ //kt Original block
+  if not ConnectToServer(TX_OPTION) then
+  begin
+    if Assigned(RPCBrokerV) then
+      InfoBox(RPCBrokerV.RPCBError, 'Error', MB_OK or MB_ICONERROR);
+    Close;
+    Exit;
+  end;  }
+
+  //kt begin mod 6/3/10 --------------
   TMGAbort := False;  //kt 3/25/09
-  if not ConnectToServer(TX_OPTION) then
-  begin
-    if Assigned(RPCBrokerV) then
-//    InfoBox(RPCBrokerV.RPCBError, 'Error', MB_OK or MB_ICONERROR);  <-- original line.  //kt 7/17/2007
-      InfoBox(RPCBrokerV.RPCBError, DKLangConstW('fFrame_Error'), MB_OK or MB_ICONERROR); //kt added 7/17/2007
-    Close;
-    TMGAbort := True;   //kt 3/25/09
-    Exit;
-  end;
+  repeat
+    Connected := ConnectToServer(TX_OPTION);
+    if not Connected then begin
+      RetryConnect := mrCancel;
+      if Assigned(RPCBrokerV) then begin
+        RetryConnect := MessageDlg(RPCBrokerV.RPCBError, mtError, [mbRetry, mbCancel], 0);
+      end;
+      if RetryConnect <> mrRetry then begin
+        Close;
+        TMGAbort := True;   //kt 3/25/09
+        Exit;
+      end;
+    end
+  until Connected;   //Exit command above will also abort loop
+  //kt end mod ----------
 
   if ctxContextor <> nil then