ViewVC Help

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

root/public/ibx/trunk/iblocaldb/nongui/IBXUpgradeConfFile.pas

Comparing ibx/trunk/iblocaldb/nongui/IBXUpgradeConfFile.pas (file contents):
Revision 314 by tony, Mon Feb 4 13:34:37 2019 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC

#	Line 123 | Line 123 | type
123
124		implementation
125
126	<	uses ZStream, IBBlob, ibxscript;
126	>	uses ZStream, IBBlob, ibxscript, IBMessages;
127
128		const
129		sSectionheader      = 'Version.%.3d';
#	Line 217 | Line 217 | begin
217		Blob.Database := (Sender as TIBXScript).Database;
218		Blob.Transaction := (Sender as TIBXScript).Transaction;
219		Blob.Mode := bmWrite;
220	<	if not GetSourceFile(ParamName,FileName) then Exit;
220	>	if not GetSourceFile(ParamName,FileName) then
221	>	IBError(ibxeResourceFileNotFound,[FileName]);
222
223		if CompareText(ExtractFileExt(FileName),'.gz') = 0 then  {gzip compressed file}
224		Source := TGZFileStream.Create(FileName,gzopenread)

Diff Legend

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