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 7 by tony, Sun Aug 5 18:28:19 2012 UTC vs.
Revision 33 by tony, Sat Jul 18 12:30:52 2015 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.
247

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines