Unit GBCommon

Renamed from Common.pas 6/14/1998 Paul Rice to avoid conflicts with others' work. Common unit for Make Update and Update Copyright (c) 1998 Gregory L. Bullock (bullock@mbay.net). Freeware: May be freely distributed and modified. Use at your own risk. This program draws heavily on - the aDiff unit, Copyright (c) 1997 S.Kurinny & S.Kostinsky - the Lh5Unit unit, which had various contributers, as noted in its source code History: 23-4-98 Initial version. If you fix any bugs or make significant enhancements, I ask you to send me your modifications. For example, at present, these programs only allow you to make changes to existing files. Update will not add a new file nor will it delete an existing file. Perhaps a future version of these programs will enable Update to add new files or delete obsolete files. If you make any changes to the structure of the Update File, change the UpdateFileHeader in the Common Unit so older versions of Update won't try to read an Update File that they won't understand.

Classes

TFileUpdateInfo -

Functions

CalculateStreamCRC -
GetFullPathTo - Change the UpdateFileHeader if you make any changes to the structure of the Update File, so older versions of Update won't try to read an Update File that they won't understand.

Types

InvalidCRCIndex

Constants

UpdateFileHeader

Variables

DiffStream
NewStream
OldStream
UpdAccumulateStream
UpdateStream


Functions


function CalculateStreamCRC(Stream: TStream): LongInt;


function GetFullPathTo(FileName: TFileName; DirectoryLabel: TLabel) : TFileName;

Change the UpdateFileHeader if you make any changes to the structure of the Update File, so older versions of Update won't try to read an Update File that they won't understand.

Types


InvalidCRCIndex = (IINo,IIYes,IIMaybe);

Constants

UpdateFileHeader = 'UpdateFile 1.00'


Variables

DiffStream : TMemoryStream

NewStream : TFileStream

OldStream : TFileStream

UpdAccumulateStream : TMemoryStream

UpdateStream : TFileStream