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

Comparing ibx/trunk/fbintf/testsuite/Test1.pas (file contents):
Revision 307 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 308 by tony, Sat Jul 18 10:26:30 2020 UTC

# Line 56 | Line 56 | begin
56        while ResultSet.FetchNext do
57        begin
58          for i := 0 to ResultSet.getCount - 1 do
59 <          writeln(OutFile,ResultSet[i].Name,' = ',ResultSet[i].AsString);
59 >          writeln(OutFile,ResultSet[i].Name,' = ',Trim(ResultSet[i].AsString));
60        end;
61      finally
62        ResultSet.Close;
# Line 98 | Line 98 | begin
98  
99    writeln(OutFile,'Creating a Database using an SQL Statement');
100    createSQL := Format('create database ''%s'' USER ''%s'' PASSWORD ''%s'' DEFAULT CHARACTER SET %s',
101 <                      [Owner.GetNewDatabaseName, Owner.GetUserName, Owner.GetPassword, CharSet]);
101 >                      [ExtractDBName(Owner.GetNewDatabaseName), Owner.GetUserName, Owner.GetPassword, CharSet]);
102    Attachment := FirebirdAPI.CreateDatabase(createSQL,SQLDialect);
103    WriteDBInfo(Attachment.GetDBInformation([isc_info_db_id,isc_info_db_SQL_Dialect]));
104    WriteAttachmentInfo(Attachment);
# Line 125 | Line 125 | begin
125    DPB.Add(isc_dpb_lc_ctype).setAsString(CharSet);
126    DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect);
127  
128 <  Attachment := FirebirdAPI.CreateDatabase(Owner.GetNewDatabaseName,DPB);
128 >  Attachment := FirebirdAPI.CreateDatabase(ExtractDBName(Owner.GetNewDatabaseName),DPB);
129  
130    WriteAttachmentInfo(Attachment);
131  
# Line 137 | Line 137 | begin
137  
138    PrintDPB(DPB);
139    writeln(OutFile,'Creating a Database with a DPD');
140 <  Attachment := FirebirdAPI.CreateDatabase(Owner.GetNewDatabaseName,DPB);
140 >  Attachment := FirebirdAPI.CreateDatabase(ExtractDBName(Owner.GetNewDatabaseName),DPB);
141    if Attachment = nil then
142    begin
143      writeln(OutFile,'Create Database Failed');
# Line 158 | Line 158 | begin
158      FBLibrary := LoadFBLibrary(libpath);
159  
160      writeln(OutFile,'Creating a Database with a DPD using Firebird Library in ',libpath);
161 <    Attachment := FBLibrary.GetFirebirdAPI.CreateDatabase(Owner.GetNewDatabaseName,DPB);
161 >    Attachment := FBLibrary.GetFirebirdAPI.CreateDatabase(ExtractDBName(Owner.GetNewDatabaseName),DPB);
162      if Attachment = nil then
163      begin
164        writeln(OutFile,'Create Database Failed');

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines