ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/services/MainFormUnit.pas
(Generate patch)

Comparing ibx/trunk/examples/services/MainFormUnit.pas (file contents):
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC vs.
Revision 291 by tony, Fri Apr 17 10:26:08 2020 UTC

# Line 111 | Line 111 | implementation
111  
112   {$R *.lfm}
113  
114 < uses FBMessages, ServicesLoginDlgUnit, SelectValidationDlgUnit, SelectDBDlgUnit,
114 > uses IBMessages, ServicesLoginDlgUnit, SelectValidationDlgUnit, SelectDBDlgUnit,
115    BackupDlgUnit, RestoreDlgUnit,  ListUsersUnit, LimboTransactionsUnit,
116    ShutdownDatabaseDlgUnit, ShutdownRegDlgUnit;
117  
# Line 129 | Line 129 | procedure TMainForm.FormShow(Sender: TOb
129   var i: integer;
130   begin
131    {Set IB Exceptions to only show text message - omit SQLCode and Engine Code}
132 <  FirebirdAPI.GetStatus.SetIBDataBaseErrorMessages([ShowIBMessage]);
132 >  IBXServicesConnection1.FirebirdAPI.GetStatus.SetIBDataBaseErrorMessages([ShowIBMessage]);
133    Application.ExceptionDialog := aedOkMessageBox;
134    FDBName := sDefaultDatabaseName;
135  
# Line 155 | Line 155 | begin
155    {Now display the server properties}
156    with IBServerProperties1, ServicesConnection do
157    begin
158 +    Memo1.Lines.Add('Firebird Library PathName = ' + IBXServicesConnection1.FirebirdAPI.GetFBLibrary.GetLibraryFilePath);
159      Memo1.Lines.Add('Server Version = ' + VersionInfo.ServerVersion);
160      Memo1.Lines.Add('Server Implementation = ' + VersionInfo.ServerImplementation);
161      Memo1.Lines.Add('Service Version = ' + IntToStr(VersionInfo.ServiceVersion));

Diff Legend

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