Produced by Araxis Merge on 3/31/2017 10:45:42 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\DLLTEST | fMain.pas | Tue Dec 13 18:26:06 2016 UTC |
2 | CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\DLLTEST | fMain.pas | Fri Mar 31 15:01:04 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 264 |
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 fMain ; | |
2 | ||
3 | interface | |
4 | ||
5 | uses | |
6 | Winapi.W indows, | |
7 | Winapi.M essages, | |
8 | System.S ysUtils, | |
9 | System.V ariants, | |
10 | System.C lasses, | |
11 | Vcl.Grap hics, | |
12 | Vcl.Cont rols, | |
13 | Vcl.Form s, | |
14 | Vcl.Dial ogs, | |
15 | Vcl.StdC trls; | |
16 | ||
17 | type | |
18 | TForm1 = class(TFo rm) | |
19 | Button 1: TButton ; | |
20 | dlgGet DLLName: T OpenDialog ; | |
21 | proced ure Button 1Click(Sen der: TObje ct); | |
22 | private | |
23 | { Priv ate declar ations } | |
24 | public | |
25 | { Publ ic declara tions } | |
26 | end; | |
27 | ||
28 | var | |
29 | Form1: T Form1; | |
30 | ||
31 | implementa tion | |
32 | ||
33 | {$R *.dfm} | |
34 | ||
35 | ||
36 | type | |
37 | TGMV_Cal lVitalsDLL = functio n(aParams: PWideChar ): integer ; stdcall; | |
38 | ||
39 | procedure TForm1.But ton1Click( Sender: TO bject); | |
40 | var | |
41 | aDLLName : string; | |
42 | aParams: string; | |
43 | aDLLHand le: Native UInt; | |
44 | aDLLFunc Addr: TGMV _CallVital sDLL; | |
45 | const | |
46 | aDLLFunc Name = 'GM V_VitalsVi ewDLG'; | |
47 | begin | |
48 | if dlgGe tDLLName.E xecute the n | |
49 | aDLLNa me := dlgG etDLLName. Filename | |
50 | else | |
51 | Exit; | |
52 | ||
53 | aDLLHand le := Load Library(PW ideChar(aD LLName)); | |
54 | if aDLLH andle = 0 then | |
55 | begin | |
56 | Show MessageFmt ('Cannot l oad DLL: % s', [aDLLN ame]); | |
57 | Exit ; | |
58 | end; | |
59 | ||
60 | @aDLLFun cAddr := G etProcAddr ess(aDLLHa ndle, PAns iChar(aDLL FuncName)) ; | |
61 | if not A ssigned(aD LLFuncAddr ) then | |
62 | begin | |
63 | Show MessageFmt ('Cannot f ind functi on: %s', [ aDLLFuncNa me]); | |
64 | Exit ; | |
65 | end; | |
66 | ||
67 | try | |
68 | aParams := 'server=1 27.0.0.1; PORT '; | |
69 | ||
70 | finally | |
71 | aDLLFu ncAddr := nil; | |
72 | FreeLi brary(aDLL Handle); | |
73 | aDLLHa ndle := 0; | |
74 | end; | |
75 | end; | |
76 | ||
77 | (* | |
78 | procedur e TfraCove rSheetDisp layPanel_C PRS_Vitals .OnUpdateV itals(Send er: TObjec t); | |
79 | var | |
80 | aFunctio nAddr: TGM V_VitalsVi ewForm; | |
81 | aFunctio nName: Ans iString; | |
82 | aRtnRec: TDllRtnRe c; | |
83 | aStartDa te: string ; | |
84 | begin | |
85 | { Availb le Forms: | |
86 | GMV_FNam e :='GMV_V italsEnter DLG'; | |
87 | GMV_FNam e :='GMV_V italsEnter Form'; | |
88 | GMV_FNam e :='GMV_V italsViewF orm'; | |
89 | GMV_FNam e :='GMV_V italsViewD LG'; | |
90 | } | |
91 | try | |
92 | aFunctio nName := ' GMV_Vitals ViewDLG'; | |
93 | aRtnRec := LoadVit alsDLL; | |
94 | ||
95 | case aRt nRec.Retur n_Type of | |
96 | DLL_Succ ess: | |
97 | try | |
98 | @aFuncti onAddr := GetProcAdd ress(Vital sDLLHandle , PAnsiCha r(aFunctio nName)); | |
99 | if Assig ned(aFunct ionAddr) t hen | |
100 | begin | |
101 | if Patie nt.Inpatie nt then | |
102 | aStartDa te := Form atDateTime ('mm/dd/yy ', Now - 7 ) | |
103 | else | |
104 | aStartDa te := Form atDateTime ('mm/dd/yy ', IncMont h(Now, -6) ); | |
105 | ||
106 | aFunctio nAddr(RPCB rokerV, Pa tient.DFN, IntToStr( Encounter. Location), aStartDat e, FormatD ateTime('m m/dd/yy', Now), GMV_ APP_SIGNAT URE, GMV_C ONTEXT, GM V_CONTEXT, Patient.N ame, Forma t('%s % d', [Patie nt.SSN, Pa tient.Age] ), Encount er.Locatio nName + U) ; | |
107 | end | |
108 | else | |
109 | MessageD LG('Can''t find func tion "GMV_ VitalsView DLG".', mt Error, [mb ok], 0); | |
110 | except | |
111 | on E: Ex ception do | |
112 | MessageD LG('Error running Vi tals Lite: ' + E.Mes sage, mtEr ror, [mbok ], 0); | |
113 | end; | |
114 | DLL_Miss ing: | |
115 | begin | |
116 | TaskMess ageDlg('Fi le Missing or Invali d', aRtnRe c.Return_M essage, mt Error, [mb ok], 0); | |
117 | end; | |
118 | DLL_Vers ionErr: | |
119 | begin | |
120 | TaskMess ageDlg('In correct Ve rsion Foun d', aRtnRe c.Return_M essage, mt Error, [mb ok], 0); | |
121 | end; | |
122 | end; | |
123 | finally | |
124 | @aFuncti onAddr := nil; | |
125 | UnloadVi talsDLL; | |
126 | end; | |
127 | ||
128 | CoverShe et.OnRefre shPanel(Se lf, CV_CPR S_VITL); | |
129 | CoverShe et.OnRefre shPanel(Se lf, CV_CPR S_RMND); | |
130 | end; | |
131 | *) | |
132 | ||
133 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.