Проблема с Winsock

[Powerman]

Вот столкнулся с такой проблемой. Делаю приложение клиент-сервер, при получке даты:

Код: Выделить всё

Private Sub sock_DataArrival(ByVal bytesTotal As Long)
sock.RemoteHost = sock.RemoteHostIP

sock.GetData cmd$
sock.GetData param$
text1.text=cmd$ & " - " & param$
End Sub

переменные исчечазают, кроме второй. и то, первая потом не определяется, вообщем, бред какойто. что подскажете? (яд не предлагать )[/code]

[GSerg]

Срочно яд, распространитель вирусов вы наш...

[keks-n]

Читай мануал и учи матчасть!
Код совершенно бессмысленный!

[Maitris]

Powerman
Какие еще левые переменные? Все что нужно - это объявить переменную для хранения данных, причем глобальную.- в коде
формы

Код: Выделить всё

Dim TotalData As String


далее

Код: Выделить всё

Private Sub sock_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
sock.GetData Data
TotalData = TotalData & Data
End Sub


[Powerman]

Powerman
Какие еще левые переменные? Все что нужно - это объявить переменную для хранения данных, причем глобальную.- в коде
формы

Код: Выделить всё

Dim TotalData As String


далее

Код: Выделить всё

Private Sub sock_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
sock.GetData Data
TotalData = TotalData & Data
End Sub


да так в первую очередь и было всё равно нифига

[keks-n]

А) Для начала попробуй не в TotalData а в текстбокс
Б) А ты увере, что тебе вообще хоть что-нибудь приходит?

[Powerman]

А) Для начала попробуй не в TotalData а в текстбокс
Б) А ты увере, что тебе вообще хоть что-нибудь приходит?

первая переменная приходит только.а если сразу в текстбокс- безразницы. Да всё, вопрос замят. Я долго смеялся, у noob4ever такая же беда ))) Один к ОДНОМУ !!. там сразу один хороший чел выкинул проект по этой беде