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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 238 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.