equal
deleted
inserted
replaced
139 {$IFDEF DEBUGFILE}AddFileLog('IPC in: '+s[1]+' ticks '+inttostr(lastcmd^.loTime));{$ENDIF} |
139 {$IFDEF DEBUGFILE}AddFileLog('IPC in: '+s[1]+' ticks '+inttostr(lastcmd^.loTime));{$ENDIF} |
140 end |
140 end |
141 end; |
141 end; |
142 |
142 |
143 procedure IPCCheckSock; |
143 procedure IPCCheckSock; |
144 const ss: string = ''; |
144 const ss: shortstring = ''; |
145 var i: LongInt; |
145 var i: LongInt; |
146 buf: array[0..255] of byte; |
146 buf: array[0..255] of byte; |
147 s: shortstring absolute buf; |
147 s: shortstring absolute buf; |
148 begin |
148 begin |
149 if IPCSock = nil then |
149 if IPCSock = nil then |
168 end; |
168 end; |
169 end; |
169 end; |
170 |
170 |
171 procedure LoadRecordFromFile(fileName: shortstring); |
171 procedure LoadRecordFromFile(fileName: shortstring); |
172 var f: file; |
172 var f: file; |
173 ss: string = ''; |
173 ss: shortstring = ''; |
174 i: LongInt; |
174 i: LongInt; |
175 buf: array[0..255] of byte; |
175 buf: array[0..255] of byte; |
176 s: shortstring absolute buf; |
176 s: shortstring absolute buf; |
177 begin |
177 begin |
178 |
178 |