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;
    ConnectionTypeBtn: TRadioGroup;
    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;
    procedure ConnectionTypeBtnSelectionChanged(Sender: TObject);
    procedure PasswordEditingDone(Sender: TObject);
    procedure ProtocolCloseUp(Sender: TObject);
    procedure ServiceParamsEditingDone(Sender: TObject);
    procedure TestClick(Sender: TObject);
    procedure UserNameEditingDone(Sender: TObject);
  private
    { private declarations }
    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.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;

function TIBXServiceEditorForm.Edit: Boolean;
begin
  if Trim(Service.Params.Text) = '' then
    ServiceParams.Clear
  else
    ServiceParams.Lines.Assign(Service.Params);

  ServerName.Text := Service.ServerName;
  Protocol.ItemIndex := ord(Service.Protocol);
  LoginPrompt.Checked := Service.LoginPrompt;
  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.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:	234
Committed:	Mon Apr 16 13:45:11 2018 UTC (6 years ago) by tony
Content type:	text/x-pascal
File size:	5599 byte(s)
Log Message:	Fixes Merged
#	Content
1	(*
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	ConnectionTypeBtn: TRadioGroup;
45	PortNo: TEdit;
46	Label1: TLabel;
47	ServiceParams: TMemo;
48	Label2: TLabel;
49	Label3: TLabel;
50	Label5: TLabel;
51	Label7: TLabel;
52	Label8: TLabel;
53	LoginPrompt: TCheckBox;
54	OKBtn: TButton;
55	Password: TEdit;
56	Protocol: TComboBox;
57	ServerName: TEdit;
58	Test: TButton;
59	UserName: TEdit;
60	procedure ConnectionTypeBtnSelectionChanged(Sender: TObject);
61	procedure PasswordEditingDone(Sender: TObject);
62	procedure ProtocolCloseUp(Sender: TObject);
63	procedure ServiceParamsEditingDone(Sender: TObject);
64	procedure TestClick(Sender: TObject);
65	procedure UserNameEditingDone(Sender: TObject);
66	private
67	{ private declarations }
68	function Edit: Boolean;
69	procedure AddParam(aName, Value: string);
70	procedure DeleteParam(aName: string);
71	procedure UpdateParamEditBoxes;
72	public
73	{ public declarations }
74	Service: TIBXServicesConnection;
75	end;
76
77	function EditIBXService(aService: TIBXServicesConnection): boolean;
78
79	var
80	IBXServiceEditorForm: TIBXServiceEditorForm;
81
82	implementation
83
84	{$R *.lfm}
85
86	function EditIBXService(aService: TIBXServicesConnection): boolean;
87	begin
88	with TIBXServiceEditorForm.Create(Application) do
89	try
90	Service := aService;
91	Result := Edit
92	finally
93	Free
94	end
95	end;
96
97	{ TIBXServiceEditorForm }
98
99	procedure TIBXServiceEditorForm.ConnectionTypeBtnSelectionChanged(
100	Sender: TObject);
101	begin
102	if ConnectionTypeBtn.ItemIndex = 0 then
103	begin
104	Label7.Enabled := False;
105	ServerName.Text := '';
106	ServerName.Enabled := False;
107	Protocol.ItemIndex := 3;
108	end
109	else
110	begin
111	Label7.Enabled := True;
112	ServerName.Enabled := True;
113	if Protocol.ItemIndex = 3 then
114	Protocol.ItemIndex := 4;
115	end;
116	end;
117
118	procedure TIBXServiceEditorForm.PasswordEditingDone(Sender: TObject);
119	begin
120	AddParam('password', Password.Text);
121	end;
122
123	procedure TIBXServiceEditorForm.ProtocolCloseUp(Sender: TObject);
124	begin
125	if Protocol.ItemIndex = 3 then
126	ConnectionTypeBtn.ItemIndex := 0
127	else
128	ConnectionTypeBtn.ItemIndex := 1;
129	end;
130
131	procedure TIBXServiceEditorForm.ServiceParamsEditingDone(Sender: TObject);
132	begin
133	UpdateParamEditBoxes;
134	end;
135
136	procedure TIBXServiceEditorForm.TestClick(Sender: TObject);
137	var tempService: TIBXServicesConnection; {Use as example for test}
138	begin
139	Test.Enabled := false;
140	tempService := TIBXServicesConnection.Create(nil);
141	try
142	tempService.Protocol := TProtocol(Protocol.ItemIndex);
143	tempService.ServerName := ServerName.Text;
144	tempService.PortNo := PortNo.Text;
145	tempService.Params.Assign(ServiceParams.Lines);
146	tempService.LoginPrompt := true;
147	try
148	tempService.Connected := true;
149	ShowMessage('Successful Connection');
150	tempService.Connected := false;
151	except on E: Exception do
152	ShowMessage(E.Message)
153	end;
154	finally
155	tempService.Free;
156	Test.Enabled := true;
157	end;
158	end;
159
160	procedure TIBXServiceEditorForm.UserNameEditingDone(Sender: TObject);
161	begin
162	AddParam('user_name', UserName.Text);
163	end;
164
165	function TIBXServiceEditorForm.Edit: Boolean;
166	begin
167	if Trim(Service.Params.Text) = '' then
168	ServiceParams.Clear
169	else
170	ServiceParams.Lines.Assign(Service.Params);
171
172	ServerName.Text := Service.ServerName;
173	Protocol.ItemIndex := ord(Service.Protocol);
174	LoginPrompt.Checked := Service.LoginPrompt;
175	PortNo.Text := Service.PortNo;
176	ProtocolCloseUp(nil);
177	ConnectionTypeBtnSelectionChanged(nil);
178	UpdateParamEditBoxes;
179	Result := False;
180	if ShowModal = mrOk then
181	begin
182	Service.Protocol := TProtocol(Protocol.ItemIndex);
183	Service.ServerName := ServerName.Text;
184	Service.PortNo := PortNo.Text;
185	Service.Params.Assign(ServiceParams.Lines);
186	Service.LoginPrompt := LoginPrompt.Checked;
187	Result := True;
188	end;
189	end;
190
191	procedure TIBXServiceEditorForm.AddParam(aName, Value: string);
192	begin
193	if Trim(Value) = '' then
194	DeleteParam(aName)
195	else
196	ServiceParams.Lines.Values[aName] := Trim(Value);
197	end;
198
199	procedure TIBXServiceEditorForm.DeleteParam(aName: string);
200	var
201	i: Integer;
202	begin
203	for i := 0 to ServiceParams.Lines.Count - 1 do
204	begin
205	if (Pos(aName, LowerCase(ServiceParams.Lines.Names[i])) = 1) then {mbcs ok}
206	begin
207	ServiceParams.Lines.Delete(i);
208	break;
209	end;
210	end;
211	end;
212
213	procedure TIBXServiceEditorForm.UpdateParamEditBoxes;
214	begin
215	UserName.Text := ServiceParams.Lines.Values['user_name'];
216	Password.Text := ServiceParams.Lines.Values['password'];
217	end;
218
219
220	end.