OpenEuphoria

Re: wxEuphoria: wxWidgets_Version() Function?

• Posted by ghaberek (admin) Apr 16, 2015
• 1217 views

All of the DLL files have the same version assigned: 2.8.12, which is the latest in the 2.8 release. Here is an expanded example to show all the versions.

include std/convert.e 
 
sequence wxlibs = { 
    "wxbase28u_gcc_eu.dll", 
    "wxbase28u_net_gcc_eu.dll", 
    "wxbase28u_xml_gcc_eu.dll", 
    "wxmsw28u_adv_gcc_eu.dll", 
    "wxmsw28u_aui_gcc_eu.dll", 
    "wxmsw28u_core_gcc_eu.dll", 
    "wxmsw28u_html_gcc_eu.dll", 
    "wxmsw28u_media_gcc_eu.dll", 
    "wxmsw28u_qa_gcc_eu.dll", 
    "wxmsw28u_richtext_gcc_eu.dll", 
    "wxmsw28u_xrc_gcc_eu.dll" 
} 
 
for i = 1 to length( wxlibs ) do 
     
    atom info = GetFileVersionInfo( wxlibs[i] ) 
    if info != NULL then 
     
        atom lo_dword = VerQueryValue( info, dwFileVersionMS ) 
        atom hi_dword = VerQueryValue( info, dwFileVersionLS ) 
 
        sequence bytes = int_to_bytes(lo_dword) & int_to_bytes(hi_dword) 
 
        atom major = bytes_to_int( bytes[3..4] ) --  2 
        atom minor = bytes_to_int( bytes[1..2] ) --  8 
        atom patch = bytes_to_int( bytes[7..8] ) -- 12 
 
        printf( 1, "%s = %d.%d.%d\n", {wxlibs[i],major,minor,patch} ) 
     
    end if 
     
end for 

-Greg