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

Comparing ibx/trunk/fbintf/testsuite/Test16.pas (file contents):
Revision 307 by tony, Fri Jan 18 11:10:37 2019 UTC vs.
Revision 308 by tony, Sat Jul 18 10:26:30 2020 UTC

# Line 133 | Line 133 | var SPB: ISPB;
133   begin
134    if not FirebirdAPI.HasServiceAPI then Exit;
135  
136 <  ServerName := Owner.GetEmployeeDatabaseName;
137 <  I := Pos(':',ServerName);
138 <  if i > 0 then
139 <    DBName := system.copy(ServerName,i+1,length(ServerName) - 2);
140 <  system.Delete(ServerName,i,Length(ServerName)-i+1);
136 >  ServerName := Owner.Server;
137  
138    SPB := FirebirdAPI.AllocateSPB;
139    SPB.Add(isc_spb_user_name).setAsString(Owner.GetUserName);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines