Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
MScomm class definition
Message
De
31/05/2005 16:07:03
 
 
À
31/05/2005 16:02:18
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
Visual FoxPro:
VFP 9
Divers
Thread ID:
01018748
Message ID:
01018834
Vues:
33
>>>Are you generating your form and container in code?
>>No, not the form.
>>I am running it like this:
>>o = NEWOBJECT('form1', 'classname.vcx')
>
>And the container with the OCX?
It's not a container.
It's defined like this:
DEFINE CLASS ComReader AS OLEControl
OLECLASS = 'MSCOMMLib.MSComm.1'
poComReader = NULL
pclastreading = ''
FUNCTION Init
*This.poComReader = CREATEOBJECT('MSCOMMLib.MSComm')
WITH This
.Rthreshold = 1
.CommPort = 8
.Settings = "9600,N,8,1"
.InputLen = 20
.PortOpen = .T.
ENDWITH
ENDFUNC
Procedure OnComm
lcInput = CHRTRAN(This.Input, CHR(13), '')
lcInput = CHRTRAN(lcInput, CHR(10), '')
lcInput = CHRTRAN(lcInput, '*', '')
*!* Check if it's the same scan then ignore
IF This.pcLastReading == lcInput
RETURN ''
ENDIF
This.pcLastReading = lcInput
RETURN lcInput
ENDPROC
FUNCTION Destroy
This.PortOpen = .F.
ENDFUNC
ENDDEFINE
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform