Using Win32 functions in Visual FoxPro Image Gallery
Code examples:
How to browse and connect to printers on a network (WinNT)
How to create non-blocking Winsock server
How to display picture stored in enhanced-format metafile (*.emf)
How to download a file from HTTP server using URL Monikers functions
How to make application automatically close all documents it opened
How to ping a remote site using IP Helper API calls
Printing text with the Escape function
Running a regular FoxPro form while main VFP window is minimized
Simple printer queue monitor: deletes, pauses, resumes print jobs for local printer
Storing registration key in the resources of an executable file
System and Local Time values
Testing Clipboard functions: emptying the clipboard
Testing serial ports
Transparent Menu Class (requires VFP9)
Using Change Notification Objects to monitor changes to the printer or print server
Winsock: how to retrieve a service information corresponding to a service name
Adding an ODBC data source with the SQLConfigDataSource; use automatic or interactive mode
Converting twips to pixels and vice versa
GDI+: saving image of FoxPro form to graphics file (BMP, GIF, JPG, PNG, TIF)
GDI+: Storing content of the Clipboard to a bitmap file
Get the power status of your laptop computer
How to delete all print jobs for a printer
How to enumerate sessions and processes on a specified terminal server
Obtaining addresses for the adapters on the local computer (Win XP/2003/Vista)
PocketPC: custom RAPI class for executing routines on remote Windows CE device

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:
The class calls CeCreateProcess RAPI function to create new process on PocketPC device. The new process executes the specified executable file.


Use the following code to test
TRapiExec class:

LOCAL rapi As TRapiExec
rapi = CREATEOBJECT("TRapiExec")
IF NOT rapi.Connected
        = MESSAGEBOX("Could not detect connection " +;
                "to Windows CE device. ", 48, "Not connected")
        RETURN
ENDIF
IF NOT rapi.RunApp("\Windows\Notes.exe",;
                "\My Documents\Personal\test.txt")
        = MESSAGEBOX("Error code: " + TRANSFORM(rapi.errorcode) +;
                " (" + TRANSFORM(rapi.errorcode, "@0") +;
                ") ", 48, "Error")
ENDIF

***************************************************
* Custom RAPI class for executing routines
* on remote Windows CE device
***************************************************
DEFINE CLASS TRapiExec As Session
#DEFINE WAIT_OBJECT_0  0
#DEFINE RAPIINIT_SIZE  12
#DEFINE PROCINFO_SIZE  16
    errorcode=0
    connected=.F.

PROCEDURE Init
    THIS.declare
    THIS.InitRapi()

PROTECTED PROCEDURE InitRapi
    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

PROTECTED PROCEDURE UninitRapi
    = CeRapiUninit()
    THIS.connected = .F.

PROCEDURE Destroy
    THIS.UninitRapi

FUNCTION RunApp(cApp, cCmdLine) As Boolean
    LOCAL cBuffer, hProcess, hThread
    cBuffer = REPLICATE(CHR(0), PROCINFO_SIZE)
    IF VARTYPE(cCmdLine) <> "C"
        cCmdLine=""
    ENDIF
    IF CeCreateProcess(ToUnicode(m.cApp),;
        ToUnicode(m.cCmdline), 0,0,0,0,0,0,0, @cBuffer) = 0
        THIS.errorcode=CeGetLastError()
        RETURN .F.
    ENDIF
    hProcess = buf2dword(SUBSTR(cBuffer, 1,4))
    hThread = buf2dword(SUBSTR(cBuffer, 5,4))
    = CeCloseHandle(m.hThread)
    = CeCloseHandle(m.hProcess)
RETURN .T.

