Using Win32 functions in Visual FoxPro Image Gallery
Code examples:
GDI+: creating a gradient
PocketPC: custom RAPI class for executing routines on remote Windows CE device
Using FrameRgn for displaying system colors
Creating the Open dialog box to specify the drive, directory, and name of a file to open
How to remove a directory that is not empty
Obtaining list of tables stored in an ODBC Data Source
A class that encrypts and decrypts files using Cryptography API Functions
Form Magnifier
How to copy the image of a form to the Clipboard using Bitmap API functions
How to register custom Event Log source
Loading a string resource from an executable file
Using the LoadImage function to have a bitmap file loaded and displayed on VFP main window
Adding and deleting User Accounts
How to display advanced Task Dialog (Vista)
Using Change Notification Objects to monitor changes to the printer or print server
Displaying Windows shell folders in TreeView control with Visual FoxPro FLL
Round FoxPro form
Using NetWkstaTransportEnum to obtain MAC Address of remote server
Creating a window using CreateWindowEx function
Retrieving local computer and user names
Uploading local file to FTP server with FtpPutFile
Winsock: retrieving Web pages using sockets (HTTP, port 80)
GDI+: copying to the Clipboard (a) image of active FoxPro window/form, (b) image file
Accessing Adobe Reader 7.0 main menu from VFP application
Pocket PC: base class

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
Before you begin:
This class is used as a base class for several custom RAPI classes created to access objects stored on Pocket PC:

  • System Registry
  • Object Store Databases
  • Files and folders
  • Executing routines

    See also:
  • FoxPro Advisor article: Access a Pocket PC from Visual FoxPro
  • FoxPro Advisor article: Access a Palm OS PDA from Visual FoxPro
  • ****************************************************
    * Pocket PC: base RAPI class
    ****************************************************
    DEFINE CLASS Trapi As Custom
    #DEFINE RAPIINIT_SIZE  12
    #DEFINE WAIT_OBJECT_0  0
        majorver=0
        minorver=0
        buildno=0
        aclinestatus=0
        batteryflag=0
        batterylifepercent=0
        storesize=0
        freesize=0
        phmemtotal=0
        phmemavail=0
        cputype=0
        cpulevel=0
        cpurevision=0
        connected=.F.
    
    PROCEDURE Init
        THIS.decl
        THIS.InitRapi
    
    PROCEDURE InitRapi
        THIS.UninitRapi
    
        LOCAL cBuffer, hEvent
        cBuffer = PADR(CHR(RAPIINIT_SIZE), RAPIINIT_SIZE, CHR(0))
    
        = CeRapiInitEx(@cBuffer)
        hEvent = buf2dword(SUBSTR(cBuffer,5,4))
    
        IF WaitForSingleObject(hEvent,2000) = WAIT_OBJECT_0
            THIS.connected = .T.
        ELSE
            THIS.UninitRapi
        ENDIF
    RETURN THIS.connected
    
    PROCEDURE UninitRapi
        = CeRapiUninit()
        THIS.connected = .F.
    
    PROCEDURE Destroy
        THIS.UninitRapi
    
    PROCEDURE GetSysInfo
        THIS.GetVersion
        THIS.GetPowerStatus
        THIS.GetStoreSize
        THIS.GetGlobalMemoryStatus
        THIS.GetCPUInfo
    
    PROCEDURE GetVersion
    #DEFINE CEOSVERSIONINFO_SIZE 276
        LOCAL cBuffer, hBuffer
        cBuffer = PADR(num2dword(CEOSVERSIONINFO_SIZE),;
            CEOSVERSIONINFO_SIZE, Chr(0))
        = CeGetVersionEx(@cBuffer)
        THIS.majorver = buf2dword(SUBSTR(cBuffer, 5,4))
        THIS.minorver = buf2dword(SUBSTR(cBuffer, 9,4))
        THIS.buildno = buf2dword(SUBSTR(cBuffer, 13,4))
    
    FUNCTION GetSpecialFolderPath(nFolder)
        LOCAL nBufsize, cBuffer
        nBufsize = 250
        cBuffer = REPLICATE(CHR(0), nBufsize*2)
        nBufsize = CeGetSpecialFolderPath(nFolder, nBufsize, @cBuffer)
    RETURN STRCONV(SUBSTR(cBuffer,1,nBufsize*2),6)
    
    PROCEDURE GetPowerStatus
    #DEFINE SYSTEM_POWER_STATUS 24
        LOCAL cBuffer
        cBuffer = REPLICATE(CHR(0), SYSTEM_POWER_STATUS)
        = CeGetSystemPowerStatusEx(@cBuffer, 0)
        THIS.aclinestatus = ASC(SUBSTR(cBuffer,1,1))
        THIS.batteryflag = ASC(SUBSTR(cBuffer,2,1))
        THIS.batterylifepercent = ASC(SUBSTR(cBuffer,3,1))
    
    PROCEDURE GetStoreSize
    #DEFINE STORE_INFORMATION_SIZE 8
        LOCAL cBuffer
        cBuffer = Repli(Chr(0), STORE_INFORMATION_SIZE)
        = CeGetStoreInformation(@cBuffer)
        THIS.storesize = buf2dword(SUBSTR(cBuffer, 1,4))
        THIS.freesize = buf2dword(SUBSTR(cBuffer, 5,4))
    
    PROCEDURE GetGlobalMemoryStatus
    #DEFINE MEMORYSTATUS_SIZE 32
        LOCAL cBuffer
        cBuffer = PADR(CHR(MEMORYSTATUS_SIZE), MEMORYSTATUS_SIZE, CHR(0))
        = CeGlobalMemoryStatus(@cBuffer)
        THIS.phmemtotal = buf2dword(SUBSTR(cBuffer, 9,4))
        THIS.phmemavail = buf2dword(SUBSTR(cBuffer, 13,4))
    
    PROCEDURE GetCPUInfo
    #DEFINE SYSTEM_INFO_SIZE 36
        LOCAL cBuffer
        cBuffer = PADR(CHR(SYSTEM_INFO_SIZE), SYSTEM_INFO_SIZE, CHR(0))
        = CeGetSystemInfo(@cBuffer)
        THIS.cputype = buf2dword(SUBSTR(cBuffer, 25,4))
        THIS.cpulevel = buf2word(SUBSTR(cBuffer, 33,2))
        THIS.cpurevision = buf2word(SUBSTR(cBuffer, 35,2))
    
    PROTECTED PROCEDURE decl
        DECLARE INTEGER LocalFree IN kernel32 INTEGER hMem
        DECLARE INTEGER CeRapiUninit IN rapi
        DECLARE INTEGER CeGetLastError IN rapi
        DECLARE INTEGER CeRapiInitEx IN rapi STRING @pRapiInit
        DECLARE INTEGER CeCloseHandle IN rapi INTEGER hObject
        DECLARE INTEGER CeGetVersionEx IN rapi STRING @lpVersionInfo
        DECLARE INTEGER CeGetStoreInformation IN rapi STRING @lpsi
        DECLARE CeGlobalMemoryStatus IN rapi STRING @lpmst
        DECLARE CeGetSystemInfo IN rapi STRING @lpSystemInfo
    
        DECLARE INTEGER CeGetSystemPowerStatusEx IN rapi;
            STRING @pstatus, INTEGER fUpdate
    
        DECLARE INTEGER CeGetSpecialFolderPath IN rapi;
            INTEGER nFolder, INTEGER nBufferLength, STRING @lpBuffer
    
        DECLARE INTEGER LocalAlloc IN kernel32;
            INTEGER uFlags, INTEGER uBytes
    
        DECLARE RtlMoveMemory IN kernel32 As StrToMem;
            INTEGER Dest, STRING @Src, INTEGER nLength
    
        DECLARE RtlMoveMemory IN kernel32 As MemToStr;
            STRING @dest, INTEGER src, INTEGER nLength
    
        DECLARE INTEGER WaitForSingleObject IN kernel32;
            INTEGER hHandle, INTEGER dwMilliseconds
    ENDDEFINE
    
    *************************** static members ***************************
    FUNCTION buf2dword(lcBuffer)
    RETURN Asc(SUBSTR(lcBuffer, 1,1)) + ;
        BitLShift(Asc(SUBSTR(lcBuffer, 2,1)),  8) +;
        BitLShift(Asc(SUBSTR(lcBuffer, 3,1)), 16) +;
        BitLShift(Asc(SUBSTR(lcBuffer, 4,1)), 24)
    
    FUNCTION buf2word(lcBuffer)
    RETURN Asc(SUBSTR(lcBuffer, 1,1)) + ;
           Asc(SUBSTR(lcBuffer, 2,1)) * 256
    
    FUNCTION num2dword(lnValue)
    #DEFINE m0  256
    #DEFINE m1  65536
    #DEFINE m2  16777216
        IF lnValue < 0
            lnValue = 0x100000000 + lnValue
        ENDIF
        LOCAL b0, b1, b2, b3
        b3 = Int(lnValue/m2)
        b2 = Int((lnValue - b3*m2)/m1)
        b1 = Int((lnValue - b3*m2 - b2*m1)/m0)
        b0 = Mod(lnValue, m0)
    RETURN Chr(b0)+Chr(b1)+Chr(b2)+Chr(b3)
    
    FUNCTION num2word(lnValue)
    RETURN Chr(MOD(m.lnValue,256)) + CHR(INT(m.lnValue/256))
    
    FUNCTION ToUnicode(cStr)
    RETURN STRCONV(m.cStr+CHR(0), 5)
    
    FUNCTION FromUnicode(cStr)
    RETURN STRCONV(m.cStr, 6)
    
    
    

    User rating: 0/10 (0 votes)
    Rate this code sample:
    • ~
    4838 bytes  
    Created: 2004-06-20 14:23:24  
    Modified: 2011-12-10 09:20:22  
    Visits in 7 days: 123  
    Listed functions:
    CeCloseHandle
    CeGetLastError
    CeGetSpecialFolderPath
    CeGetStoreInformation
    CeGetSystemInfo
    CeGetSystemPowerStatusEx
    CeGetVersionEx
    CeGlobalMemoryStatus
    CeRapiInitEx
    CeRapiUninit
    LocalAlloc
    LocalFree
    WaitForSingleObject
    Printer friendly API declarations
    My comment:


    #kwd: sln_pocketpc.
    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-2017 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.37), the Open Source standard SQL database, AceHTML Freeware Version 4, freeware HTML Editor of choice.   Hosted by Korax Online Inc.
    Last Topics Visited (54.92.158.65)
    16 sec.Example: 'Windows Shell Icons displayed and exported to ICO files (Vista)'
    35 sec.Example: 'Retrieving top-child window for the VFP form'
    52 sec.Function: 'RegEnumKey'
    Function group: 'Registry'
    1.13 min.Function: 'LogonUser'
    1.4 min.Function: 'GlobalAlloc'
    Function group: 'Memory Management'
    2.02 min.
    Function group: 'Message and Message Queue'
    2.35 min.Function: 'WriteFile'
    Function group: 'File Management'
    2.67 min.Function: 'GetCurrentProcessId'
    Function group: 'Process and Thread'
    3.02 min.
    Function group: 'Common Dialog Box'
    3.37 min.
    Function group: 'Atom'
    Google
    Advertise here!