Changeset 612 for cprs/branches/tmg-cprs/CPRS-Lib/ORNet.pas

Timestamp:

Nov 27, 2009, 5:58:07 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Enhanced 'Last Broker Call' dialog

File:

• cprs/branches/tmg-cprs/CPRS-Lib/ORNet.pas (modified) (7 diffs)

cprs/branches/tmg-cprs/CPRS-Lib/ORNet.pas

@@ -26 +26 @@
 function DottedIPStr: string;
 procedure CallRPCWhenIdle(CallProc: TORIdleCallProc; Msg: String);
-
 procedure EnsureBroker;
+procedure RPCCallsClear;  //kt added
 
 (*
@@ -46 +46 @@
 implementation
 
-uses Winsock;
+uses
+  DateUtils, //kt
+  Winsock;
 
 const
@@ -187 +189 @@
   i, j: Integer;
   x, y: string;
+  Time1,Time2 : TDateTime; //kt
 begin
   RPCLastCall := RPCBrokerV.RemoteProcedure + ' (CallBroker begin)';
@@ -205 +208 @@
   if uCurrentContext <> uBaseContext then
     AStringList.Add('Context: ' + uCurrentContext);
+  Time1 := GetTime; //kt
+  AStringList.Add('Called at: '+ TimeToStr(Time1));  //kt
   AStringList.Add(' ');
   AStringList.Add('Params ------------------------------------------------------------------');
@@ -264 +269 @@
   AStringList.Add('Results -----------------------------------------------------------------');
   AStringList.AddStrings(RPCBrokerV.Results);
+  AStringList.Add(' ');  //kt
+  Time2 := GetTime; //kt
+  AStringList.Add('Elapsed Time: ' + IntToStr(Round(MilliSecondSpan(Time2,Time1))) + ' ms');  //kt
   uCallList.Add(AStringList);
   if uShowRPCs then StatusText('');
@@ -497 +505 @@
 end;
 
+procedure RPCCallsClear;
+//kt Added entire fuction.
+begin
+  while uCallList.Count > 0 do
+  begin
+    TStringList(uCallList.Items[0]).Free;
+    uCallList.Delete(0);
+  end;
+end;
+
 initialization
   RPCBrokerV := nil;
   RPCLastCall := 'No RPCs called';
   uCallList := TList.Create;
-  uMaxCalls := 10;
+  uMaxCalls := 150; //kt 10
   uShowRPCs := False;
 
 finalization
+  { //kt commented out
   while uCallList.Count > 0 do
   begin
@@ -510 +529 @@
     uCallList.Delete(0);
   end;
+  }
+  RPCCallsClear; //kt added
   uCallList.Free;