Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > проблема с internet transfer control 6

Автор: 20071231 10.1.2009, 10:55

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

Автор: I_Am_Rock 10.1.2009, 14:11

Я обычно для скачивания страниц использую 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

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 чво ты кстати к мну на вы) ниузнал?) чво в аську не выходишь. я хотел в аськ спросить а тебя нету

Автор: I_Am_Rock 11.1.2009, 00:30

20071231

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

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

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

Автор: Akina 11.1.2009, 09:27

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

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

Автор: Akina 12.1.2009, 23:03

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

)

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

о боже!

Код


Private Sub Inet1_StateChanged(ByVal State As Integer)