ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/examples/services/MainFormUnit.pas

Comparing ibx/trunk/examples/services/MainFormUnit.pas (file contents):
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC vs.
Revision 380 by tony, Mon Jan 10 10:13:17 2022 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));

Comparing ibx/trunk/examples/services/MainFormUnit.pas (property svn:eol-style):
Revision 209 by tony, Wed Mar 14 12:48:51 2018 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