Vulcan.NET Code Examples

REFERENCES "OpenNETCF.Desktop.Communication"

USING       OpenNETCF.Desktop.Communication

FUNCTION Start() AS VOID
    //	 This is an example of a desktop application controlling a PDA

    LOCAL oRAPI AS RAPI
    LOCAL i AS LONG

    oRAPI := RAPI{}
    oRAPI:Connect(TRUE) // true=wait, false=no wait

    IF oRAPI:Connected
        ? "Connected"

        //	 Copy file from desktop to PDA
        oRAPI:CopyFileToDevice("c:\myapp\mydata.dbf","\myapp\mydata.dbf",TRUE)

        // This app is running on the desktop but we can make 
        // the PDA execute an app as well
        oRAPI:CreateProcess("\myapp\myapp.exe","\myapp\mydata.dbf")

        oRAPI:Disconnect()

    ELSE
        ? "Not connected"
    ENDIF

    RETURN