| Вопрос: Winsock error #10036!!!! :( | Добавлено: 31.05.05 10:17 |
Автор вопроса:  dimoon | Web-сайт: dimoon.by.ru
|
|
Программа использует winsock.ocx. При тестировании на чужом компе вылезает ошибка:
Error occured when loading file Error code #10036 Descripcion: a blocking winsock operation is in progress Подскажите, плиз в чем может быть дело и как это можно пофиксить? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  DaSharm ICQ: 780477 Вопросов: 72 Ответов: 1297 |
Web-сайт: Профиль | | #1 | Добавлено: 31.05.05 17:14 |
|
надо код смотреть.... |
||
|
Номер ответа: 2 Автор ответа: dimoon Вопросов: 32 Ответов: 19 |
Web-сайт: Профиль | | #2 | Добавлено: 31.05.05 17:27 |
|
Вот кусок кода. Если потребуется, могу кинуть еще. Вообще то странно - у меня и еще у ряда человек работает ок, а у того чела на компе с Win XP SP2 такой вот баг!!! Помогите плиз пофиксить, очень нужно!!!
Private Sub DownloadFile(txtURL As String) Dim strURL As String 'temporary buffer Dim intPort As Integer On Error GoTo ERROR_HANDLER Timer1.Enabled = True intPort = 80 If Left(txtURL, 7) = "http://" Then strURL = Mid(txtURL, 8) Else strURL = txtURL End If m_strRemoteHost = Left$(strURL, InStr(1, strURL, "/"  - 1)
m_strFilePath = Mid$(strURL, InStr(1, strURL, "/" )
m_strHttpResponse = "" m_bResponseReceived = False m_bHeaderReceived = False m_lContentLength = 0 m_lDownloadedBytes = 0 Label4.Caption = "" With wscHTTP .Close .LocalPort = 0 Label4.Caption = "Connecting to the web server..." DoEvents .Connect m_strRemoteHost, intPort End With Exit_Label: Exit Sub ERROR_HANDLER: If Err.Number = 5 Then strURL = strURL & "/" Resume 0 Else MsgBox "Error occured while loading file." & vbCrLf & _ "Error code #: " & Err.Number & vbCrLf & _ "  escription: " & Err.Description & ".", vbExclamation
wscHTTP.Close m_bResponseReceived = True Label4.Caption = "Error." DoEvents GoTo Exit_Label End If End Sub Private Sub wscHTTP_Connect() strHttpRequest = "GET " & m_strFilePath & " HTTP/1.1" & vbCrLf strHttpRequest = strHttpRequest & "Host: " & m_strRemoteHost & vbCrLf strHttpRequest = strHttpRequest & "Connection: close" & vbCrLf strHttpRequest = strHttpRequest & "Accept: */*" & vbCrLf strHttpRequest = strHttpRequest & vbCrLf wscHTTP.SendData strHttpRequest End Sub |
||
|
Номер ответа: 3 Автор ответа: Sur ICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #3 | Добавлено: 31.05.05 18:18 |
| я извиняюсь, doEvents не может мешать? | ||
|
Номер ответа: 4 Автор ответа: Black DragonICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #4 | Добавлено: 31.05.05 20:04 |
| 2Sur: скорее всего, DoEvents там не мешает, но имхо ему там не место | ||
|
Номер ответа: 5 Автор ответа: DaSharmICQ: 780477 Вопросов: 72 Ответов: 1297 |
Web-сайт: Профиль | | #5 | Добавлено: 31.05.05 21:09 |
|
ты бы убрал еррор хендлер и посмотрел, гдже у тебя ошибку выбрасивает (какая строка) |
||
Страница: 1 |