Using Win32 functions in Visual FoxPro Image Gallery
Code examples:
Enumerating servers of the specified type (e.g. SQL Server) in the primary domain
How to read email messages using Simple MAPI
Retrieving top-child window for the VFP form
An alternative way of setting Form.Closable to False
Controlling master audio volume by sending WM_APPCOMMAND messages
Displaying OS Memory Status
Displaying the drive type value
How to display the Print property sheet
Creating a window using CreateWindowEx function
Finding the application, icon and friendly names associated with a file name
How to create transparent areas inside a form -- punching holes in the form
Retrieving the rectangle area where the mouse cursor is confined
Sending email messages with Simple MAPI
Using the heap of the calling process to allocate memory blocks
Writing to INI file
Accessing LSA Policy object (Local Security Authority)
Using the CreateFile
Converting Unicode data from the Clipboard to a character string using a given code page
How to extract frames from AVI files
Reading and setting explicit Application User Model ID for the current process (Win7)
Obtaining list of tables stored in an ODBC Data Source
Drawing cursors for the classes defined by the system (preregistered): BUTTON, EDIT, LISTBOX etc.
Form Magnifier
Using Beep and Sleep functions to make the old tin buzz sing (WinNT only?)
Enumerating servers of the specified type (e.g. SQL Server) in the primary domain

User rating: 0/10 (0 votes)
Rate this code sample:
  • ~
