Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Has anybody used VFP to transfer data from Palm Vx?
Message
 
 
To
27/06/2001 01:07:37
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00522101
Message ID:
00524906
Views:
17
>I have downloaded Sat Forms trail version. The examples work fine.
>But there is no example in which the data from palm comes to desktop.
>The actievX doc. has only VB examples is there any other doc or example
>VFP

With permission from Whil Hentzen from his DevCon demo last year:
*** ActiveX Control Event ***
LPARAMETERS statuscode, param
do case
case StatusCode = 1
 * start
 debugo "code 1 - start"

 do case
 case thisform.opgDirection.value = "Copy PC to HH"
   debugo "code 1 - copying PC down to HH: SFDEMO1.DBF"
   This.CopyTableToPalmPilot(fullpath("sfdemo1.dbf"))
   debugo "code 1 - copying PC down to HH: SFDEMO2.DBF"
   This.CopyTableToPalmPilot(fullpath("sfdemo2.dbf"))

 case thisform.opgDirection.value = "Copy HH to PC"
  debugo "code 1 - copying HH up to PC: SFDemo1.DBF"
  this.GetTableFromPalmPilot(fullpath("sfdemo1.dbf"))
  debugo "code 1 - copying HH up to PC: SFDemo2.DBF"
  this.GetTableFromPalmPilot(fullpath("sfdemo2.dbf"))
 othe
  messagebox("What is the value of opgDirection? " + tran(thisform.opgDirection.value))
 endcase

case StatusCode = 3
 * running
 debugo "code 3 - running. CmdType is: " + tran(this.CmdType)
 do case
 case thisform.nCounter = 1
  debugo "code 3 - running. Counter = 1. Do function for SFDemo1"
 case thisform.nCounter = 2
  debugo "code 3 - running. Counter = 2. Do a different function for SFDemo2"
 othe
 endcase
 thisform.nCounter = thisform.nCounter + 1

case StatusCode = 2
 * end
 debugo "code 2 - end"

othe
 debugo "code ? - otherwise: " + tran(StatusCode)
endcase
Mark McCasland
Midlothian, TX USA
Previous
Reply
Map
View

Click here to load this message in the networking platform