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 380 by tony, Mon Jan 10 10:13:17 2022 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 –

Comparing ibx/trunk/design/ibserviceeditor.pas (property svn:eol-style):
Revision 7 by tony, Sun Aug 5 18:28:19 2012 UTC vs.
Revision 380 by tony, Mon Jan 10 10:13:17 2022 UTC

# Line 0 | Line 1
1 + native

Diff Legend

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