trunk/design/IBXServiceEditor.pas

(*
 *  IBX For Lazarus (Firebird Express)
 *
 *  The contents of this file are subject to the Initial Developer's
 *  Public License Version 1.0 (the "License"); you may not use this
 *  file except in compliance with the License. You may obtain a copy
 *  of the License here:
 *
 *    http://www.firebirdsql.org/index.php?op=doc&id=idpl
 *
 *  Software distributed under the License is distributed on an "AS
 *  IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
 *  implied. See the License for the specific language governing rights
 *  and limitations under the License.
 *
 *  The Initial Developer of the Original Code is Tony Whyman.
 *
 *  The Original Code is (C) 2011 Tony Whyman, MWA Software
 *  (http://www.mwasoftware.co.uk).
 *
 *  All Rights Reserved.
 *
 *  Contributor(s): ______________________________________.
 *
*)

unit IBXServiceEditor;

{$mode objfpc}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, StdCtrls, IBXServices, IB;

type

  { TIBXServiceEditorForm }

  TIBXServiceEditorForm = class(TForm)
    Bevel1: TBevel;
    CancelBtn: TButton;
    ConfigOverrides: TMemo;
    ConnectionTypeBtn: TRadioGroup;
    Label10: TLabel;
    PortNo: TEdit;
    Label1: TLabel;
    ServiceParams: TMemo;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    LoginPrompt: TCheckBox;
    OKBtn: TButton;
    Password: TEdit;
    Protocol: TComboBox;
    ServerName: TEdit;
    Test: TButton;
    UserName: TEdit;
    UseWireCompression: TCheckBox;
    procedure ConfigOverridesEditingDone(Sender: TObject);
    procedure ConnectionTypeBtnSelectionChanged(Sender: TObject);
    procedure PasswordEditingDone(Sender: TObject);
    procedure ProtocolCloseUp(Sender: TObject);
    procedure ServiceParamsEditingDone(Sender: TObject);
    procedure TestClick(Sender: TObject);
    procedure UserNameEditingDone(Sender: TObject);
    procedure UseWireCompressionEditingDone(Sender: TObject);
  private
    { private declarations }
    FChanging: boolean;
    function Edit: Boolean;
    procedure AddParam(aName, Value: string);
    procedure DeleteParam(aName: string);
    procedure UpdateParamEditBoxes;
  public
    { public declarations }
    Service: TIBXServicesConnection;
  end;

function EditIBXService(aService: TIBXServicesConnection): boolean;

var
  IBXServiceEditorForm: TIBXServiceEditorForm;

implementation

{$R *.lfm}

function EditIBXService(aService: TIBXServicesConnection): boolean;
begin
  with TIBXServiceEditorForm.Create(Application) do
  try
    Service := aService;
    Result := Edit
  finally
    Free
  end
end;

{ TIBXServiceEditorForm }

procedure TIBXServiceEditorForm.ConnectionTypeBtnSelectionChanged(
  Sender: TObject);
begin
  if ConnectionTypeBtn.ItemIndex = 0 then
  begin
    Label7.Enabled := False;
    ServerName.Text := '';
    ServerName.Enabled := False;
    Protocol.ItemIndex := 3;
  end
  else
  begin
    Label7.Enabled := True;
    ServerName.Enabled := True;
    if Protocol.ItemIndex = 3 then
      Protocol.ItemIndex := 4;
  end;
end;

procedure TIBXServiceEditorForm.ConfigOverridesEditingDone(Sender: TObject);
begin
  FChanging := true;
  try
    UseWireCompression.Checked := CompareText(ConfigOverrides.Lines.Values['WireCompression'],'true') = 0;
  finally
    FChanging := false;
  end;
end;

procedure TIBXServiceEditorForm.PasswordEditingDone(Sender: TObject);
begin
  AddParam('password', Password.Text);
end;

procedure TIBXServiceEditorForm.ProtocolCloseUp(Sender: TObject);
begin
  if Protocol.ItemIndex = 3 then
    ConnectionTypeBtn.ItemIndex := 0
  else
    ConnectionTypeBtn.ItemIndex := 1;
end;

procedure TIBXServiceEditorForm.ServiceParamsEditingDone(Sender: TObject);
begin
  UpdateParamEditBoxes;
end;

procedure TIBXServiceEditorForm.TestClick(Sender: TObject);
var tempService: TIBXServicesConnection; {Use as example for test}
begin
  Test.Enabled := false;
  tempService := TIBXServicesConnection.Create(nil);
  try
    tempService.Protocol := TProtocol(Protocol.ItemIndex);
    tempService.ServerName := ServerName.Text;
    tempService.PortNo := PortNo.Text;
    tempService.Params.Assign(ServiceParams.Lines);
    tempService.LoginPrompt := true;
    try
      tempService.Connected := true;
      ShowMessage('Successful Connection');
      tempService.Connected := false;
    except on E: Exception do
      ShowMessage(E.Message)
    end;
  finally
    tempService.Free;
    Test.Enabled := true;
  end;
end;

procedure TIBXServiceEditorForm.UserNameEditingDone(Sender: TObject);
begin
  AddParam('user_name', UserName.Text);
end;

procedure TIBXServiceEditorForm.UseWireCompressionEditingDone(Sender: TObject);
var Index: integer;
begin
  if FChanging then Exit;
  if UseWireCompression.Checked then
    ConfigOverrides.Lines.Values['WireCompression'] := 'true'
  else
  begin
    Index := ConfigOverrides.Lines.IndexOfName('WireCompression');
    if Index <> -1 then
      ConfigOverrides.Lines.Delete(Index);
  end;
end;

function TIBXServiceEditorForm.Edit: Boolean;
begin
  ServiceParams.Lines.Assign(Service.Params);
  ConfigOverrides.Lines.Assign(Service.ConfigOverrides);

  ServerName.Text := Service.ServerName;
  Protocol.ItemIndex := ord(Service.Protocol);
  LoginPrompt.Checked := Service.LoginPrompt;
  UseWireCompression.Checked := Service.WireCompression;
  PortNo.Text := Service.PortNo;
  ProtocolCloseUp(nil);
  ConnectionTypeBtnSelectionChanged(nil);
  UpdateParamEditBoxes;
  Result := False;
  if ShowModal = mrOk then
  begin
    Service.Protocol := TProtocol(Protocol.ItemIndex);
    Service.ServerName := ServerName.Text;
    Service.PortNo := PortNo.Text;
    Service.Params.Assign(ServiceParams.Lines);
    Service.ConfigOverrides.Assign(ConfigOverrides.Lines);
    Service.LoginPrompt := LoginPrompt.Checked;
    Result := True;
  end;
end;

procedure TIBXServiceEditorForm.AddParam(aName, Value: string);
begin
  if Trim(Value) = '' then
    DeleteParam(aName)
  else
    ServiceParams.Lines.Values[aName] := Trim(Value);
end;

procedure TIBXServiceEditorForm.DeleteParam(aName: string);
var
  i: Integer;
begin
    for i := 0 to ServiceParams.Lines.Count - 1 do
    begin
      if (Pos(aName, LowerCase(ServiceParams.Lines.Names[i])) = 1) then {mbcs ok}
      begin
        ServiceParams.Lines.Delete(i);
        break;
      end;
    end;
end;

procedure TIBXServiceEditorForm.UpdateParamEditBoxes;
begin
  UserName.Text := ServiceParams.Lines.Values['user_name'];
  Password.Text := ServiceParams.Lines.Values['password'];
end;


end.
Revision:	380
Committed:	Mon Jan 10 10:13:17 2022 UTC (2 years, 3 months ago) by tony
Content type:	text/x-pascal
File size:	6584 byte(s)
Log Message:	propset for eol-style
#	User	Rev	Content
1	tony	234	(*
2			* IBX For Lazarus (Firebird Express)
3			*
4			* The contents of this file are subject to the Initial Developer's
5			* Public License Version 1.0 (the "License"); you may not use this
6			* file except in compliance with the License. You may obtain a copy
7			* of the License here:
8			*
9			* http://www.firebirdsql.org/index.php?op=doc&id=idpl
10			*
11			* Software distributed under the License is distributed on an "AS
12			* IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
13			* implied. See the License for the specific language governing rights
14			* and limitations under the License.
15			*
16			* The Initial Developer of the Original Code is Tony Whyman.
17			*
18			* The Original Code is (C) 2011 Tony Whyman, MWA Software
19			* (http://www.mwasoftware.co.uk).
20			*
21			* All Rights Reserved.
22			*
23			* Contributor(s): ______________________________________.
24			*
25			*)
26
27			unit IBXServiceEditor;
28
29			{$mode objfpc}
30
31			interface
32
33			uses
34			Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
35			ExtCtrls, StdCtrls, IBXServices, IB;
36
37			type
38
39			{ TIBXServiceEditorForm }
40
41			TIBXServiceEditorForm = class(TForm)
42			Bevel1: TBevel;
43			CancelBtn: TButton;
44	tony	267	ConfigOverrides: TMemo;
45	tony	234	ConnectionTypeBtn: TRadioGroup;
46	tony	267	Label10: TLabel;
47	tony	234	PortNo: TEdit;
48			Label1: TLabel;
49			ServiceParams: TMemo;
50			Label2: TLabel;
51			Label3: TLabel;
52			Label5: TLabel;
53			Label7: TLabel;
54			Label8: TLabel;
55			LoginPrompt: TCheckBox;
56			OKBtn: TButton;
57			Password: TEdit;
58			Protocol: TComboBox;
59			ServerName: TEdit;
60			Test: TButton;
61			UserName: TEdit;
62	tony	267	UseWireCompression: TCheckBox;
63			procedure ConfigOverridesEditingDone(Sender: TObject);
64	tony	234	procedure ConnectionTypeBtnSelectionChanged(Sender: TObject);
65			procedure PasswordEditingDone(Sender: TObject);
66			procedure ProtocolCloseUp(Sender: TObject);
67			procedure ServiceParamsEditingDone(Sender: TObject);
68			procedure TestClick(Sender: TObject);
69			procedure UserNameEditingDone(Sender: TObject);
70	tony	267	procedure UseWireCompressionEditingDone(Sender: TObject);
71	tony	234	private
72			{ private declarations }
73	tony	267	FChanging: boolean;
74	tony	234	function Edit: Boolean;
75			procedure AddParam(aName, Value: string);
76			procedure DeleteParam(aName: string);
77			procedure UpdateParamEditBoxes;
78			public
79			{ public declarations }
80			Service: TIBXServicesConnection;
81			end;
82
83			function EditIBXService(aService: TIBXServicesConnection): boolean;
84
85			var
86			IBXServiceEditorForm: TIBXServiceEditorForm;
87
88			implementation
89
90			{$R *.lfm}
91
92			function EditIBXService(aService: TIBXServicesConnection): boolean;
93			begin
94			with TIBXServiceEditorForm.Create(Application) do
95			try
96			Service := aService;
97			Result := Edit
98			finally
99			Free
100			end
101			end;
102
103			{ TIBXServiceEditorForm }
104
105			procedure TIBXServiceEditorForm.ConnectionTypeBtnSelectionChanged(
106			Sender: TObject);
107			begin
108			if ConnectionTypeBtn.ItemIndex = 0 then
109			begin
110			Label7.Enabled := False;
111			ServerName.Text := '';
112			ServerName.Enabled := False;
113			Protocol.ItemIndex := 3;
114			end
115			else
116			begin
117			Label7.Enabled := True;
118			ServerName.Enabled := True;
119			if Protocol.ItemIndex = 3 then
120			Protocol.ItemIndex := 4;
121			end;
122			end;
123
124	tony	267	procedure TIBXServiceEditorForm.ConfigOverridesEditingDone(Sender: TObject);
125			begin
126			FChanging := true;
127			try
128			UseWireCompression.Checked := CompareText(ConfigOverrides.Lines.Values['WireCompression'],'true') = 0;
129			finally
130			FChanging := false;
131			end;
132			end;
133
134	tony	234	procedure TIBXServiceEditorForm.PasswordEditingDone(Sender: TObject);
135			begin
136			AddParam('password', Password.Text);
137			end;
138
139			procedure TIBXServiceEditorForm.ProtocolCloseUp(Sender: TObject);
140			begin
141			if Protocol.ItemIndex = 3 then
142			ConnectionTypeBtn.ItemIndex := 0
143			else
144			ConnectionTypeBtn.ItemIndex := 1;
145			end;
146
147			procedure TIBXServiceEditorForm.ServiceParamsEditingDone(Sender: TObject);
148			begin
149			UpdateParamEditBoxes;
150			end;
151
152			procedure TIBXServiceEditorForm.TestClick(Sender: TObject);
153			var tempService: TIBXServicesConnection; {Use as example for test}
154			begin
155			Test.Enabled := false;
156			tempService := TIBXServicesConnection.Create(nil);
157			try
158			tempService.Protocol := TProtocol(Protocol.ItemIndex);
159			tempService.ServerName := ServerName.Text;
160			tempService.PortNo := PortNo.Text;
161			tempService.Params.Assign(ServiceParams.Lines);
162			tempService.LoginPrompt := true;
163			try
164			tempService.Connected := true;
165			ShowMessage('Successful Connection');
166			tempService.Connected := false;
167			except on E: Exception do
168			ShowMessage(E.Message)
169			end;
170			finally
171			tempService.Free;
172			Test.Enabled := true;
173			end;
174			end;
175
176			procedure TIBXServiceEditorForm.UserNameEditingDone(Sender: TObject);
177			begin
178			AddParam('user_name', UserName.Text);
179			end;
180
181	tony	267	procedure TIBXServiceEditorForm.UseWireCompressionEditingDone(Sender: TObject);
182			var Index: integer;
183	tony	234	begin
184	tony	267	if FChanging then Exit;
185			if UseWireCompression.Checked then
186			ConfigOverrides.Lines.Values['WireCompression'] := 'true'
187	tony	234	else
188	tony	267	begin
189			Index := ConfigOverrides.Lines.IndexOfName('WireCompression');
190			if Index <> -1 then
191			ConfigOverrides.Lines.Delete(Index);
192			end;
193			end;
194	tony	234
195	tony	267	function TIBXServiceEditorForm.Edit: Boolean;
196			begin
197			ServiceParams.Lines.Assign(Service.Params);
198			ConfigOverrides.Lines.Assign(Service.ConfigOverrides);
199
200	tony	234	ServerName.Text := Service.ServerName;
201			Protocol.ItemIndex := ord(Service.Protocol);
202			LoginPrompt.Checked := Service.LoginPrompt;
203	tony	267	UseWireCompression.Checked := Service.WireCompression;
204	tony	234	PortNo.Text := Service.PortNo;
205			ProtocolCloseUp(nil);
206			ConnectionTypeBtnSelectionChanged(nil);
207			UpdateParamEditBoxes;
208			Result := False;
209			if ShowModal = mrOk then
210			begin
211			Service.Protocol := TProtocol(Protocol.ItemIndex);
212			Service.ServerName := ServerName.Text;
213			Service.PortNo := PortNo.Text;
214			Service.Params.Assign(ServiceParams.Lines);
215	tony	267	Service.ConfigOverrides.Assign(ConfigOverrides.Lines);
216	tony	234	Service.LoginPrompt := LoginPrompt.Checked;
217			Result := True;
218			end;
219			end;
220
221			procedure TIBXServiceEditorForm.AddParam(aName, Value: string);
222			begin
223			if Trim(Value) = '' then
224			DeleteParam(aName)
225			else
226			ServiceParams.Lines.Values[aName] := Trim(Value);
227			end;
228
229			procedure TIBXServiceEditorForm.DeleteParam(aName: string);
230			var
231			i: Integer;
232			begin
233			for i := 0 to ServiceParams.Lines.Count - 1 do
234			begin
235			if (Pos(aName, LowerCase(ServiceParams.Lines.Names[i])) = 1) then {mbcs ok}
236			begin
237			ServiceParams.Lines.Delete(i);
238			break;
239			end;
240			end;
241			end;
242
243			procedure TIBXServiceEditorForm.UpdateParamEditBoxes;
244			begin
245			UserName.Text := ServiceParams.Lines.Values['user_name'];
246			Password.Text := ServiceParams.Lines.Values['password'];
247			end;
248
249
250			end.