Problem z kompatybilnością

[Cyfrowy Baron]

Zamknąłeś środowisko i projekt przed edycją pliku? Usunąłeś z katalogu projektu wszystkie pliki tymczasowe? Czasami pomaga samo usunięcie plików tymczasowych.

[Pitek]

Tak dokładnie tak zrobiłem w dodatku środowisko nie dopisuje nic w to miejsce do pliku projektu a błąd dalej wyskakuje Pomocy
W załączniku zawartość mojego pliku projektu.

[Cyfrowy Baron]

W tym pliku nie ma wpisu IDANTIFREEZE więc nic tutaj nie da się zrobić.
Usuń z katalogu projektu wszystkie pliki tymczasowe:

KOD text:   �  UKRYJ  �

KOD text:   �  POKAŻ  �

del *.~??
del *.~?
del *.obj
del *.tds
del *.#??
del *.pch
del *.ilc
del *.ild
del *.ils
del *.ilf

Potem wybierz w projekcie BUILD.

[Pitek]

Już zrobiłem to przed napisaniem poprzedniego posta dalej nic i nie wiem co dalej robić gdzie szukać tego wpisu który każe mu go otwierać ?

[Cyfrowy Baron]

Jesteś pewien, że usunąłeś z plików źródłowych i nagłówkowych wszystkie wpisy odwołujące się do tej biblioteki?

W pliku nagłówkowym będą to wpisy:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

#include "IdAntiFreeze.hpp"
#include "IdAntiFreezeBase.hpp"
#include "IdBaseComponent.hpp"

a w pliku źródłowym:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

#pragma link "IdAntiFreeze"
#pragma link "IdAntiFreezeBase"
#pragma link "IdBaseComponent"

[Pitek]

Działa, okazało się że na innej formatce tego programu znajdował się jeszcze taki sam komponent usunąłem go i potem jeszcze te wpisy i poszło, potem dodałem jeszcze raz ten sam komponent i jest ok.
Ale ciekawi mnie jeszcze sprawa z tym pobieraniem wersji programu bo jak wpisze w nawias pierwszą wartość NULL to działa ale intryguje mnie to czemu nie działa ten kod poniżej :

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

AnsiString wersja,nazwa;
nazwa = ExtractFileName(Application->ExeName);
wersja = GetFileVersionInfo(nazwa.c_str(), L"FileVersion");

[Cyfrowy Baron]

Pomieszałeś zmienne char z wchar_t.

Spróbuj tak:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

UnicodeString wersja,nazwa;
nazwa = ExtractFileName(Application->ExeName);
wersja = GetFileVersionInfo(nazwa.t_str(), L"FileVersion");

Mapowanie ustaw na wchar_t.

[Pitek]

To nie działa wywala taki błąd :

[BCC32 Error] Unit10.cpp(100): E2285 Could not find a match for 'GetFileVersionInfoW(wchar_t *,const wchar_t *)' Full parser context Unit10.cpp(97): parsing: void _fastcall TForm10::FormShow(TObject *)

A to moje się kompiluje ale bez efektu

[Cyfrowy Baron]

A ustawiłeś w opcjach projektu mapowanie na wchar_t? Czy zmodyfikowałeś funkcję GetFileVersionInfo by jako pierwszy argument pobierała wartość typu wchar_t, a nie char?

mapowanie.png

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

String GetFileVersionInfo(wchar_t *ModulePath, String KeyName)
{
 LPVOID lpStr1 = NULL, lpStr2 = NULL;
 WORD* wTmp;
 DWORD dwHandlev = NULL;
 UINT dwLength;
 wchar_t sFileName[1024] = {0};
 wchar_t sTmp[1024] = {0};
 String sInfo;
 LPBYTE *pVersionInfo;

 if(ModulePath == NULL) GetModuleFileName( NULL, sFileName, 1024);
 else wcscpy(sFileName, ModulePath);

 DWORD dwInfoSize = GetFileVersionInfoSize(sFileName, &dwHandlev);

 if(dwInfoSize)
 {
  pVersionInfo = new LPBYTE[dwInfoSize];
  if(GetFileVersionInfo(sFileName, dwHandlev, dwInfoSize, pVersionInfo))
  {
   if(VerQueryValue(pVersionInfo, L"\\VarFileInfo\\Translation", &lpStr1, &dwLength))
   {
        wTmp = (WORD*)lpStr1;
        swprintf(sTmp, ("\\StringFileInfo\\%04x%04x\\" + KeyName).w_str(), *wTmp, *(wTmp + 1));
        if(VerQueryValue(pVersionInfo, sTmp, &lpStr2, &dwLength)) sInfo = (LPCTSTR)lpStr2;
   }
  }
  delete[] pVersionInfo;
 }
 return sInfo;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 UnicodeString wersja,nazwa;
 nazwa = ExtractFileName(Application->ExeName);
 wersja = GetFileVersionInfo(nazwa.t_str(), L"FileVersion");

 Edit1->Text = wersja;
}

---

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

nazwa = ExtractFileName(Application->ExeName);
wersja = GetFileVersionInfo(nazwa.t_str(), L"FileVersion");

Poza tym, jeżeli chcesz pobrać informacje o programie z którego funkcja jest uruchamiana to wystarczy podać wartość NULL. Czytaj w pliku pomocy:

KOD text:   �  UKRYJ  �

KOD text:   �  POKAŻ  �

GetModuleFileName

Retrieves the fully-qualified path for the file that contains the specified module. The module must have been loaded by the current process.

To locate the file for a module that was loaded by another process, use the GetModuleFileNameEx function.


DWORD WINAPI GetModuleFileName(
  HMODULE hModule,
  LPTSTR lpFilename,
  DWORD nSize
);

Parameters
hModule
[in] Handle to the loaded module whose path is being requested. If this parameter is NULL, GetModuleFileName retrieves the path of the executable file of the current process.

Poza tym należy przekazać całą ścieżkę dostępu do pliku programu, a nie tylko nazwę pliku programu. W przypadku programu z którego funkcja jest uruchamiana to na ogół zadziała, ale jeżeli chcesz pobrać wersję innego programu, to należy podać całą ścieżkę dostępu do pliku tegoż programu. Przecież może być uruchomionych kilka procesów o identycznej nazwie:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

 Edit1->Text = GetFileVersionInfo(L"c:\\Program Files\\TC UP\\TOTALCMD.exe", L"FileVersion");

U mnie to wszystko działa.
Patrząc jak piszesz ten kod, jak chociażby to, że po zmianie argumentów przekazywanych funkcji nie zmieniłeś typu argumentu w samej funkcji, zaczynam się zastanawiać czy nie popełniasz jeszcze innych błędów. Tak to już niestety jest jak się przepisuje kod bez zrozumienia.

[Pitek]

Eh... Ja to wszystko rozumiem ale proszę mnie zrozumieć u mnie czyli na XE2 to już nie działa.
Oczywiście działa to z użyciem NULL tylko wyświetla albo 1.0.0.0 albo puste pole dlatego chciałbym wiedzieć jak zapisać to ze zmienną przechowującą ścieżkę z nazwą pliku i już.
Pokazany przez Pana przykład u mnie nie działa o czym z resztą mówiłem w poprzednich postach.
A wszystkie ustawienia mam poprawne to też robiłem w poprzednich postach, być może zamieszanie jest związane z tym że odświeżyłem ten temat po chyba 5 czy 6 tygodniach i tyle.

EDIT: Z moich obserwacji wynika że funkcja pobierająca wersję pliku nie działa na XE2 ponieważ podanie ręczne ścieżki do pliku wraz z nazwą i rozszerzeniem również nie działa (wyświetla się puste pole).

[Cyfrowy Baron]

Zajrzyj więc do pliku pomocy pod hasło GetModuleFileName i podaj tutaj co tam jest napisane.

Sprawdź jakimś innym programem, czy potrafi prawidłowo odczytać wersję aplikacji stworzonej w XE2. Wejdź we właściwości pliku aplikacji i sprawdź czy na zakładce Wersja prawidłowo jest wyświetlana wersja pliku. Pomoże to ustalić, czy problem dotyczy funkcji odczytującej wersje pliku, czy też ma to związek z zasobami tworzonymi w XE2.

W internecie nie natknąłem się na informacji o problemach z pobraniem informacji o wersji pliku w XE2, więc albo jest na to za wcześnie, albo ten problem występuje tylko u Ciebie. Tutaj prośba do Corvis'a jeżeli czyta ten post, by sprawdził czy u niego ten problem również występuje.

Do Ciebie mam jeszcze pytanie, czy zainstalowałeś poprawkę Update 2 do XE2. Być może ta poprawka naprawia już ten błąd w tym środowisku.

[Pitek]

System.GetModuleFileNameFrom RAD Studio VCL Reference Delphi function GetModuleFileName(Module: HMODULE; Buffer: PChar; BufLen: Integer): Integer;[edit] Properties Type Visibility Source Unit Parent function public System.pas System System Returns the fully qualified name for a module, given its handle. Call GetModuleFileName to obtain the fully qualified name of a module, given its handle. The version of GetModuleFileName defined in the System unit is available only on Linux and Macintosh. On Windows, use the Windows API with the same name instead. Module is the handle of the module whose file name is required. Buffer is a buffer that receives the file name. BufLen is the number of bytes in Buffer. GetModuleFileName returns the number of bytes written to Buffer. Warning: GetModuleFileName is not always successful. Depending on the way the application is called, the presence of the /proc file system, and other factors, there are times when GetModuleFileName may return a name that is not fully qualified or, in some cases, no file name at all. Be sure to check the results of this function before using the returned value.

To tyle co pisze u mnie w helpie i nie bardzo wiem w jakim programie mogę podejrzeć wersję pliku.... a co do Update 2 to nie mam go zainstalowanego.... bo nie mam go jak pobrać ze strony Embarcadero.

[Corvis]

Czyta czyta

Jutro sprawdzę, jestem w trakcie zmiany systemu na WINDOWS 7 64bity. Jak wgram i skonfiguruję to dam znać.

EDIT:

Miałem podobne jaja z tą funkcją po wgraniu Update 2 wszystko przeszło Ma jeszcze XE2 trochę dziur ale rozmawiałem z Pawłem Głowackim z Embarcadero i kolejne Update-y są w drodze

[Cyfrowy Baron]

nie bardzo wiem w jakim programie mogę podejrzeć wersję pliku

No nie żartuj...

Może tak jak napisałem wcześniej:

Wejdź we właściwości pliku aplikacji i sprawdź czy na zakładce Wersja prawidłowo jest wyświetlana wersja pliku.

[Pitek]

A tak to jasne ze jest wyświetlana ;/ ale co mi to daje jak i tak to nie działa?