PROTECTED PROCEDURE declare
    DECLARE INTEGER CeRapiUninit IN rapi
    DECLARE INTEGER CeRapiGetError IN rapi
    DECLARE INTEGER CeGetLastError IN rapi
    DECLARE INTEGER CeRapiInitEx IN rapi STRING @pRapiInit
    DECLARE INTEGER CeCloseHandle IN rapi INTEGER hObject

    DECLARE INTEGER WaitForSingleObject IN kernel32;
        INTEGER hHandle, INTEGER dwMilliseconds

    DECLARE INTEGER CeCreateProcess IN rapi;
        STRING lpAppName, STRING lpCmdLine, INTEGER lpProcAttr,;
        INTEGER lpThreadAttr, INTEGER bInheritHandles,;
        INTEGER dwCreationFlags, INTEGER lpEnvironment,;
        INTEGER lpCurrDir, INTEGER lpStartupInfo, STRING @lpProcInfo

    DECLARE INTEGER CeRapiInvoke IN rapi;
        STRING pDllPath, STRING pFunctionName, INTEGER cbInput,;
        STRING @pInput, INTEGER @pcbOutput, STRING @ppOutput,;
        INTEGER @ppIRAPIStream, INTEGER dwReserved
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 ToUnicode(cStr)
RETURN STRCONV(cStr+CHR(0), 5)

FUNCTION FromUnicode(cStr)
RETURN STRTRAN(STRCONV(cStr, 6), CHR(0), "")



User rating: 0/10 (0 votes)
Rate this code sample:
  • ~
2570 bytes  
Created: 2004-08-13 09:26:22  
Modified: 2011-12-10 09:20:22  
Visits in 7 days: 43  
Listed functions:
CeCloseHandle
CeCreateProcess
CeGetLastError
CeRapiGetError
CeRapiInitEx
CeRapiInvoke
CeRapiUninit
WaitForSingleObject
Printer friendly API declarations
My comment:
RunApp method of the class accepts two parameters: AppName and CommandLine.

Try the code calling various executables located inside \Windows directory on your PocketPC: Notes.exe, pxl.exe, sndplay.exe, tasks.exe, iexplore.exe, pword.exe etc.

* * *
At this point I am not aware how to terminate a remote process. There might be a way, I think, by using the CeRapiInvoke.

* * *
CeRapiInvoke function, I am still struggling with, can be used to remotely execute routines in DLLs stored on Window CE device. This function accepts DLL and function names as parameters, as well as buffer with input parameters for the remote call and buffer for output parameters.

So far I was successful only in calling functions, which do not require input parameters, like Random and GetProcessHeap (both located in Coredll.dll) and similar to them. Hopefully I will be able to add this functionality to the class some time later.

* * *
This is how to create new email message on your Pocket PC:
cApp="\Windows\tmail.exe"
cCmd=[-TO "info@yourcompany.com" -SUBJECT "Test message" ] +;
        [-BODY "Wake up!"]
rapi.RunApp(cApp, cCmd)

Note that the message will be stored in Drafts folder, not sent. Use other command line options: -CC, -BCC, -ATTACHMENT.
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:
dallgood@iservtexas.com | 2006-08-11 15:10:16
Would there be a way to have RunApp wait until the launched application was finished and closed. I played with trying to use WaitForSingleObject, but could not make it work. Thanks!

Copyright 2001-2016 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.30), the Open Source standard SQL database, AceHTML Freeware Version 4, freeware HTML Editor of choice.   Hosted by Korax Online Inc.
Last Topics Visited (54.159.113.43)
31 sec.Function: 'SetFilePointerEx'
Function group: 'File Management'
3.37 min.Function: 'ReleaseDC'
3.81 hrs.Function: 'CeCreateFile'
 Function: 'JetCloseDatabase'
3.85 hrs.Example: 'Downloading files from the FTP server using InternetReadFile'
2 day(s)Example: 'Form Magnifier'
4 day(s)Function: 'Escape'
Function group: 'Printing and Print Spooler'
 Function: 'GetMonitorContrast'
 Example: 'How to enumerate terminal servers within the specified Windows domain'
 Function: 'CreateWindowEx'
Google
Advertise here!