Announcement

Collapse
No announcement yet.

Windows API Headers III v. 1.07

Collapse
This is a sticky topic.
X
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • #61
    Gimme a sec, off to email it (emailing it as a RAR as it is 1mb smaller)

    Comment


    • #62
      sent to the address I have for you in my contacts

      Comment


      • #63
        if you got it, never mind, just delete the email.

        Comment


        • #64
          There's definitely something wrong with the download link. It seems to fail in most browsers initially, but if you do a "retry" it then works.

          e.g. In Firefox:

          Click image for larger version

Name:	Resume.jpg
Views:	709
Size:	11.3 KB
ID:	794384

          Comment


          • #65
            If there are problems for downloading, you can also download them from here:
            http://www.jose.it-berater.org/smffo...p?topic=5061.0
            Forum: http://www.jose.it-berater.org/smfforum/index.php

            Comment


            • #66
              I also got a "Failed Network error.". Then on the right side in "Brave" (Browser - similar to Chrome) there is a "Resume" Option used this and got the file.

              Comment


              • #67
                Have a problem with tried difference browser

                Comment


                • #68
                  Bumped into something else that had me scratching my head...
                  Code:
                  ' ========================================================================================
                  ' Converts a time stored in a QUAD into a string.
                  ' ========================================================================================
                  FUNCTION AfxQuadTimeToStr (BYVAL qTime AS QUAD) AS WSTRING
                     IF qTime = 0 THEN EXIT FUNCTION
                     LOCAL ST AS SYSTEMTIME, FT AS FILETIME, bstrDateSep AS WSTRING
                     bstrDateSep = AfxGetLocaleDateSeparator
                     FT.qDateTime = qTime
                     FileTimeToSystemTime(FT, ST)
                     FUNCTION = FORMAT$(ST.wDay,"00") & bstrDateSep & _
                                FORMAT$(ST.wMonth,"00") & bstrDateSep & _
                                FORMAT$(ST.wYear,"00")
                  END FUNCTION
                  probably should be...
                  Code:
                  ' ========================================================================================
                  ' Converts a time stored in a QUAD into a string.
                  ' ========================================================================================
                  FUNCTION AfxQuadTimeToStr (BYVAL qTime AS QUAD) AS WSTRING
                     IF qTime = 0 THEN EXIT FUNCTION
                     LOCAL ST AS SYSTEMTIME, FT AS FILETIME, bstrTimeSep AS WSTRING
                     bstrTimeSep = AfxGetLocaleTimeSeparator
                     FT.qDateTime = qTime
                     FileTimeToSystemTime(FT, ST)
                     FUNCTION = FORMAT$(ST.wHour,"00") & bstrTimeSep & _
                                FORMAT$(ST.wMinute,"00") & bstrTimeSep & _
                                FORMAT$(ST.wSecond,"00")
                  END FUNCTION
                  This is in AfxTime.Inc

                  Comment


                  • #69
                    Originally posted by James C Morgan View Post
                    Have a problem with tried difference browser
                    Not new.
                    Try right clicking on the object in the download bar and selecting "retry" or "resume".
                    I just tried it, and that got it working.
                    The world is strange and wonderful.*
                    I reserve the right to be horrifically wrong.
                    Please maintain a safe following distance.
                    *wonderful sold separately.

                    Comment


                    • #70
                      my copy of your WINAPI_III_107 has lot more than stand API in PBWIN 1003
                      GetProfilesDirectoryA
                      UserEnv.inc on my computer this is in syswow64 is that correct
                      not system32
                      on my win 10 pro 64 system32 is where it all ways looks
                      i add a path to syswow64 and it worked. is that correct?
                      Thanks James C Morgan

                      Comment


                      • #71
                        Bonjour José

                        While translating C++ code to PB I found a problem with the strsafe.inc, because there is no "strsafe.dll" (they use a static lib).
                        Patrice Terrier
                        www.zapsolution.com
                        www.objreader.com
                        Addons: GDImage.DLL 32/64-bit (Graphic library), WinLIFT.DLL 32/64-bit (Skin Engine).

                        Comment


                        • #72
                          I just tested the download link on Jose's site and it worked OK first time. I am using a Google clone, Slimjet 64 bit.
                          hutch at movsd dot com
                          The MASM Forum - SLL Modules and PB Libraries

                          http://www.masm32.com/board/index.php?board=69.0

                          Comment


                          • #73
                            I am speaking of IMPORT "strsafe.dll", there is no such DLL, it is a CRT component.
                            Patrice Terrier
                            www.zapsolution.com
                            www.objreader.com
                            Addons: GDImage.DLL 32/64-bit (Graphic library), WinLIFT.DLL 32/64-bit (Skin Engine).

                            Comment


                            • #74
                              If there is not a dll, then the only way would be to implement them using PB code.
                              Forum: http://www.jose.it-berater.org/smfforum/index.php

                              Comment


                              • #75
                                If there is not a dll, then the only way would be to implement them using PB code
                                Yes, but I wanted to let you know that strsafe is not a regular API (stricto sensus)
                                Patrice Terrier
                                www.zapsolution.com
                                www.objreader.com
                                Addons: GDImage.DLL 32/64-bit (Graphic library), WinLIFT.DLL 32/64-bit (Skin Engine).

                                Comment


                                • #76
                                  FYI the download link to Jose's API was broken for some time, but Adam Drake resolved the problem several months ago. It works now with all browsers as far as i can tell. Brief discussion here on the fixing of the broken link.

                                  I have tried several times to download the WINAPI_III_107.zip file, and it fails each time. It starts over about 5 times, then give "Failed - File incomplete". A small file with the extension ".crdownload" appears where i tired to download the file. Suggestions?

                                  Comment


                                  • #77
                                    in AfxFile.inc
                                    the "C:" is hard coded, should use bstrDrive
                                    '
                                    Code:
                                    ' ========================================================================================
                                    ' Returns the type of file system in use for the specified drive.
                                    ' Available return types include FAT, NTFS, and CDFS.
                                    ' ========================================================================================
                                    FUNCTION AfxGetDriveFileSystem (BYVAL bstrDrive AS WSTRING) AS WSTRING
                                    
                                       LOCAL fso AS IFileSystem
                                       LOCAL pDrive AS IDrive
                                    
                                       ' // Create an instance of the FileSystemObject
                                       fso = NEWCOM "Scripting.FileSystemObject"
                                       IF ISNOTHING(fso) THEN EXIT FUNCTION
                                       ' // Get a reference to the IDrive interface
                                       pDrive = fso.GetDrive("C:")
                                       ' // Return the file system type
                                       FUNCTION = pDrive.FileSystem
                                    
                                    END FUNCTION
                                    ' ========================================================================================
                                    '
                                    Should probably be.

                                    '
                                    Code:
                                    ' ========================================================================================
                                    ' Returns the type of file system in use for the specified drive.
                                    ' Available return types include FAT, NTFS, and CDFS.
                                    ' ========================================================================================
                                    FUNCTION AfxGetDriveFileSystem (BYVAL bstrDrive AS WSTRING) AS WSTRING
                                    
                                       LOCAL fso AS IFileSystem
                                       LOCAL pDrive AS IDrive
                                    
                                       ' // Create an instance of the FileSystemObject
                                       fso = NEWCOM "Scripting.FileSystemObject"
                                       IF ISNOTHING(fso) THEN EXIT FUNCTION
                                       ' // Get a reference to the IDrive interface
                                       pDrive = fso.GetDrive(bstrDrive)
                                       ' // Return the file system type
                                       FUNCTION = pDrive.FileSystem
                                    
                                    END FUNCTION
                                    ' ========================================================================================
                                    '

                                    Comment


                                    • #78
                                      Yes. I changed it on February 26, 2017, according to the date of the file on my computer, but forget to report it here. Thanks for spotting it.
                                      Forum: http://www.jose.it-berater.org/smfforum/index.php

                                      Comment

                                      Working...
                                      X