Странное поведение WinSock

[fob]

В проекте на VB6.0 использую компоненту WinSock.
Делаю соедиенение

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

Winsock1.RemoteHost = "hostname"
Winsock1.RemotePort = "portnumber"
Winsock1.Connect


Сервер, к которому я подключаюсь включен, порт открыт - короче все нормально с ним. Но при этом Winsock1.State = 6 всегда.

ОДНАКО!!!
Если тот же самый код в 3 строки перенести в новый пустой проект, то все идет нормально.
Я так понимаю, что скорее всего в моем основном большом проекте что-то с чем-то конфликтует. Но вот никак не могу понять что именно. Просто других версий кроме непонятного конфликта у меня нет.
Подскажите кто что сможет!!!
Спасибо!!!

[Sirik]

не могу понять почему номер порта имеет тип string

[fob]

Знал, что этот вопрос возникнет - так вот абсолютно не меняется результат. Теперь уже даже в пустом проекте ничего не соединяется... Что за фигня....

[alibek]

Во-первых, указывай порт числом, а не строкой.
А во-вторых, код в студию (более полный код).

[fob]

Друг мой )))) конечно я буду указывать порт числом )))
ну а по второму пункту - чесно слово - более полного кода нету. это все. ))) и даже это не хочет работать.
или может тебе нужен целиком проект над которым я работаю и в котором есть эти три строчки кода? ))

[Viper]

внезапный приступ телепатии показывает, что дело возможно не в этих трех строчках... так что код хотелось бы узреть, а то телепатия штука весьма ненадежная

[fob]

!Viper! ))))))))

короче проблема как бы решилась, но как-то немного странно.
Изначально я открывал соединение незадолго до предполагаемой отправки данных (т.е. вызова SendData). И при этом получалось то о чем я написАл ранее. При этом обработка события Connect для WinSocket компонента никак не наступала - из чего я делаю вывод, что соединения нет.

Теперь че-то вот вдруг я решил открывать соединение в самом начале работы программы. И прям тут же установился коннект и все стало более или менее хорошо.

Т.о. вопрос наверное можно снять, но появляется другой - почему так получилось?

[uhm]

Ну, может, хоть теперь код покажешь?!

[fob]

ну ради бога )))

при загрузке программы

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


Dim  connectHost as string
Dim port as integer


       Winsock1.protocol = sckTCPProtocol
       Winsock1.RemoteHost = connectHost 'Инициализируется по ходу загрузки из настроек
       Winsock1.RemotePort = port 'Инициализируется по ходу загрузки из настроек
       
       Winsock1.Connect


посылаем данные на одной из форм

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

Dim sockData as String
....
Winsock1.SendData sockData


при закрытии проги

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

If Winsock1.state <> 0 Then
  Winsock1.Close
End If


УСЁ!!!

[alibek]

В порядке эксперимента...
Попробуй указать Winsock1.LocalPort = 0 перед соединением.

[Wild VB Code for Food]

fob
А ты не думал что проблемы могут крытся в самом WinSock? или в сетевом конфиге?

ЗЫ. Конечно не принципиально но не легче использовать? по моему так красивей, меньше кода.

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

ws.Connect host,port


ЗЫЫ. Меня интересует, почему люди пишут не

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

ws.listen port

а пишут

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

ws.LocalPort = port
ws.Listen


???

[alibek]

Вообще-то они пишут LocalPort=0, затем LocalPort=n и только потом Listen. И этому есть причины.

[Wild VB Code for Food]

Какие?

Я всегда использовал сокрашённый вариант, у меня всё всега работало......

[alibek]

Избавление от глюков.
После закрытия порт иногда не освобождается, LocaPort=0 помогает бороться с этим глюком.

[fob]

fob
А ты не думал что проблемы могут крытся в самом WinSock? или в сетевом конфиге?

1. Думал. В таком случае какие варианты? WinSock можно сказать стандартный контрол в VB 6 - вот я его и использую. Если есть другие, которые позволяют решать такие же заадачи, поделись, плз
2. Сетевой конфиг? ну может быть. вот тока конфигурация сети достаточно простая, что бы там можно было ошибиться, да и работает сетка вроде без сбоев.

[fob]

В порядке эксперимента...
Попробуй указать Winsock1.LocalPort = 0 перед соединением.

Та же петрушка )))

[alibek]

А пример со статьи работает?
http://www.vbstreets.ru/VB/Articles/65986.aspx