i have several (5) instances of Serial Port Control object and want to close each connection if .EventChar=22 appears. Now it seems that all my connections closes if on any port .EventChar=22 appears even if on the other ports .EventChar=22 not appears.
Private Sub SPC_1_OnEventChar() If SPC_1.EventChar = 22 Then SPC_1.Close End If
It is easy to test when you read with one instance only one byte from buffer
Private Sub SPC_1_OnReceive(ByVal Count As Long) k = SPC_1.ReadArray(buf, 1)
and with the other instances 20 bytes
Private Sub SPC_1_OnReceive(ByVal Count As Long) k = SPC_1.ReadArray(buf, 20)
Would be nice if you can help me solve the problem. Sorry for my miserable english.
It's not a bug of Serial Port Control, it's feature of VB6. When you create "several (5) instances of Serial Port Control object" by simple copying of the object which is taken from the Toolbox - the same-name massif of objects with the indexes from 0 to 4 (in your case) is created. But in VB6 the names of event handlers are created in the following way: ObjectName_OnXXX, where XXX - is the event. In your case SPC_1_OnEventChar works out if Event char comes to any of COM ports. In order to "catch" the events separately the Serial Port Control objects must have different names. So every Serial Port Control object must be put on the Form from the toolbox directly.
In this case they will have the following names (a kind of): FTSPCControl1, FTSPCControl2, FTSPCControl3 etc. So accordingly the events will be FTSPCControl1_OnEventChar, FTSPCControl2_OnEventChar, FTSPCControl3_OnEventChar etc.
In case you still have any questions feel free to ask
All the errors you get using Serial Port Control are the system errors. Please look here: http://msdn.microsoft.com/en-us/library/ms681381%28VS.85%29.aspx
Home
Search
Members
Login
Register
Reply
Notify of replies
Print
Author
Quote
Modify
IP Logged
Posts: 257