41. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/31/2017 10:45:43 AM Central 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.

41.1 Files compared

# Location File Last Modified
1 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSUTILS uGMV_DLLCommon.pas Tue Dec 13 18:26:08 2016 UTC
2 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSUTILS uGMV_DLLCommon.pas Fri Mar 31 15:01:45 2017 UTC

41.2 Comparison summary

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

41.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

41.4 Active regular expressions

No regular expressions were active.

41.5 Comparison detail

  1   unit uGMV_ DLLCommon;
  2   {
  3   ========== ========== ========== ========== ========== ========== ========== ==========
  4   *
  5   *       Ap plication:   Vitals
  6   *       Re vision:      $Revisio n: 1 $  $M odtime: 1/ 16/09 2:17 p $
  7   *       De veloper:      PII                              
  8   *       Si te:          Hines OI FO
  9   *
  10   *       De scription:   Common D LL handlin g function s.
  11   *
  12   *       No tes:
  13   *
  14   ========== ========== ========== ========== ========== ========== ========== ==========
  15   *       $A rchive: /V itals/5.0  (Version 5 .0)/5.0.23  (Patch 23 )/VITALS_5 _0_23_8/So urce/VITAL SUTILS/uGM V_DLLCommo n.pas $
  16   *
  17   * $History : uGMV_DLL Common.pas  $
  18    * 
  19    * ******* **********   Version  1  ******* **********
  20    * User: V haishandri a Date: 8/ 12/09    T ime: 8:29a
  21    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_8/Sourc e/VITALSUT ILS
  22    * 
  23    * ******* **********   Version  1  ******* **********
  24    * User: V haishandri a Date: 3/ 09/09    T ime: 3:39p
  25    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_6/Sourc e/VITALSUT ILS
  26    * 
  27    * ******* **********   Version  2  ******* **********
  28    * User: V haishandri a Date: 1/ 20/09    T ime: 3:42p
  29    * Updated  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_4/Sourc e/VITALSUT ILS
  30    * 
  31    * ******* **********   Version  1  ******* **********
  32    * User: V haishandri a Date: 1/ 13/09    T ime: 1:26p
  33    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_4/Sourc e/VITALSUT ILS
  34    * 
  35    * ******* **********   Version  2  ******* **********
  36    * User: V haishandri a Date: 7/ 17/07    T ime: 2:30p
  37    * Updated  in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSUTILS
  38    * 
  39    * ******* **********   Version  1  ******* **********
  40    * User: V haishandri a Date: 5/ 14/07    T ime: 10:30 a
  41    * Created  in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSUTILS
  42    * 
  43    * ******* **********   Version  1  ******* **********
  44    * User: V haishandri a Date: 5/ 16/06    T ime: 5:44p
  45    * Created  in $/Vita ls/VITALS- 5-0-18/Vit alsUtils
  46    * GUI v.  5.0.18 upd ates the d efault vit al type IE Ns with th e local
  47    * values.
  48    * 
  49    * ******* **********   Version  1  ******* **********
  50    * User: V haishandri a Date: 5/ 16/06    T ime: 5:33p
  51    * Created  in $/Vita ls/Vitals- 5-0-18/VIT ALS-5-0-18 /VitalsUti ls
  52    * 
  53    * ******* **********   Version  1  ******* **********
  54    * User: V haishandri a Date: 1/ 25/06    T ime: 8:57a
  55    * Created  in $/Vita ls/Vitals  5.0.3/DLL- Common
  56    * 060125  test
  57    *
  58  
  59    ========= ========== ========== ========== ========== ========== ========== ========== =
  60   }
  61   interface
  62  
  63   uses
  64     Forms,Wi ndows,Dial ogs;
  65  
  66     procedur e FindModu le(const a Library: S tring; con st aModule :String;va r H:THandl e;var P: P ointer);
  67     function  RunDLLDia log(aLibra ry,aFuncti on:String) : Integer;
  68  
  69   implementa tion
  70  
  71   // Note: D on't forge t to free  memory if  H is not 0 !
  72   procedure  FindModule (const aLi brary: Str ing; const  aModule:S tring;var  H:THandle; var P: Poi nter);
  73   var
  74     DLLHandl e: THandle ;
  75   begin
  76     P := nil ;
  77     try
  78       DLLHan dle := Loa dLibrary(P Char(aLibr ary));
  79       if DLL Handle <>  0 then
  80         begi n
  81           H  := DLLHand le;
  82           P  := nil;
  83           P  := GetProc Address(DL LHandle,PC har(aModul e));
  84   {$IFNDEF U SEVSMONITO R}
  85           if  not Assig ned(P) the n
  86            S howMessage ('Error: F ailure loa ging funct ion <'+aMo dule+'>');
  87         end
  88       else
  89         Show Message('E rror: Fail ure loagin g library  <'+PChar(a Library)+' >');
  90   {$ELSE}
  91         end
  92   {$ENDIF}
  93     except
  94       H := 0 ;
  95       P := n il;
  96     end;
  97   end;
  98  
  99   function R unDLLDialo g(aLibrary ,aFunction :String):  Integer;
  100   type
  101     TFuncSig n = functi on:Integer ;
  102   var
  103     FuncSign  : TFuncSi gn;
  104     DLLHandl e : THandl e;
  105     P: Point er;
  106     i: Integ er;
  107   begin
  108     i := -1;
  109     FindModu le(aLibrar y,aFunctio n,DLLHandl e,P);
  110     if Assig ned(P) the n
  111       begin
  112         @Fun cSign := P ;
  113         i :=  FuncSign;
  114       end;
  115     @FuncSig n := nil;
  116     FreeLibr ary(DLLHan dle);
  117     Result : = i;
  118   end;
  119  
  120   end.