Solved

Version numbers

Posted on 2000-03-09
12
144 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.
0
Comment
Question by:abuela
  • 3
  • 3
  • 2
  • +3
12 Comments
 
LVL 10

Expert Comment

by:Lischke
ID: 2600039
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
0
 

Author Comment

by:abuela
ID: 2600144
Edited text of question.
0
 
LVL 2

Expert Comment

by:florisb
ID: 2600181
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.

0
ScreenConnect 6.0 Free Trial

Discover new time-saving features in one game-changing release, ScreenConnect 6.0, based on partner feedback. New features include a redesigned UI, app configurations and chat acknowledgement to improve customer engagement!

 
LVL 10

Expert Comment

by:Lischke
ID: 2600215
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
0
 
LVL 9

Accepted Solution

by:
ITugay earned 200 total points
ID: 2600216
At first look it impossible, but you may try to store it just after the end of the  file.  You must be careful, recreating file you mark by this way will clear you version label.

Cheers,
Igor.
0
 
LVL 2

Expert Comment

by:florisb
ID: 2600294
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.
0
 
LVL 1

Expert Comment

by:runebj
ID: 2600354
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
0
 

Expert Comment

by:brunohe
ID: 2600465
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)
0
 

Author Comment

by:abuela
ID: 2612056
Do you know how to append version info to the end of the file.
0
 
LVL 9

Expert Comment

by:ITugay
ID: 2612079
OK, I show you sample, just a moment....


0
 
LVL 9

Expert Comment

by:ITugay
ID: 2612176
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.
0
 

Author Comment

by:abuela
ID: 2612212
Thanks for the code.
0

Featured Post

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
In a recent question (https://www.experts-exchange.com/questions/28997919/Pagination-in-Adobe-Acrobat.html) here at Experts Exchange, a member asked how to add page numbers to a PDF file using Adobe Acrobat XI Pro. This short video Micro Tutorial sh…

803 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question