Procedure

TfrmBroker.btnRLTClick

Module

fxBroker

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmBroker

Declaration

procedure btnRLTClick(Sender: TObject);

Calls Hierarchy


TfrmBroker.btnRLTClick
 └ServerVersion

Calls

Name Declaration Comments
ServerVersion function ServerVersion(const Option, VerClient: string): string; -


Source

105   procedure TfrmBroker.btnRLTClick(Sender: TObject);
106   var
107     startTime, endTime: tDateTime;
108     clientVer, serverVer, diffDisplay: string;
109     theDiff: integer;
110   const
111     TX_OPTION  = 'OR CPRS GUI CHART';
112     disclaimer = 'NOTE: Strictly relative indicator:';
113   begin
114   
115   clientVer := clientVersion(Application.ExeName); // Obtain before starting.
116   
117   // Check time lapse between a standard RPC call:
118   startTime := now;
119   serverVer :=  ServerVersion(TX_OPTION, clientVer);
120   endTime := now;
121   theDiff := milliSecondsBetween(endTime, startTime);
122   diffDisplay := intToStr(theDiff);
123   
124   // Show the results:
125   infoBox('Lapsed time (milliseconds) = ' + diffDisplay + '.', disclaimer, MB_OK);
126   
127   end;