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 262 by tony, Wed Mar 14 12:48:51 2018 UTC vs.
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC

#	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