ViewVC Help

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

root/public/ibx/trunk/fbintf/testsuite/Test11.pas

Comparing ibx/trunk/fbintf/testsuite/Test11.pas (file contents):
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 143 by tony, Fri Feb 23 12:11:21 2018 UTC

#	Line 196 | Line 196 | begin
196		QueryResultsItem := Results.Find(isc_info_svc_to_eof);
197		if QueryResultsItem <> nil then
198		bytesWritten := QueryResultsItem.CopyTo(BakFile,0);
199	<	until (bytesWritten = 0) or not WriteServiceQueryResult(Results);
199	>	until ((bytesWritten = 0) and (Results.Find(isc_info_svc_timeout) = nil))
200	>	or not WriteServiceQueryResult(Results);
201		writeln(OutFile,'Local Backup Complete');
202		finally
203		BakFile.Free;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines