ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibserviceeditor.pas
(Generate patch)

Comparing ibx/trunk/design/ibserviceeditor.pas (file contents):
Revision 18 by tony, Sat Dec 28 19:22:24 2013 UTC vs.
Revision 19 by tony, Mon Jul 7 13:00:15 2014 UTC

# 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 >

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines