ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/design/ibserviceeditor.pas

Comparing ibx/trunk/design/ibserviceeditor.pas (file contents):
Revision 7 by tony, Sun Aug 5 18:28:19 2012 UTC vs.
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC

#	Line 32 | Line 32 | interface
32
33		uses
34		Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
35	<	ExtCtrls, StdCtrls, IBServices;
35	>	ExtCtrls, StdCtrls, IBServices, IB;
36
37		type
38
#	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