Software components for data protection, secure storage and transfer
Private Sub ClientSocket1_DataArrival(ByVal bytesTotal As Long)
' Data arrived to socket
Dim a As String, b As String
If (Not Client.Active) Or (Receiving) Then
Receiving = True ' Setting 'Received' flag to prevent recursion (it is possible due to DoEvents call inside MessageLoop)
On Error GoTo ex
Client.ReceiveText a, b
If a <> "" Then
Memo1.Text = Memo1.Text + a
Receiving = False
Number of guests: 1, registered members: 0,
in total hidden: 0
Copyright (c) 2017, /n software, inc.
As of July 15, 2016 EldoS business operates as a division of /n software, inc. For more information, please read the announcement.