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 118 by tony, Mon Jan 22 13:58:11 2018 UTC vs.
Revision 119 by tony, Mon Jan 22 13:58:18 2018 UTC

# Line 1 | Line 1
1   unit Test1;
2   {$IFDEF MSWINDOWS}
3   {$DEFINE WINDOWS}
4 + {$IF defined(CompilerVersion) and (CompilerVersion >= 28)}
5 + {Delphi XE7 onwards}}
6 + {$define HASREQEX}
7 + {$IFEND}
8   {$ENDIF}
9  
10   {Create and Drop a Database}
# Line 17 | Line 21 | unit Test1;
21   {$IFDEF FPC}
22   {$mode delphi}
23   {$codepage utf8}
24 + {$define HASREQEX}
25   {$ENDIF}
26  
27   interface
# Line 92 | Line 97 | begin
97    writeln(outfile,'DB ODS Minor Version = ',Attachment.GetODSMinorVersion);
98    PrintDPB(Attachment.getDPB);
99  
100 +  {$IFDEF HASREQEX}
101    {Demonstrate reconnect when database created with SQL Statement}
102 <  Attachment.Disconnect;
103 <  Attachment.Connect;
102 >  try
103 >    Attachment.Disconnect;
104 >    Attachment.Connect;
105 >  except on E:Exception do
106 >    writeln(OutFile,'Error reconnecting to Database: ',E.Message);
107 >  end;
108 >  {$ENDIF}
109  
110    writeln(OutFile,'Dropping Database');
111    if Attachment <> nil then

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines