VPF::проблема с internet transfer control 6 - Форум программистов

20071231

Дата 10.1.2009, 10:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 26.5.2007
Где: Россия, Белая Кал итва

Репутация: нет
Всего: нет

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

I_Am_Rock

Дата 10.1.2009, 14:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 12
Всего: 15

Я обычно для скачивания страниц использую URLDownloadToFile

Код


Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function

Попробуйте - вдруг все норм будет. smile

Akina

Дата 10.1.2009, 17:14 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

20071231, все телепаты в отпуске. Где код?

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

20071231

Дата 10.1.2009, 23:40 (ссылка)

(нет голосов)

Загрузка ...

спасибо I_Am_Rock этот метод помог

но я все равно не понимаю почему мой перестал работать

Код


Zapr = "http://my.chat.mail.ru/cgi-bin/find?type=1&str=" & Sp2
DAT2 = Inet1.OpenURL(Zapr)

в sp2 сам запрос поиска

ЗЫ I_Am_Rock твойметод использует urlmon.dll а он весит почти 600 кг. ты не знаешь на чистых виндах он есть ? т.е. мне его таскать с прогой ?

ЗЫЫ I_Am_Rock чво ты кстати к мну на вы) ниузнал?) чво в аську не выходишь. я хотел в аськ спросить а тебя нету

Это сообщение отредактировал(а) 20071231 - 10.1.2009, 23:41

I_Am_Rock

Дата 11.1.2009, 00:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 12
Всего: 15

20071231

Я на каком-то сайте читал, будто бы на 2000 и XP метод работает. Так что думаю - и на Висте должно. А 98 и 95 - так там любая прога на ВБ без нужных файлов не идет.

Я забыл, что это твой ник. smile

А аська не пашет - я настраивал маршрутизацию и... ну, я потом скажу... когда заработает.... smile

Akina

Дата 11.1.2009, 09:27 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

20071231, что такое DAT2?

Цитата(20071231 @ 10.1.2009, 11:55

)

страница приходит не доконца

И что в этот момент в Inet1.State?

--------------------

20071231

Дата 11.1.2009, 12:34 (ссылка)

(нет голосов)

Загрузка ...

DAT2 переменная типа String, в которую помещается запрошенная страница, для дальнейшей обработки. а в Inet1.State я нисмотрел. smile

посмотрю отпишусь smile

Это сообщение отредактировал(а) 20071231 - 12.1.2009, 22:46

20071231

Дата 12.1.2009, 22:46 (ссылка)

(нет голосов)

Загрузка ...

у Inet1 нет свойства state

Akina

Дата 12.1.2009, 23:03 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(20071231 @ 12.1.2009, 23:46

)

Inet1 нет свойства state

о боже!

Код


Private Sub Inet1_StateChanged(ByVal State As Integer)

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »