74. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 10/18/2017 11:37:29 AM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

74.1 Files compared

# Location File Last Modified
1 OSCIF_CPRS v32 Phase 2 Build 2OR3.0405_August_2017.zip\OR_30_405V36_SRC.zip\XE8\Broker\Source RpcbErr.pas Wed Oct 11 20:08:07 2017 UTC
2 OSCIF_CPRS v32 Phase 2 Build 2OR3.0405_August_2017.zip\OR_30_405V36_SRC.zip\XE8\Broker\Source RpcbErr.pas Tue Oct 17 19:58:08 2017 UTC

74.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 414
Changed 1 2
Inserted 0 0
Removed 0 0

74.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

74.4 Active regular expressions

No regular expressions were active.

74.5 Comparison detail

  1   { ******** ********** ********** ********** ********** ********** ****
  2           Pa ckage: XWB  - Kernel  RPCBroker
  3           Da te Created : Sept 18,  1997 (Ver sion 1.1)
  4           Si te Name: O akland, OI  Field Off ice, Dept  of Veteran  Affairs
  5           De velopers:  PII, PII,  PII
  6           De scription:  Contains  TRPCBroker  and relat ed compone nts.
  7     Unit: Rp cbErr erro r handling  for TRPC  Broker.
  8           Cu rrent Rele ase: Versi on 1.1 Pat ch 65
  9   ********** ********** ********** ********** ********** ********** *** }
  10  
  11   { ******** ********** ********** ********** ********** **
  12     Changes  in v1.1.65  (HGW 06/2 3/2016) XW B*1.1*65
  13     1. Added  error XWB _BadToken  for SSOi t esting.
  14  
  15     Changes  in v1.1.60  (HGW 12/1 8/2013) XW B*1.1*60
  16     1. None.
  17  
  18     Changes  in v1.1.50  (JLI 09/0 1/2011) XW B*1.1*50
  19     1. None.
  20   ********** ********** ********** ********** **********  }
  21   unit RpcbE rr;
  22  
  23   interface
  24  
  25   uses
  26     {System}
  27     Classes,  SysUtils,
  28     {WinApi}
  29     Winsock2 , WinProcs ,
  30     {VA}
  31     Trpcb,
  32     {Vcl}
  33     Forms, C ontrols, S tdCtrls, B uttons, Ex tCtrls, Gr aphics;
  34  
  35   type
  36     TfrmRpcb Error = cl ass(TForm)
  37       BitBtn 1: TBitBtn ;
  38       BitBtn 3: TBitBtn ;
  39       Label1 : TLabel;
  40       Bevel1 : TBevel;
  41       Symbol : TImage;
  42       Label2 : TLabel;
  43       Label3 : TLabel;
  44       lblAct ion: TLabe l;
  45       lblCod e: TLabel;
  46       lblMes sage: TLab el;
  47       proced ure FormCr eate(Sende r: TObject );
  48     end;
  49  
  50   var
  51     frmRpcbE rror: Tfrm RpcbError;
  52  
  53   procedure  ShowBroker Error(Brok erError: E BrokerErro r);
  54   procedure  NetError(A ction: str ing; ErrTy pe: intege r);
  55  
  56   const
  57     XWBBASEE RR = {WSAB ASEERR + 1 } 20000;
  58  
  59     {Broker  Applicatio n Error Co nstants}
  60            X WB_NO_HEAP  = XWBBASE ERR + 1;
  61           XW B_M_REJECT  = XWBBASE ERR + 2;
  62          XWB _BadSignOn  = XWBBASE ERR + 4;
  63     XWB_BldC onnectList  = XWBBASE ERR + 5;
  64         XWB_ NullRpcVer  = XWBBASE ERR + 6;
  65           XW B_BadToken  = XWBBASE ERR + 7;
  66           XW B_ExeNoMem  = XWBBASE ERR + 100;
  67          XWB _ExeNoFile  = XWB_Exe NoMem +  2 ;
  68          XWB _ExeNoPath  = XWB_Exe NoMem +  3 ;
  69           XW B_ExeShare  = XWB_Exe NoMem +  5 ;
  70          XWB _ExeSepSeg  = XWB_Exe NoMem +  6 ;
  71           XW B_ExeLoMem  = XWB_Exe NoMem +  8 ;
  72          XWB _ExeWinVer  = XWB_Exe NoMem + 10 ;
  73          XWB _ExeBadExe  = XWB_Exe NoMem + 11 ;
  74           XW B_ExeDifOS  = XWB_Exe NoMem + 12 ;
  75          XWB _RpcNotReg  = XWBBASE ERR + 201;
  76   implementa tion
  77     uses
  78       {VA}
  79       Wsockc ;
  80   {$R *.DFM}
  81  
  82  
  83   procedure  ShowBroker Error(Brok erError: E BrokerErro r);
  84   begin
  85     try
  86       Applic ation.Crea teForm(Tfr mRpcbError , frmRpcbE rror);
  87       with f rmRpcbErro r do begin
  88         lblA ction.Capt ion := Bro kerError.A ction;
  89         lblC ode.Captio n := IntTo Str(Broker Error.Code );
  90         lblM essage.Cap tion := Br okerError. Mnemonic;
  91         Show Modal;
  92       end
  93     finally
  94       frmRpc bError.Rel ease;
  95     end;
  96   end;
  97  
  98  
  99   procedure  TfrmRpcbEr ror.FormCr eate(Sende r: TObject );
  100   var
  101     FIcon: T Icon;
  102   begin
  103     FIcon :=  TIcon.Cre ate;
  104     try
  105       FIcon. Handle :=  LoadIcon(0 , IDI_HAND );
  106       Symbol .Picture.G raphic :=  FIcon;
  107       Symbol .BoundsRec t := Bound s(Symbol.L eft, Symbo l.Top, FIc on.Width,  FIcon.Heig ht);
  108     finally
  109       FIcon. Free;
  110     end;
  111   end;
  112  
  113   //Can this  be redone  to use th e procedur e TXWBWins ock.NetErr or in Wsoc kc.pas and  remove re dundant co de?
  114   procedure  NetError(A ction : St ring; ErrT ype: integ er);
  115   var
  116      x,s: st ring;
  117      r: inte ger;
  118      BrokerE rror: EBro kerError;
  119   begin
  120      Screen. Cursor :=  crDefault;
  121      r := 0;
  122      if ErrT ype > 0 th en r := Er rType;
  123      if ErrT ype = 0 th en
  124         begi n
  125           r  := WSAGetL astError;
  126   //         if r = WSA EINTR then  xFlush :=  True;
  127   //         if WSAIsBl ocking = T rue then W SACancelBl ockingCall ;
  128         end;
  129         Case  r of
  130           WS AEINTR            : x  := 'WSAEI NTR';
  131           WS AEBADF            : x  := 'WSAEI NTR';
  132           WS AEFAULT           : x  := 'WSAEF AULT';
  133           WS AEINVAL           : x  := 'WSAEI NVAL';
  134           WS AEMFILE           : x  := 'WSAEM FILE';
  135           WS AEWOULDBLO CK     : x  := 'WSAEW OULDBLOCK' ;
  136           WS AEINPROGRE SS     : x  := 'WSAEI NPROGRESS' ;
  137           WS AEALREADY         : x  := 'WSAEA LREADY';
  138           WS AENOTSOCK         : x  := 'WSAEN OTSOCK';
  139           WS AEDESTADDR REQ    : x  := 'WSAED ESTADDRREQ ';
  140           WS AEMSGSIZE         : x  := 'WSAEM SGSIZE';
  141           WS AEPROTOTYP E      : x  := 'WSAEP ROTOTYPE';
  142           WS AENOPROTOO PT     : x  := 'WSAEN OPROTOOPT' ;
  143           WS AEPROTONOS UPPORT : x  := 'WSAEP ROTONOSUPP ORT';
  144           WS AESOCKTNOS UPPORT : x  := 'WSAES OCKTNOSUPP ORT';
  145           WS AEOPNOTSUP P      : x  := 'WSAEO PNOTSUPP';
  146           WS AEPFNOSUPP ORT    : x  := 'WSAEP FNOSUPPORT ';
  147           WS AEAFNOSUPP ORT    : x  := 'WSAEA FNOSUPPORT ';
  148           WS AEADDRINUS E      : x  := 'WSAEA DDRINUSE';
  149           WS AEADDRNOTA VAIL   : x  := 'WSAEA DDRNOTAVAI L';
  150           WS AENETDOWN         : x  := 'WSAEN ETDOWN';
  151           WS AENETUNREA CH     : x  := 'WSAEN ETUNREACH' ;
  152           WS AENETRESET        : x  := 'WSAEN ETRESET';
  153           WS AECONNABOR TED    : x  := 'WSAEC ONNABORTED ';
  154           WS AECONNRESE T      : x  := 'WSAEC ONNRESET';
  155           WS AENOBUFS          : x  := 'WSAEN OBUFS';
  156           WS AEISCONN          : x  := 'WSAEI SCONN';
  157           WS AENOTCONN         : x  := 'WSAEN OTCONN';
  158           WS AESHUTDOWN        : x  := 'WSAES HUTDOWN';
  159           WS AETOOMANYR EFS    : x  := 'WSAET OOMANYREFS ';
  160           WS AETIMEDOUT        : x  := 'WSAET IMEDOUT';
  161           WS AECONNREFU SED    : x  := 'WSAEC ONNREFUSED ';
  162           WS AELOOP            : x  := 'WSAEL OOP';
  163           WS AENAMETOOL ONG    : x  := 'WSAEN AMETOOLONG ';
  164           WS AEHOSTDOWN        : x  := 'WSAEH OSTDOWN';
  165           WS AEHOSTUNRE ACH    : x  := 'WSAEH OSTUNREACH ';
  166           WS AENOTEMPTY        : x  := 'WSAEN OTEMPTY';
  167           WS AEPROCLIM         : x  := 'WSAEP ROCLIM';
  168           WS AEUSERS           : x  := 'WSAEU SERS';
  169           WS AEDQUOT           : x  := 'WSAED QUOT';
  170           WS AESTALE           : x  := 'WSAES TALE';
  171           WS AEREMOTE          : x  := 'WSAER EMOTE';
  172           WS ASYSNOTREA DY     : x  := 'WSASY SNOTREADY' ;
  173           WS AVERNOTSUP PORTED : x  := 'WSAVE RNOTSUPPOR TED';
  174           WS ANOTINITIA LISED  : x  := 'WSANO TINITIALIS ED';
  175           WS AHOST_NOT_ FOUND  : x  := 'WSAHO ST_NOT_FOU ND';
  176           WS ATRY_AGAIN        : x  := 'WSATR Y_AGAIN';
  177           WS ANO_RECOVE RY     : x  := 'WSANO _RECOVERY' ;
  178           WS ANO_DATA          : x  := 'WSANO _DATA';
  179  
  180           XW B_NO_HEAP         : x  := 'Insuf ficient He ap';
  181           XW B_M_REJECT        : x  := 'M Err or - Use ^ XTER';
  182           XW B_BadSignO n      : x  := 'Sign- on was not  completed .';
  183           XW B_ExeNoMem        : x  := 'Syste m was out  of memory,  executabl e file was  corrupt,  or relocat ions were  invalid.';
  184           XW B_ExeNoFil e      : x  := 'File  was not fo und.';
  185           XW B_ExeNoPat h      : x  := 'Path  was not fo und.';
  186           XW B_ExeShare        : x  := 'Attem pt was mad e to dynam ically lin k to a tas k,' +
  187                                        ' or t here was a  sharing o r network- protection  error.';
  188           XW B_ExeSepSe g      : x  := 'Libra ry require d separate  data segm ents for e ach task.' ;
  189           XW B_ExeLoMem        : x  := 'There  was insuf ficient me mory to st art the ap plication. ';
  190           XW B_ExeWinVe r      : x  := 'Windo ws version  was incor rect.';
  191           XW B_ExeBadEx e      : x  := 'Execu table file  was inval id.' +
  192                                        ' Eith er it was  not a Wind ows applic ation or t here was a n error in  the .EXE  image.';
  193           XW B_ExeDifOS        : x  := 'Appli cation was  designed  for a diff erent oper ating syst em.';
  194           XW B_RpcNotRe g      : X  := 'Remot e procedur e not regi stered to  applicatio n.';
  195           XW B_BldConne ctList : x  := 'Broke rConnectio ns list co uld not be  created';
  196           XW B_NullRpcV er     : x  := 'RpcVe rsion cann ot be empt y.' + #13  + 'Default  is 0 (zer o).';
  197           XW B_BadToken        : x  := 'Could  not log o n using ST S token.';
  198           el se x := In tToStr(r);
  199     end;
  200     s := 'Er ror encoun tered.' +  chr(13)+ch r(10) + 'F unction wa s: ' + Act ion + chr( 13)+chr(10 ) + 'Error  was: ' +  x;
  201     BrokerEr ror := EBr okerError. Create(s);
  202     BrokerEr ror.Action  := Action ;
  203     BrokerEr ror.Code : = r;
  204     BrokerEr ror.Mnemon ic := x;
  205     raise Br okerError;                                     
  206   end;
  207  
  208   end.

Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.