VBNet - Форум - протокол POP

Вопрос: протокол POP Добавлено: 06.06.04 21:45

Автор вопроса: ISpy | Web-сайт: intermult.boom.ru

Вот код (w - это компонент Winsock):

<pre>

' Коннект к серверу по 110 порту

Private Sub connect1_Click()
w.Connect "RemoutHost", 110
End Sub

' Отправка данных из Textbox 1'a

Private Sub send1_Click()
w.SendData text1.text

End Sub

' Таймер для принятия данных в Textbox 2

Private Sub Timer1_Timer()

    dim strData as string
    w.GetData strData
    t2.Text = t2.Text & strData
End Sub

' При подключение к серверу - пуск таймера

Private Sub w_Connect()
Timer1.Enabled = True
End Sub

</pre>

Проблема в том, что после коннекта к серверу я получаю ответ: "+OK", но потом я посылаю команды но не на одну не отображается ответ (в Textbox 2 ). Что в коде не правильно? Ответ приходит но прога его не отображает?

Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #1	Добавлено: 06.06.04 23:09
	Вообще-то данные надо принимать по событию DataArrival, а не когда в голову взбредет... Ответить

Номер ответа: 2 Автор ответа: ISpy Разработчик Offline Client Вопросов: 47 Ответов: 621	Web-сайт: intermult.boom.ru Профиль \| \| #2	Добавлено: 07.06.04 15:47
	Исправил - поставил DataArrival. Никаких изменений, получаю +ОК, и все. В чем же блин дело? Ответить

Номер ответа: 3 Автор ответа: ISpy Разработчик Offline Client Вопросов: 47 Ответов: 621	Web-сайт: intermult.boom.ru Профиль \| \| #3	Добавлено: 07.06.04 20:40
	Нашел в чем дело. Ошибка была в процедуре отправления команд, нужно было отправлять так: w.SendData text1.text & vbCrLf! Я не ставил vbCrLf, и сервер, когда принимал мою команду думал, что она еще не закончена и ждал продолжения, поэтому не слал ответ! Все было очень просто!!! Ответить

Страница: 1 |