We help IT Professionals succeed at work.

Version numbers

abuela
abuela asked
on
185 Views
Last Modified: 2010-04-04
Has anyone found any code that puts version numbers on any file, and not just the *.exe (Delphi code if possible).
Is there any where on a text file or any file that I can store a 16 bit number.
Comment
Watch Question

Commented:
Hi abuela,

I think you are asking too much. Where will you store version information, say, for a text file? There is no room planned to keep version information in other then exe, dll, vxd etc. files. So you have no other choice than to live with that...

Ciao, Mike

Author

Commented:
Edited text of question.

Commented:
hmmm, saving projects in a structure like:

dev/projectX/version0.1
dev/projectX/version0.2
dev/projectX/version0.3
with the latest version in
dev/projectX/

works good.


What do you want to accomplish?

Floris.

Commented:
If you don't want to have the 16bit number appearing in any text editor than you cannot assign such a number to a text file. Floris' suggestion is ok, as well as using the file data stamp.

Ciao, Mike
Senior developer
Commented:
This one is on us!
(Get your first solution completely free - no credit card required)
UNLOCK SOLUTION

Commented:
There is a tool you can use to change the properties of all files in a directory, with this you can easily set all descriptions in one directory. I have it at home.

Floris.

Commented:
You could also do what we did in the old (DOS) days and put the version number in the "time" field for the file... all Version 1.0 files "created" at 1:00PM,  Version 1.5 at 1:50PM etc. (just don't make a version 1.7)

runebj

Commented:
I think there's a possibility on the NTFS-level to save save a file-specific stream on the disk. Don't aks me how it works or about a source snippet.... (see NT Internals)

Author

Commented:
Do you know how to append version info to the end of the file.
Igor UL7AAjrSenior developer

Commented:
OK, I show you sample, just a moment....


Igor UL7AAjrSenior developer

Commented:
Hi,
The code is bellow:

const VersionPrefix = $1234DC1A;  // some unical value, used as version prefix

// result is cureent version if present, or -1 if no version label
function GetFileVersion(aFileName : string) : integer;
var F : TFileStream;
    U,V : integer;
begin
  result:=-1;
  F:=TFileStream.Create(aFileName,fmOpenRead);
  F.Seek(-SizeOf(Integer)*2,2);
  F.Read(U,SizeOf(Integer));
  if U = VersionPrefix // have a version prefix?
     then F.Read(result,SizeOf(Integer));
  F.Free;
end;

// set version to file, true if success
function SetFileVersion(aFileName : string; aVersion : integer) : boolean;
var F   : TFileStream;
    U,V : integer;
begin
   result:=false;
   V:=GetFileVersion(aFileName); // have a version?
   if V = aVersion then result:=true else
   try // set version if file have no version or have different from aVersion
     F:=TFileStream.Create(aFileName,fmOpenWrite);
     if V >= 0
        then F.Seek(-SizeOf(Integer)*2,2)
        else F.Seek(0,2);
     U:=VersionPrefix;
     F.Write(U,SizeOf(Integer));
     F.Write(aVersion,SizeOf(Integer));
     F.Free;
     result:=true;
   except end;
end;

//---------------------------------
Best regrads,
Igor.

PS: it will add some extra characters in text files.

Author

Commented:
Thanks for the code.
Unlock the solution to this question.
Join our community and discover your potential

Experts Exchange is the only place where you can interact directly with leading experts in the technology field. Become a member today and access the collective knowledge of thousands of technology experts.

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.