Programming Examples; Visual Foxpro - Wavecom W51PC User Manual

Programming Examples

Visual FoxPro

18 • Programming Examples
LATIN-MORSE
SCANDINAVIAN-MORSE
SKYPER
SPANISH-MORSE
TASS-CYRILLIC
THIRD-SHIFT-CYRILLIC
THIRD-SHIFT-GREEK
UNDEF
oDecSystm = CREATEOBJECTEX(clsidsystem , computer#1)
oDecParam = CREATEOBJECTEX(clsidparam ,"")
oDecSys.connect("W51CardA")
oDecSystm.GetParam(@lcBlop)
oDecParam.SetBlob(lcBlop)
oDecParam.SetParam("Mode", mode)
oDecParam.GetBlob(lcBlop)
oDecSystm.SetParam(lcBlop)
oDecSys.ActivateW51("Computer#1")
oDecSys.ActivateW51("Computer#2")
oDecSys.ActivateW51("Computer#3")
Computer#1
GUI#1
W51Server
(DCOM/TCPIP)
W51PCCardA
&& starts GUI#1
&& starts GUI#2
&& starts GUI#3
Computer#2
Client Application
GUI#2
W51Server
(DCOM/TCPIP)
User Manual W51PC DCOM Interface V1.1
Computer#3
GUI#3
W51Server
(DCOM/TCPIP)