More code examples    Listed functions    Add comment     W32 Constants      Translate this page Printer friendly version of this code sample
Versions:
click to open
Before you begin:
See also:
  • Enumerating network resources
  • Mapping and disconnecting network drives in FoxPro application
  • Retrieving information about shared resources on the local computer (WinNT/XP)
  • * Specifies the type of software the computer is running
    #DEFINE SV_TYPE_WORKSTATION 1
    #DEFINE SV_TYPE_SERVER 2
    #DEFINE SV_TYPE_SQLSERVER 4
    #DEFINE SV_TYPE_DOMAIN_CTRL  8
    #DEFINE SV_TYPE_PRINTQ_SERVER 0x200
    #DEFINE SV_TYPE_SERVER_UNIX 0x800
    #DEFINE SV_TYPE_SERVER_NT 0x8000
    #DEFINE SV_TYPE_DOMAIN_MASTER 0x80000
    #DEFINE SV_TYPE_WINDOWS 0x400000
    #DEFINE SV_TYPE_ALL 0xFFFFFFFF
    
    DO declare
    
        * testing various server lists
    *    = EnumServers(SV_TYPE_PRINTQ_SERVER)
    *    = EnumServers(SV_TYPE_SERVER)
        = EnumServers(SV_TYPE_SQLSERVER)
    *    = EnumServers(SV_TYPE_SERVER_NT)
    *    = EnumServers(SV_TYPE_DOMAIN_CTRL)
    *    = EnumServers(SV_TYPE_ALL)
    
    PROCEDURE EnumServers(lnServerType)
    #DEFINE MAX_PREFERRED_LENGTH -1
    #DEFINE SINFO_101_SIZE       24
    
    *| typedef struct _SERVER_INFO_101 {
    *|   DWORD     sv101_platform_id;     4
    *|   LPWSTR    sv101_name;            4
    *|   DWORD     sv101_version_major;   4
    *|   DWORD     sv101_version_minor;   4
    *|   DWORD     sv101_type;            4
    *|   LPWSTR    sv101_comment;         4
    *| } SERVER_INFO_101, *PSERVER_INFO_101, *LPSERVER_INFO_101;
    
        LOCAL lnBuffer, lnCountRead, lnCountTotal, lnResult
        STORE 0 TO lnBuffer, lnCountRead, lnCountTotal
    
        WAIT WINDOW "Requesting data..." NOWAIT
        lnResult = NetServerEnum(0, 101, @lnBuffer, MAX_PREFERRED_LENGTH,;
            @lnCountRead, @lnCountTotal, lnServerType, 0, 0)
        WAIT CLEAR
    
        IF lnResult <> 0
        *  87 = The parameter is incorrect
        * 234 = More data is available
            ? "Error code:", lnResult
        ELSE
            LOCAL lcBuffer, lnBufLen, lnEntry, lnPlatformId, lnNamePtr,;
                lnMajorVer, lnMinorVer, lnSofttype, lnMemoPtr,;
                lcServerName, lcServerMemo
    
            * creating resulting cursor
            CREATE CURSOR csResult (platformid N(12), servername C(30),;
                majorver N(12), minorver N(12), softtype N(12), comment C(250))
    
            * copying the resulting array of SERVER_INFO_101 structures 
            * to a VFP string
            lnBufLen = lnCountRead * SINFO_101_SIZE
            lcBuffer = Repli(Chr(0), lnBufLen)
            = Heap2String(@lcBuffer, lnBuffer, lnBufLen)
    
            * scanning resulting array
            FOR lnEntry = 1 TO lnCountRead
                lcServerInfo = SUBSTR(lcBuffer,;
                    (lnEntry-1)*SINFO_101_SIZE+1, SINFO_101_SIZE)
    
                lnPlatformId = buf2dword(SUBSTR(lcServerInfo,  1,4))
                lnNamePtr    = buf2dword(SUBSTR(lcServerInfo,  5,4))
                lnMajorVer   = buf2dword(SUBSTR(lcServerInfo,  9,4))
                lnMinorVer   = buf2dword(SUBSTR(lcServerInfo, 13,4))
                lnSofttype   = buf2dword(SUBSTR(lcServerInfo, 17,4))
                lnMemoPtr    = buf2dword(SUBSTR(lcServerInfo, 21,4))
    
                lcServerName = GetStrFromMem(lnNamePtr)
                lcServerMemo = GetStrFromMem(lnMemoPtr)
                WAIT WINDOW lcServerName NOWAIT
    
                INSERT INTO csResult VALUES (lnPlatformId, lcServerName,;
                    lnMajorVer, lnMinorVer, lnSofttype, lcServerMemo)
            ENDFOR
            WAIT CLEAR
        ENDIF
    
        * releasing the memory block allocated regardless of the result
        * by OS within NetServerEnum call 
        = NetApiBufferFree(lnBuffer)
    
        IF USED("csResult")
            SELECT csResult
            GO TOP
            BROWSE NORMAL NOWAIT
        ENDIF
    RETURN
    
    FUNCTION GetStrFromMem(lnMemBlock)
    * converting memory allocated Unicode string to a VFP string
    #DEFINE StrBufferLength 250
        LOCAL lcBuffer
        lcBuffer = SPACE(StrBufferLength)
        = Heap2String(@lcBuffer, lnMemBlock, StrBufferLength)
        lcBuffer = SUBSTR(lcBuffer, 1, AT(Chr(0)+Chr(0),lcBuffer)-1)
    RETURN STRTRAN(lcBuffer, Chr(0),"")
    
    FUNCTION buf2dword(lcBuffer)
    RETURN Asc(SUBSTR(lcBuffer, 1,1)) + ;
        Asc(SUBSTR(lcBuffer, 2,1)) * 256 +;
        Asc(SUBSTR(lcBuffer, 3,1)) * 65536 +;
        Asc(SUBSTR(lcBuffer, 4,1)) * 16777216
    
    PROCEDURE declare
        DECLARE INTEGER NetServerEnum IN netapi32;
            INTEGER servername, INTEGER level, INTEGER @ bufptr,;
            INTEGER prefmaxlen, INTEGER @ entriesread, INTEGER @ totalentries,;
            INTEGER servertype, INTEGER domain, INTEGER resume_handle
    
        DECLARE INTEGER NetApiBufferFree IN netapi32 INTEGER Buffer
    
        DECLARE RtlMoveMemory IN kernel32 As Heap2String;
            STRING @ Destination, INTEGER Source, INTEGER nLength
    

    User rating: 0/10 (0 votes)
    Rate this code sample:
    • ~
    4002 bytes  
    Created: 2001-10-15 20:12:33  
    Modified: 2011-12-10 09:20:22  
    Visits in 7 days: 170  
    Listed functions:
    NetApiBufferFree
    NetServerEnum
    Printer friendly API declarations
    Word Index links for this example:
    Translate this page:
      Spanish    Portuguese    German    French    Italian  
    FreeTranslation.com offers instant, free translations of text or web pages.
    User Contributed Notes:
    There are no notes on this subject.


    Copyright 2001-2018 News2News, Inc. Before reproducing or distributing any data from this site please ask for an approval from its owner. Unless otherwise specified, this page is for your personal and non-commercial use. The information on this page is presented AS IS, meaning that you may use it at your own risk. Microsoft Visual FoxPro and Windows are trade marks of Microsoft Corp. All other trademarks are the property of their respective owners. 

    Privacy policy
    Credits: PHP (4.4.9), an HTML-embedded scripting language, MySQL (5.6.39), the Open Source standard SQL database, AceHTML Freeware Version 4, freeware HTML Editor of choice.   Hosted by Korax Online Inc.
    Last Topics Visited (54.226.41.91)
    3.2 min.Function: 'CreateEvent'
    Function group: 'Synchronization'
    18.93 hrs.Function: 'CreateCompatibleDC'
     Function: 'QueryPerformanceCounter'
     Function: 'StartDoc'
     Function: 'PageSetupDlg'
     Function: 'GetSystemTimeAsFileTime'
     Function: 'SHParseDisplayName'
     Function: 'GetProp'
     Function: 'CeGetSpecialFolderPath'
     Function: 'CreateWindow'
    Function group: 'Window'
    Google
    Advertise here!