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 209 by tony, Wed Mar 14 12:48:51 2018 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 41 | Line 41 | type
41		TIBServiceEditorForm = class(TForm)
42		Bevel1: TBevel;
43		CancelBtn: TButton;
44	+	PortNo: TEdit;
45	+	Label1: TLabel;
46		ServiceParams: TMemo;
47		Label2: TLabel;
48		Label3: TLabel;
#	Line 137 | Line 139 | begin
139		end;
140		tempService.ServerName := ServerName.Text
141		end;
142	+	tempService.PortNo := PortNo.Text;
143		tempService.Params.Assign(ServiceParams.Lines);
144		tempService.LoginPrompt := true;
145	<	tempService.Active := true;
146	<	ShowMessage('Successful Connection');
147	<	tempService.Active := false;
145	>	try
146	>	tempService.Active := true;
147	>	ShowMessage('Successful Connection');
148	>	tempService.Active := false;
149	>	except on E: Exception do
150	>	ShowMessage(E.Message)
151	>	end;
152		finally
153		tempService.Free;
154		Test.Enabled := true;
#	Line 162 | Line 169 | begin
169
170		ServerName.Text := Service.ServerName;
171		LoginPrompt.Checked := Service.LoginPrompt;
172	+	PortNo.Text := Service.PortNo;
173		UserName.Text := GetParam('user_name');
174		Password.Text := GetParam('password');
175		RemoteRbtn.Checked := (Service.Protocol <> Local);
#	Line 184 | Line 192 | begin
192		end;
193		Service.Params := ServiceParams.Lines;
194		Service.LoginPrompt := LoginPrompt.Checked;
195	+	Service.PortNo := PortNo.Text;
196		Result := True;
197		end;
198		end;
#	Line 244 | Line 253 | end;
253
254
255		end.
247	–

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines