[Решено]Ошибка компиляции. Прошу помощи.

[ANTIKLAN]

Всем привет!
Обновился на Lazarus 1.6 и перестала работать в процедуре эта строка: AboutVersionLabel.Caption := 'Версия: ' + FileVersionInfo.getVersionSetting('FileVersion');
Ошибка выдаваемая при компиляции: Error: identifier idents no member "getVersionSetting"

Вот сама отказавшая процедура:

Код: Выделить всё

procedure TAboutForm.FormCreate(Sender: TObject);
var
  FileVersionInfo: TFileVersionInfo;
begin
  FileVersionInfo := TFileVersionInfo.Create(nil);
  FileVersionInfo.FileName := Application.ExeName;
  AboutVersionLabel.Caption := 'Версия: ' + FileVersionInfo.getVersionSetting('FileVersion');
  FileVersionInfo.Free;
end;


Скажите правильно ли я понимаю что это из-за изменений в самом модуле fileinfo? И если да, то научите пожалуйста как устранять подобные проблемы. Прошу доходчивых объяснений чтобы пришло понимание.

[Лекс Айрин]

в случае глюков всегда стоит посмотреть реализацию (когда понятно что требует процедура/функция) и примеры использования. Ну и поиск по форуму не помешает.

на форуме уже есть, но выкладываю чтобы долго не искать рабочий пример:

Код: Выделить всё

  function get_version_info: string;
uses
  Forms, ExtCtrls, Classes, FileInfo; 
.....
implementation

{$R *.lfm}
uses main, SysUtils;
function get_version_info: string;
// initialize a bunch of stuff for this app when the form is first opened
// [0] = Major version, [1] = Minor ver, [3] = Revision, [4] = Build Number
// The above values can be found in the menu: Project > Project Options > Version Info
// Add the following to your uses statement: vinfo, versiontypes
var
   Info: TVersionInfo;
begin
  Info := TVersionInfo.Create;
  Info.Load(HINSTANCE);
  // grab just the Build Number
  result:= IntToStr(Info.FixedInfo.FileVersion[0])+'.'+IntToStr(Info.FixedInfo.FileVersion[1])+'.'+IntToStr(Info.FixedInfo.FileVersion[2])+'.'+IntToStr(Info.FixedInfo.FileVersion[3]);
  Info.Free;
end;                                 

[ANTIKLAN]

Я посмотрел исходник и посмотрел список изменений для Lazarus 1.6 там говорится что теперь надо делать через ReadFileInfo. Вот выдержка из текста:

TVersionInfo (fileinfo unit) re-implemented in a platform independent way
Old behaviour: GetVersionSetting method would read file information.
New behaviour: The ReadFileInfo call will read the information. The global GetProgramVersion call will extract the program major/minor/revision/build version in 1 single call.
Reason: The unit now uses FPC resources on all platforms, and can now be used to read external resources.
Remedy: Use the ReadFileInfo call to get the version information. Add relevant units for desired resource support to your uses clause; e.g. if you need to read Windows .exe file info, add winpeimagereader

Но как делать я не понимаю. Поясните кто-нибудь.

[Лекс Айрин]

ANTIKLAN, я привел в прошлом посте полностью работоспособный пример, выдранный из работающей проги. Единственное замечание по нему это модуль main -- его включение придется убрать. Не доглядел.
Если не собираешься играться с положением элементов, то просто вставляй к себе. Если собираешься, то обрати внимание на строку

Код: Выделить всё

result:= IntToStr(Info.FixedInfo.FileVersion[0])+'.'+IntToStr(Info.FixedInfo.FileVersion[1])+'.'+IntToStr(Info.FixedInfo.FileVersion[2])+'.'+IntToStr(Info.FixedInfo.FileVersion[3]);
 

[ANTIKLAN]

ANTIKLAN, я привел в прошлом посте полностью работоспособный пример, выдранный из работающей проги. Единственное замечание по нему это модуль main -- его включение придется убрать. Не доглядел.
Если не собираешься играться с положением элементов, то просто вставляй к себе. Если собираешься, то обрати внимание на строку

Код: Выделить всё

result:= IntToStr(Info.FixedInfo.FileVersion[0])+'.'+IntToStr(Info.FixedInfo.FileVersion[1])+'.'+IntToStr(Info.FixedInfo.FileVersion[2])+'.'+IntToStr(Info.FixedInfo.FileVersion[3]);
 

Да мне вообще то хотелось разобраться со своим примером. Мне знания нужны, а не готовые решения, которые я буду тупо без понимания вставлять. Хотя и за это тоже спасибо. Может все таки разберем изменение, которое было сделано в Lazaarus 1.6?

[Лекс Айрин]

ANTIKLAN, у тебя есть как работало и как стало.... сравнивай.

У меня на всех компах стоят транковые версии, правда немножко устаревшие... так что как оно было в версии до 1.7 (1.6) я не смогу посмотреть при всем желании. А пример... просто обсуждали и я встроил в свою прогу, так как вручную писать версию задалбывает.

А насчет понимания... просто все явно переделали.

[ANTIKLAN]

В общем разобрался я =) По описанию в Wiki FreePascal. Вот ссылка: http://wiki.freepascal.org/Show_Application_Title,_Version,_and_Company
Теперь мой код должен быть таким:

Код: Выделить всё

procedure TAboutForm.FormCreate(Sender: TObject);
var
  FileVersionInfo: TFileVersionInfo;
begin
  FileVersionInfo := TFileVersionInfo.Create(nil);
  FileVersionInfo.FileName := Application.ExeName;
  FileVersionInfo.ReadFileInfo;
  AboutVersionLabel.Caption := 'Версия: ' + FileVersionInfo.VersionStrings.Values['FileVersion'];
  FileVersionInfo.Free;
end;

Всем спасибо кто откликнулся =)

[jsa]

Вот это
FileVersionInfo.FileName := Application.ExeName;
не обязательно.
по умолчанию, будет исполняемая программа.

С самой программой нет проблемы.
А вот узнать версию других exe-шников не возможно.

Если задать например
FileVersionInfo.FileName := 'C:\Windows\notepad.exe'
то будет ошибка - cannot find resource reader for extension '.exe'

И ни где не получается найти решение проблемы. Гуглил. Предлагают какие-то странные не работающие алгоритмы.

[alexs]

Подключи модуль winpeimagereader

Добавлено спустя 49 секунд:
Для образца - посмотри код RxVersInfo
Там это уже все сделано.

[jsa]

Там это уже все сделано.

Спасибо, воспользовался RxVersionInfo