Клиент

[I-C-E]

Я делаю клиент для онлайн-игры. У меня такой вопрос: как можно сделать что-бы мой клиент кэшировал картинки из сайта, ну что-бы он сохранял их, в определенную директорию, а потом если есть ссылка на эту картинку то брал ее не из инета а с винта. Если можно то желательно давать ответ с примером. Заранее спасибо.

[Maitris]

Проверять имя и путь к картинке.. Имеется ли она уже на диске. Если да - грузить оттуда.
При получении картинки из новой папки создавать подпапку с таким именем..

Проверять так:

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

If Len(Dir$("ПутьКТвоемуФайлу)) > 0 Then
Брать с диска
Else
Качать с сервера
End If

[I-C-E]

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

[Maitris]

Если ты имеешь в виду компонент WebBrowser, то там по умолчанию и так используется cache.
Посмотри параметры метода Navigate, там можно отключить загрузку из кэша.

[I-C-E]

А как сделать кэширование в определенный каталог???

[Maitris]

Нельзя. WebBrowser это часть Осла IE. Он такого не позволит тебе, все строго в
Local Settings\Temp\Temporary Internet Files.

[I-C-E]

С этим все понятно. А теперь еще вопрос: как сделать чтобы когда я нажимаю на ссылку, которая открывается в новом окне (тоесть путь к ней прописан так <a href="url" target=_blank>URL</a>) она открывалась не в окне ИЕ, а в новом окне которое создавалась бы в моей проге, или оно уже есть но скрытое, и при нажатии на такую ссылку оно бы появлялось и открывало страницу. Вопрос я думаю ясен. Желательно привести исходник. Заранее спасибо.

[Maitris]

Поймать WebBrowser_BeforeNavigate2

Cancel = True
Сделать видимым второй контрол который сейчас Visible = False, передать ему URL из этой же процедуры (BeforeNavigate2) на его Navigate.

P.S. Сделай переменную-флаг и когда направляешь сам, ставь его в True, в BeforeNavigate2 проверяй, если True, то Exit Sub
Только потом не забудь снять.

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


'Объявляешь флаг в секции General > Declarations
Dim Flag As Boolean

'Если посылаешь сам
Private Sub Command1_Click()
Flag = True
WebBrowser1.Navigate ("http://www.ya.ru")
End Sub

'Ловишь BeforeNavigate первого контрола
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)

'Если флаг - True, то выход
If Flag = True Then Exit Sub

'Отменяешь загрузку здесь
Cancel = True
'Показываешь форму со вторым контролом
Form2.Show
'И открываешь то что было вызвано уже в нем
Call Form2.WebBrowser1.Navigate(URL)
End Sub

'По завершении загрузки в первом контроле - снять флаг
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Flag = False
End Sub


[FaKk2]

Для кеширования картинок я встроил прокси сервер между веббраузером и инетом. Там и кеширую.

[I-C-E]

Сделал все как в примере выше, но все-равно не получилось, не могли бы вы выслать мне этот пример на имеил, что бы я мог увидеть как это делаеться. Заранее спасибо.

[Maitris]

Что именно не получилось? Ты хоть Form1 и Form2 создал? На каждом должно быть по WebBrowser контролу с именем WebBrowser1. Код первой формы замени кодом выше.

[I-C-E]

Все так и сделал но новое окно все равно открывается в IE, а не в форме 2. Закинь на мыло исходник плиз.

[Maitris]

Не может такого быть
Ок, вечером закину.

[Maitris]

Держи

[I-C-E]

Ну и ты хочешь сказать что этот браузер работает? Конечноже нет, ну по крайней мере он не выполняет поставленой задачи. Ну например если ввести ссылку - http://www.yandex.ru/yandsearch?text=textf&stype=www, ну типа запрос что бы яндекс искал сайты со словом ТЕКСТ, то в окне которое загрузится нажимая на ссылки они будут открываться не в новом, заранее созданом окне, а в IE как не странно. Ну сам попробуй...

[Maitris]

Гм Все работает.
Вообще-то перенаправляется первый Navigate на второй. Если еще хочешь чтобы ссылки нажатые во втором окне открывались там же, то добавь аналогичное в код Form2.

Заблокировать открытие в новом окне, в код второй формы:

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

Dim LastUrl As String

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
LastUrl = URL
End Sub

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate2 (LastUrl)
End Sub

[I-C-E]

Ну я короче проверял так: на винте создал два ХТМЛ-файла, один назвал 1.html, другой - 2.html, в первый написал такой код: <a href="2.html" target=_blank>URL</a>, и вместо http://www.ya.ru, я написал c:\1.html, потом запустил форму и кликнул на ссылку, и файл 2.html открылся не в нужном окне а в окне IE.

[I-C-E]

НУ ПОМОГИТЕ ХОТЬ КТО-НИБУДЬ!!! ПЛИЗ!!!

[I-C-E]

Всем спасибо! Сам нашел решение -

Нужно обработать событие NewWindow2 (frmWebBrowser - это форма, содержащая браузер, brwWebBrowser - имя контрола на форме):

Private Sub brwWebBrowser_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As Form
On Error Resume Next

Set frm = New frmWebBrowser
frm.Show
Set ppDisp = frm.brwWebBrowser.object

Err.Clear
end sub

[I-C-E]

Еще один вопрос: как авторизироваться на сайте http://combats.ru? А то я всю главную страницу обшарил а так и не придумал как это сделать.

[Maitris]

Может стоит раз подумать самому?

[I-C-E]

Хороший совет. Я подумал и вот нашел ответ - http://capitalcity.combats.ru/enter.pl? ... psw=******

[Крост]

I-C-E
Господи! Ты клиент для БК делаешь???? Скажу сразу, занимался я этим на протяжении нескольких месяцев..потом забросил...если ты делаешь для заработка, не советую...КБ всё равно чаще покупают...
Тем более, с ТАКИМ опытом работы в ВБ (попрошу без обид) ты клиент сделаешь как минимум к концу года... Там столько аспектов учитывать надо, но если же всё-таки решил делать, то могу помочь с решением вопросов (а их будет очень много, поверь). Пиши в ЛС, на мыло, в аську (часто в инвизе, так что в офф пиши) если что.. Лучше конечно в ЛС..=)

С уважением Андрей.

[Крост]

I-C-E
Да, на счёт авторизации... могу сказать, что прямая ссылка - не выход из ситуации...нет безопастности...пароль можно увидеть в журнале IE...

[I-C-E]

Крост
Благодарю за сотрудничество.[/b]

[Крост]

I-C-E
Обращайтесь. =)