Skip to main content

[archive] Get the version of a DLL

  • February 27, 2004
  • 10 replies
  • 0 views
D

[Migrated content. Thread originally posted on 27 February 2004]

In my program I want to get the version number of a specific DLL (in this case AcuODBC.DLL) because I need diferent behaviors in function of that.

I've developed, entirely in AcuCOBOL, an interface to manage DSN's accessing the windows registry (user-friendly and support for more than 64 Alias)

I want to know what version of AcuODBC has the client installed programatically. This will allow me creating DSN's in the correct fashion for each version.

Is there anyway of doing this?

P.D. Sorry about my poor english.

    10 replies

    D

    [Migrated content. Thread originally posted on 27 February 2004]

    In my program I want to get the version number of a specific DLL (in this case AcuODBC.DLL) because I need diferent behaviors in function of that.

    I've developed, entirely in AcuCOBOL, an interface to manage DSN's accessing the windows registry (user-friendly and support for more than 64 Alias)

    I want to know what version of AcuODBC has the client installed programatically. This will allow me creating DSN's in the correct fashion for each version.

    Is there anyway of doing this?

    P.D. Sorry about my poor english.
    Yes, there is a way to inquire for a DLLs version, you should look up the GetFileVersionInfo function in the version.dll.

    Be careful to read instructions, in particular the sequence about GetFileVersionInfoSize. Eventuallt VerQueryValue.

    It is a bit tricky, but give it a try!
    D

    [Migrated content. Thread originally posted on 27 February 2004]

    In my program I want to get the version number of a specific DLL (in this case AcuODBC.DLL) because I need diferent behaviors in function of that.

    I've developed, entirely in AcuCOBOL, an interface to manage DSN's accessing the windows registry (user-friendly and support for more than 64 Alias)

    I want to know what version of AcuODBC has the client installed programatically. This will allow me creating DSN's in the correct fashion for each version.

    Is there anyway of doing this?

    P.D. Sorry about my poor english.
    Sorry, but I'm newbie in windows programming.

    I think I'm in the way...

    First (of course) loading of library:

    SET ENVIRONMENT "DLL-CONVENTION" TO 1.
    CALL "version.dll".

    Once loaded, obtain size of version information:

    CALL "GetFileVersionInfoSizeA" USING
    Dll_Path, Status
    RETURNING Lenght.

    Next, getting of information block:

    CALL "GetFileVersionInfoA" USING
    Dll_Path, Void, BY VALUE Lenght, Buffer.

    and now, query block:

    CALL "VerQueryValueA" USING
    Buffer, String_to_Query, PTR_STRUCT, Struct_Lenght.

    Here is my problem:

    The routine "VerQueryValue" returns a pointer to a "VS_FIXEDFILEINFO" struct. How can I access this region of memory from COBOL ?

    Really a bit tricky.
    D

    [Migrated content. Thread originally posted on 27 February 2004]

    In my program I want to get the version number of a specific DLL (in this case AcuODBC.DLL) because I need diferent behaviors in function of that.

    I've developed, entirely in AcuCOBOL, an interface to manage DSN's accessing the windows registry (user-friendly and support for more than 64 Alias)

    I want to know what version of AcuODBC has the client installed programatically. This will allow me creating DSN's in the correct fashion for each version.

    Is there anyway of doing this?

    P.D. Sorry about my poor english.
    Originally posted by kaitwo
    Sorry, but I'm newbie in windows programming.

    I think I'm in the way...



    You indeed are. A few clues:

    First, remember the BY VALUE and BY REFERENCE phrases that may be applied to CALL statements.

    When passing strings (PIC X(..)), you always pass BY REFERENCE, when passing groups (structs in C) you pass BY REFERENCE as well.

    The steps you will have to conclude is:

    Use the length returned to create a dynamic memory size. This dynamic memory is then the pointer you will pass on.

    Perhaps this could be a useful sample for the June class of the advanced Windows API and ActiveX/ COM training...
    D

    [Migrated content. Thread originally posted on 27 February 2004]

    In my program I want to get the version number of a specific DLL (in this case AcuODBC.DLL) because I need diferent behaviors in function of that.

    I've developed, entirely in AcuCOBOL, an interface to manage DSN's accessing the windows registry (user-friendly and support for more than 64 Alias)

    I want to know what version of AcuODBC has the client installed programatically. This will allow me creating DSN's in the correct fashion for each version.

    Is there anyway of doing this?

    P.D. Sorry about my poor english.
    Originally posted by kaitwo
    Sorry, but I'm newbie in windows programming.

    I think I'm in the way...



    You indeed are. A few clues:

    First, remember the BY VALUE and BY REFERENCE phrases that may be applied to CALL statements.

    When passing strings (PIC X(..)), you always pass BY REFERENCE, when passing groups (structs in C) you pass BY REFERENCE as well.

    The steps you will have to conclude is:

    Use the length returned to create a dynamic memory size. This dynamic memory is then the pointer you will pass on.

    Perhaps this could be a useful sample for the June class of the advanced Windows API and ActiveX/ COM training...
    D

    [Migrated content. Thread originally posted on 27 February 2004]

    In my program I want to get the version number of a specific DLL (in this case AcuODBC.DLL) because I need diferent behaviors in function of that.

    I've developed, entirely in AcuCOBOL, an interface to manage DSN's accessing the windows registry (user-friendly and support for more than 64 Alias)

    I want to know what version of AcuODBC has the client installed programatically. This will allow me creating DSN's in the correct fashion for each version.

    Is there anyway of doing this?

    P.D. Sorry about my poor english.
    Originally posted by kaitwo
    Sorry, but I'm newbie in windows programming.

    I think I'm in the way...



    You indeed are. A few clues:

    First, remember the BY VALUE and BY REFERENCE phrases that may be applied to CALL statements.

    When passing strings (PIC X(..)), you always pass BY REFERENCE, when passing groups (structs in C) you pass BY REFERENCE as well.

    The steps you will have to conclude is:

    Use the length returned to create a dynamic memory size. This dynamic memory is then the pointer you will pass on.

    Perhaps this could be a useful sample for the June class of the advanced Windows API and ActiveX/ COM training...
    D

    [Migrated content. Thread originally posted on 27 February 2004]

    In my program I want to get the version number of a specific DLL (in this case AcuODBC.DLL) because I need diferent behaviors in function of that.

    I've developed, entirely in AcuCOBOL, an interface to manage DSN's accessing the windows registry (user-friendly and support for more than 64 Alias)

    I want to know what version of AcuODBC has the client installed programatically. This will allow me creating DSN's in the correct fashion for each version.

    Is there anyway of doing this?

    P.D. Sorry about my poor english.
    I'm still trying... but unsuccessfully.


           API-DLL-VERSION.
          * Windows API Convention (Pascal).
               SET ENVIRONMENT "DLL-CONVENTION" TO 1.
          * Load Library.
               CALL "version.dll".
          * Get Raw Buffer Size.
               MOVE "C:\\Acucorp\\Acucbl61\\bin\\AcuODBC.DLL" TO DLL-PATH.
               INSPECT DLL-PATH REPLACING TRAILING SPACES BY X"00".
               CALL "GetFileVersionInfoSizeA" USING
                    BY REFERENCE DLL-PATH
                    BY REFERENCE VOID
                    RETURNING RAW-LENGHT.
          * Get Raw Info.
               CALL "GetFileVersionInfoA" USING
                    BY REFERENCE DLL-PATH
                    BY VALUE     VOID
                    BY VALUE     RAW-LENGHT
                    BY REFERENCE RAW-BUFFER
                    RETURNING    STATUS.
          [b]* Create version info buffer.
               CALL "M$ALLOC" USING 1024 STRUCT-POINTER.[/b]
          * Get Fixed info.
               MOVE "\\ "  TO QUERY-STRING.
               MOVE X"00" TO QUERY-STRING(2:1).
               CALL "VerQueryValueA" USING
                    BY REFERENCE RAW-BUFFER
                    BY REFERENCE QUERY-STRING
                    [b]BY REFERENCE STRUCT-POINTER[/b]
                    [B]BY REFERENCE STRUCT-LENGHT[/B]
                    RETURNING    STATUS.
          [b]* Move memory to destination item.
               CALL "M$GET" USING STRUCT-POINTER DEST-ITEM STRUCT-LENGHT.[/b]
          * Free version info buffer.
               CALL "M$FREE" USING W-PTR-STRUCT.
          * Unload library.
               CANCEL "version.dll".
          * Cobol default convention (C).
               SET ENVIRONMENT "DLL-CONVENTION" TO 0.
           X-API-DLL-VERSION.
               EXIT.


    - All three API CALLs are performed correctly. OK.
    - VerQueryValueA returns 52 for STRUCT-LENGHT. OK.
    - STRUCT-POINTER is not NULL. OK
    - DEST-ITEM doesn't changes (perhaps pointer problem ?, failure at M$GET ?, I'm confused...:confused: )

    Regards and help
    D

    [Migrated content. Thread originally posted on 27 February 2004]

    In my program I want to get the version number of a specific DLL (in this case AcuODBC.DLL) because I need diferent behaviors in function of that.

    I've developed, entirely in AcuCOBOL, an interface to manage DSN's accessing the windows registry (user-friendly and support for more than 64 Alias)

    I want to know what version of AcuODBC has the client installed programatically. This will allow me creating DSN's in the correct fashion for each version.

    Is there anyway of doing this?

    P.D. Sorry about my poor english.
    Originally posted by kaitwo
    I'm still trying... but unsuccessfully.
    Regards and help


    This really isn't the best sample to learn to deal with the Windows API, it is a bit complex.

    Here is a working example:


           IDENTIFICATION               DIVISION.
           PROGRAM-ID.                  DLLVersion.
           ENVIRONMENT                  DIVISION.
           CONFIGURATION                SECTION.
           SPECIAL-NAMES.
           WORKING-STORAGE SECTION.

           77  BufSize                  PIC S9(9) COMP-5.
           77  MEM-PTR                  PIC S9(9) COMP-5.
           77  QRY-PTR                  PIC S9(9) COMP-5.
           77  WS-STATUS                PIC S9(9) COMP-5.
           77  WS-DUMMY                 PIC X(4)  COMP-N.
           77  QRY-STR                  PIC X(64).
           77  Vis-MS-Maj               PIC ZZZ9.
           77  Vis-MS-Min               PIC 9(4).
           77  Vis-LS-Maj               PIC 9(4).
           77  Vis-LS-Min               PIC 9(4).

           01  VS-FIXFILEINFO.
               03 dwSignature           PIC X(4) COMP-N.
               03 dwStrucVersion        PIC X(4) COMP-N.
               03 dwFileVersionMS       PIC X(4) COMP-N.
               03 VersionMS-Hack redefines dwFileVersionMS.
                  05 FileMSLowVer       pic x(2) COMP-N.
                  05 FileMSHghVer       pic x(2) COMP-N.
               03 dwFileVersionLS       PIC X(4) COMP-N.
               03 VersionLS-Hack redefines dwFileVersionLS.
                  05 FileLSLowVer       pic x(2) COMP-N.
                  05 FileLSHghVer       pic x(2) COMP-N.
               03 dwProductVersionMS    PIC X(4) COMP-N.
               03 dwProductVersionLS    PIC X(4) COMP-N.
               03 dwFileFlagsMask       PIC X(4) COMP-N.
               03 dwFileFlags           PIC X(4) COMP-N.
               03 dwFileOS              PIC X(4) COMP-N.
               03 dwFileType            PIC X(4) COMP-N.
               03 dwFileSubtype         PIC X(4) COMP-N.
               03 dwFileDateMS          PIC X(4) COMP-N.
               03 dwFileDateLS          PIC X(4) COMP-N.

           PROCEDURE DIVISION.
           MAIN-LOGIC.

               INITIALIZE               VS-FIXFILEINFO
                                        QRY-PTR.
               SET     ENVIRONMENT      "DLL-CONVENTION" TO 1.
               CALL    "VERSION.DLL".

               STRING  "USER32.DLL"
                       LOW-VALUES       DELIMITED BY SIZE
                       INTO             QRY-STR.
               CALL    "GetFileVersionInfoSizeA" USING
                       BY REFERENCE     QRY-STR
                       BY REFERENCE     WS-DUMMY
                       RETURNING        BufSize.

               CALL    "M$ALLOC"        USING
                       BufSize
               MEM-PTR.

               CALL    "GetFileVersionInfoA" USING
                       BY REFERENCE     QRY-STR
                       BY VALUE         NULL
                       BY VALUE         BufSize
                       BY VALUE         MEM-PTR
                       RETURNING        WS-STATUS.

               STRING  "\\"
                       LOW-VALUES       DELIMITED BY SIZE INTO QRY-STR.
               CALL    "VerQueryValueA" USING
                       BY VALUE         MEM-PTR
                       BY REFERENCE     QRY-STR
                       BY REFERENCE     QRY-PTR
                       BY REFERENCE     WS-DUMMY
                       RETURNING        WS-STATUS.

               CALL    "C$MEMCPY"       USING
                       BY REFERENCE     VS-FIXFILEINFO
                       BY VALUE         QRY-PTR
                       BY VALUE         52.        | (13 * 4 bytes)

               MOVE    FileMSHghVer     TO Vis-MS-Maj.
               MOVE    FileMSLowVer     TO Vis-MS-Min.
               MOVE    FileLSHghVer     TO Vis-LS-Maj.
               MOVE    FileLSLowVer     TO Vis-LS-Min.
               DISPLAY "USER32.DLL File version info is:"
                       Vis-MS-Maj "." Vis-MS-Min "."
                       Vis-LS-Maj "." Vis-LS-min.
               ACCEPT  OMITTED.
               CALL    "M$FREE"         USING MEM-PTR.
               CANCEL  "VERSION.DLL".
               SET     ENVIRONMENT      "DLL-CONVENTION" TO 0.
               STOP    RUN.


    I forgot to tell, there is in fact a single function you may call as well, DLLGetVersion(), it pretty much gives you all you need without all the hassle, the single catch with this is that it will not work with Win95, WinNT 3.51, Win 3.x. But hey, who uses those these days.

    Enjoy.
    Gisle
    D

    [Migrated content. Thread originally posted on 27 February 2004]

    In my program I want to get the version number of a specific DLL (in this case AcuODBC.DLL) because I need diferent behaviors in function of that.

    I've developed, entirely in AcuCOBOL, an interface to manage DSN's accessing the windows registry (user-friendly and support for more than 64 Alias)

    I want to know what version of AcuODBC has the client installed programatically. This will allow me creating DSN's in the correct fashion for each version.

    Is there anyway of doing this?

    P.D. Sorry about my poor english.
    I've got it !

          [B]* Move memory to destination item (wrong).
               CALL "M$GET" USING STRUCT-POINTER DEST-ITEM STRUCT-LENGHT.[/B]

    has to be:

          [B]* Move memory to destination item (right).
               CALL "C$MEMCPY" USING
                    BY REFERENCE DEST-ITEM
                    BY VALUE     STRUCT-POINTER
                    BY VALUE     STRUCT-LENGHT.[/B]

    I'll try DLLGetVersion() although, nowadays, there are a few people still using such operating systems :mad:.

    Thanks a lot Gisle.
    D

    [Migrated content. Thread originally posted on 27 February 2004]

    In my program I want to get the version number of a specific DLL (in this case AcuODBC.DLL) because I need diferent behaviors in function of that.

    I've developed, entirely in AcuCOBOL, an interface to manage DSN's accessing the windows registry (user-friendly and support for more than 64 Alias)

    I want to know what version of AcuODBC has the client installed programatically. This will allow me creating DSN's in the correct fashion for each version.

    Is there anyway of doing this?

    P.D. Sorry about my poor english.
    I've got it !

          [B]* Move memory to destination item (wrong).
               CALL "M$GET" USING STRUCT-POINTER DEST-ITEM STRUCT-LENGHT.[/B]

    has to be:

          [B]* Move memory to destination item (right).
               CALL "C$MEMCPY" USING
                    BY REFERENCE DEST-ITEM
                    BY VALUE     STRUCT-POINTER
                    BY VALUE     STRUCT-LENGHT.[/B]

    I'll try DLLGetVersion() although, nowadays, there are a few people still using such operating systems :mad:.

    Thanks a lot Gisle.
    D

    [Migrated content. Thread originally posted on 27 February 2004]

    In my program I want to get the version number of a specific DLL (in this case AcuODBC.DLL) because I need diferent behaviors in function of that.

    I've developed, entirely in AcuCOBOL, an interface to manage DSN's accessing the windows registry (user-friendly and support for more than 64 Alias)

    I want to know what version of AcuODBC has the client installed programatically. This will allow me creating DSN's in the correct fashion for each version.

    Is there anyway of doing this?

    P.D. Sorry about my poor english.
    I've got it !

          [B]* Move memory to destination item (wrong).
               CALL "M$GET" USING STRUCT-POINTER DEST-ITEM STRUCT-LENGHT.[/B]

    has to be:

          [B]* Move memory to destination item (right).
               CALL "C$MEMCPY" USING
                    BY REFERENCE DEST-ITEM
                    BY VALUE     STRUCT-POINTER
                    BY VALUE     STRUCT-LENGHT.[/B]

    I'll try DLLGetVersion() although, nowadays, there are a few people still using such operating systems :mad:.

    Thanks a lot Gisle.

    Recent badge winners

    Explore all badges
    Terms & ConditionsAccessibility statement