# | Line 139 | Line 139 | begin | |
---|---|---|
139 | end; | |
140 | tempService.Params.Assign(ServiceParams.Lines); | |
141 | tempService.LoginPrompt := true; | |
142 | < | tempService.Active := true; |
143 | < | ShowMessage('Successful Connection'); |
144 | < | tempService.Active := false; |
142 | > | try |
143 | > | tempService.Active := true; |
144 | > | ShowMessage('Successful Connection'); |
145 | > | tempService.Active := false; |
146 | > | except on E: Exception do |
147 | > | ShowMessage(E.Message) |
148 | > | end; |
149 | finally | |
150 | tempService.Free; | |
151 | Test.Enabled := true; | |
# | Line 244 | Line 248 | end; | |
248 | ||
249 | ||
250 | end. | |
251 | < | |
251 | > |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |