| Вопрос: WinSock не работает Close | Добавлено: 10.11.04 14:31 |
Автор вопроса:  Trusishka | ICQ: 229751913 |
| почему-то не работает процедура Close |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Barsik Разработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #1 | Добавлено: 10.11.04 14:55 |
| в чем это выражается? | ||
|
Номер ответа: 2 Автор ответа: Trusishka ICQ: 229751913 Вопросов: 36 Ответов: 48 |
Профиль | | #2 | Добавлено: 10.11.04 15:02 |
| Процедура Connect и DataArrival работают, а Close не работает. Задача такая - при Connect загорается иконка с рисунком коннекта, а при закрытии Close иконка должна исчезнуть, но этого не происходит. | ||
|
Номер ответа: 3 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #3 | Добавлено: 10.11.04 15:18 |
|
может дело вовсе не в WinSock а в отображении картинки...
лучше покажи код... |
||
|
Номер ответа: 4 Автор ответа: TrusishkaICQ: 229751913 Вопросов: 36 Ответов: 48 |
Профиль | | #4 | Добавлено: 10.11.04 15:37 |
|
Private Sub Winsock1_Close()
Winsock1.Close CONNECT_DISABLE End Sub Private Sub Winsock1_Connect() CONNECT_ENABLE End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim data_received As String Winsock1.GetData data_received, vbString If CON = False Then Select Case Right$(RTrim$(data_received), 7) Case "ERCODE:" Winsock1.SendData "ALE" & vbCrLf Case "SSWORD:" Winsock1.SendData "MAX" & vbCrLf Case "  OMAIN:"
Winsock1.SendData vbCrLf End Select If Left$(LTrim$(data_received), 3) = "WO " Then Winsock1.SendData "RXMOP:MOTY=RXOTG;" & vbCrLf CON = True MSG = "" End If End If If CON = True Then MSG = MSG & data_received If Right$(data_received, 1) = "<" Then BIT = BIT + 1 If BIT = 2 Then Winsock1.Close CONNECT_DISABLE BSC_MARK(ACT_BSC).Visible = False oEvents
LIST_CREATE End If End If End If End Sub Private Sub CONNECT_ENABLE() CONNECT.Visible = True End Sub Private Sub CONNECT_DISABLE() CONNECT.Visible = False End Sub |
||
|
Номер ответа: 5 Автор ответа: TrusishkaICQ: 229751913 Вопросов: 36 Ответов: 48 |
Профиль | | #5 | Добавлено: 10.11.04 22:48 |
OK, спасибо за участие, добрые люди подсказали, что надо передавать "EXIT" 
|
||
Страница: 1 |