Produced by Araxis Merge on 9/25/2018 2:12:54 PM 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 | build 3.zip\build 3\MHLTH_YS_137_Source\Delphi\IAT | uMHA7_Editor_LocalFiles.pas | Thu Sep 6 11:30:42 2018 UTC |
2 | build 3.zip\build 3\MHLTH_YS_137_Source\Delphi\IAT | uMHA7_Editor_LocalFiles.pas | Wed Sep 12 15:59:05 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 408 |
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 uMHA7 _Editor_Lo calFiles; | |
2 | ||
3 | interface | |
4 | ||
5 | uses | |
6 | Windows, | |
7 | classes, | |
8 | Dialogs, | |
9 | SysUtils ; | |
10 | ||
11 | ||
12 | type | |
13 | TLocalFi les = clas s | |
14 | private | |
15 | //FAdm inistratio nFileName: string; | |
16 | FTempF olderName: string; | |
17 | //FMHA Path: stri ng; //va_S ecureDeskt op | |
18 | //func tion GetMH APath: str ing; //va_ SecureDesk top | |
19 | proced ure CheckL ocalDirect ories; | |
20 | functi on GetTemp FolderName : string; | |
21 | proced ure SetTem pFolderNam e; | |
22 | protecte d | |
23 | public | |
24 | //func tion GAFFi leName(ADF N: string) : string; | |
25 | //func tion Answe rFilesPath : string; | |
26 | functi on Instrum entFilesPa th: string ; | |
27 | constr uctor Crea te; | |
28 | //proc edure Load Administra tionFileNa me(ADFN: s tring; ADa teTimeGive n: string; | |
29 | // AI nstrumentN ame: strin g); | |
30 | functi on Instrum entResourc eFileName( AInstrumen tName: str ing; | |
31 | ALas tEditFMDat e: string) : string; | |
32 | functi on Instrum entFrmFile Name(AInst rumentName : string; | |
33 | ALas tEditFMDat e: string) : string; | |
34 | functi on Instrum entFileNam eStem(AIns trumentNam e: string; | |
35 | ALas tEditFMDat e: string) : string; | |
36 | proced ure Update APILog(Mes sageIn: st ring); | |
37 | //func tion OffLi nePatientF ile: strin g; | |
38 | //func tion Answe rFileName( ADFN: stri ng; AID: s tring): st ring; | |
39 | //func tion ASI_R ecoveryFil e: string; | |
40 | //prop erty Admin istrationF ileName: s tring read FAdminist rationFile Name write FAdminist rationFile Name; | |
41 | //prop erty MHAPa th: string read GetM HAPath; // va_SecureD esktop | |
42 | proper ty TempFol derName: s tring read GetTempFo lderName; | |
43 | publishe d | |
44 | end; { T LocalFiles } | |
45 | ||
46 | var | |
47 | LocalFil es : TLocalFi les; | |
48 | ||
49 | ||
50 | implementa tion | |
51 | uses | |
52 | uIA_Cons t, | |
53 | uIA_Util s, | |
54 | uMHA7_Ed itor_Const , | |
55 | jclSysIn fo; | |
56 | ||
57 | constructo r TLocalFi les.Create ; | |
58 | begin | |
59 | inherite d Create; | |
60 | CheckLoc alDirector ies; | |
61 | end; | |
62 | ||
63 | procedure TLocalFile s.CheckLoc alDirector ies; | |
64 | ||
65 | procedur e CheckThi s(ADir: st ring); | |
66 | begin | |
67 | if not Directory Exists(ADi r) then | |
68 | if n ot CreateD ir(ADir) t hen | |
69 | ra ise Except ion.Create ('Cannot c reate ' + ADir); | |
70 | end; | |
71 | ||
72 | begin | |
73 | FTempFol derName := ''; | |
74 | //FMHAPa th := ''; | |
75 | CheckThi s(TempFold erName); | |
76 | CheckThi s(Instrume ntFilesPat h); | |
77 | //CheckT his(Answer FilesPath) ; | |
78 | end; | |
79 | ||
80 | ||
81 | procedure TLocalFile s.UpdateAP ILog(Messa geIn: stri ng); | |
82 | begin | |
83 | gvAPICal ls.Add(Mes sageIn); | |
84 | gvAPICal ls.SaveToF ile('IAT_D ebug.log') ; | |
85 | end; | |
86 | ||
87 | //function TLocalFil es.GAFFile Name(ADFN: string): string; | |
88 | //begin | |
89 | // Result := Answer FilesPath + '\' + AD FN + '.GAF '; | |
90 | //end; | |
91 | ||
92 | //function TLocalFil es.AnswerF ileName(AD FN: string ; AID: str ing): stri ng; | |
93 | //begin | |
94 | // Result := Answer FilesPath + '\' + AD FN + FILE_ NAME_DELIM ITER | |
95 | // + AI D + '.ANS' ; | |
96 | //end; | |
97 | ||
98 | //function TLocalFil es.AnswerF ilesPath: string; | |
99 | //begin | |
100 | // Result := TempFo lderName + 'Answer F iles'; | |
101 | //end; | |
102 | ||
103 | function T LocalFiles .Instrumen tFilesPath : string; | |
104 | begin | |
105 | Result : = TempFold erName + ' Instrument Files'; | |
106 | end; | |
107 | ||
108 | function T LocalFiles .GetTempFo lderName: string; | |
109 | begin | |
110 | if FTemp FolderName = '' then | |
111 | setTem pFolderNam e; | |
112 | ||
113 | result : = FTempFol derName; | |
114 | end; | |
115 | ||
116 | procedure TLocalFile s.SetTempF olderName; | |
117 | //var | |
118 | //// WinT empPath: s tring; | |
119 | //// WinP ath: strin g; | |
120 | // buf: a rray[0..MA X_PATH] of Char; | |
121 | //begin | |
122 | // try | |
123 | // GetT empPath(Si zeof(buf), buf); // i.e. c:\te mp | |
124 | // FTem pFolderNam e := buf; | |
125 | // | |
126 | // if F TempFolder Name = '' then | |
127 | // begi n | |
128 | // Ge tWindowsDi rectory(Bu f, Sizeof( Buf)); // i.e. C:\wi ndows | |
129 | // FT empFolderN ame := Str Pas(Buf); | |
130 | // end; | |
131 | // except | |
132 | // FTem pFolderNam e := 'c:\' ; | |
133 | // end; | |
134 | begin | |
135 | FTempFol derName := GetAppdat aFolder + '\MHA3\'; | |
136 | end; | |
137 | ||
138 | { TLocalFi les.GetMHA Path | |
139 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- | |
140 | [ ]DONE [ ]TESTED DN S FeldmR -- 27-Apr-200 4 | |
141 | Purpose: | |
142 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------} | |
143 | //function TLocalFil es.GetMHAP ath: strin g; //va_Se cureDeskto p | |
144 | //begin | |
145 | // if FMH APath = '' then | |
146 | // FMHA Path := Ex tractFileP ath(ParamS tr(0)); | |
147 | // Result := FMHAPa th; | |
148 | //end; | |
149 | ||
150 | //procedur e TLocalFi les.LoadAd ministrati onFileName (ADFN: str ing; | |
151 | // ADateT imeGiven: string; AI nstrumentN ame: strin g); | |
152 | //begin | |
153 | // FAdmin istrationF ileName := AnswerFil esPath + ' \' + ADFN + FILE_NAM E_DELIMITE R | |
154 | // + AD ateTimeGiv en + FILE_ NAME_DELIM ITER | |
155 | // + AI nstrumentN ame + '.ad m'; | |
156 | //end; | |
157 | ||
158 | function T LocalFiles .Instrumen tResourceF ileName(AI nstrumentN ame: strin g; | |
159 | ALastEdi tFMDate: s tring): st ring; | |
160 | begin | |
161 | Result : = Instrume ntFileName Stem(AInst rumentName , ALastEdi tFMDate) + '.res'; | |
162 | end; | |
163 | ||
164 | function T LocalFiles .Instrumen tFrmFileNa me(AInstru mentName: string; | |
165 | ALastEdi tFMDate: s tring): st ring; | |
166 | begin | |
167 | Result : = Instrume ntFileName Stem(AInst rumentName , ALastEdi tFMDate) + '.frm'; | |
168 | end; | |
169 | ||
170 | function T LocalFiles .Instrumen tFileNameS tem(AInstr umentName: string; | |
171 | ALastEdi tFMDate: s tring): st ring; | |
172 | var | |
173 | Dir, tmp DateStr : string; | |
174 | begin | |
175 | ||
176 | Dir := I nstrumentF ilesPath + '\' + AIn strumentNa me; | |
177 | ||
178 | if not I sFMDateTim e(ALastEdi tFMDate) t hen | |
179 | tmpDat eStr := '2 000101' // the FMDate for 01/01 /1900 | |
180 | else | |
181 | tmpDat eStr := Pi ece(ALastE ditFMDate, '.', 1) | |
182 | + Pi ece(ALastE ditFMDate, '.', 2); | |
183 | ||
184 | Result : = Dir + FI LE_NAME_DE LIMITER + tmpDateStr ; | |
185 | end; | |
186 | ||
187 | (* | |
188 | function T LocalFiles .OffLinePa tientFile: string; | |
189 | begin | |
190 | Result : = Instrume ntFilesPat h + '\B457 -T12.dll'; | |
191 | end; | |
192 | ||
193 | function T LocalFiles .ASI_Recov eryFile: s tring; | |
194 | begin | |
195 | Result : = AnswerFi lesPath + '\Crash.tx t'; | |
196 | end; *) | |
197 | ||
198 | initializa tion | |
199 | LocalFil es := TLoc alFiles.Cr eate; | |
200 | ||
201 | finalizati on | |
202 | LocalFil es.Free; | |
203 | ||
204 | end. | |
205 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.