[SOLVED]Lazarus trunk: I can't use TFileVersionInfo

[zoltanleo]

Hi friends

This code

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormCreate(Sender: TObject);
2. var
3.   info:TFileVersionInfo;
4. begin
5.   try
6.     info:= TFileVersionInfo.Create(Application);
7.     info.fileName:= Application.ExeName;
8.     info.ReadFileInfo;// <== error here
9.     Self.Caption:= Format('%s v.%s',
10.     [info.VersionStrings.Values['ProductName'],info.VersionStrings.Values['ProductVersion']]);
11.   finally
12.     FreeAndNil(info);
13.   end;
14. end;

for fpc r.37610 I have ceased to display correctly Values ['ProductVersion'], and after updating to fpc r.37671 gives such error message

Code: Pascal  [Select][+][-]

1. Project project1 raised exception class 'EReadError' with message:
2. Stream read error
3.  
4.  At address 4338C9

For lazarus 1.8 RC5 this project is started correctly.

Somebody will be able to answer me, what has happened?

[Thaddy]

I can reproduce half of it with trunk under linux the ProductVersion  can not be read. Productname is read correctly.
On arm-linux it does not crash however, but does not give the ProductVersion at all.
Please file a bug report.

[Cyrax]

This is already reported in the bugtracker : https://bugs.freepascal.org/view.php?id=32603

[Thaddy]

Yes, I just found it. After reverting r37490 it indeed works again.

[hnb]

fixed in r37685

[Thaddy]

Tnx Maciej

One remark: can it be done outside the loop?

[hnb]

hm. Only #32603 is fixed. The presented problem is different. I will look into.

[hnb]

The second problem fixed in r37687. Loop is rather needed for big endian platforms and length of string can't be determined by "toread" value and must be discovered by looking for #0.