Получение иконки сайта без использования временного файла

[Diamock]

Здравствуйте Уважаемые!
Поздравляю всех с наступившим 2010 годом!
К сути вопроса.
Для получения иконки сайта (favicon.ico) использую следующий код:

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

Public Sub GetIcon(IC As PictureBox, ByVal sURL As String)

On Error GoTo ErIc                              'Подключение обработчика ошибок


Dim ff As Integer                               'Переменная для доступа к файлу
Dim tmpFolder As String                         'Переменная для определения пути к системной папке для временных файлов
Dim tmpIName As String                          'Переменная для хранения имени временной иконки
Dim tmpIPath As String                          'Полный путь к временной иконке

IC.Picture = Nothing

ff = FreeFile                                   'Получение номера свободного канала
tmpFolder = GetTempFolder                       'Определение системной папки Temp
tmpIName = "temp.ico"                           'Получение имени временной иконки
tmpIPath = tmpFolder & tmpIName                 'Получение полного пути к временной иконке

Open tmpIPath For Output As #ff                 'Создаём временную иконку
    Print #ff, OpenURL(sURL & "/favicon.ico")   'Записывае в файл полученные данные
Close #ff                                       'Закрываем свободный канал

IC.Picture = LoadPicture(tmpIPath)              'Загружаем иконку в PictureBox
Kill tmpIPath                                   'Чистим временную папку

Exit Sub                                        'Выходим из процедуры

ErIc: IC.Picture = Nothing                      'Пустой рисунок

End Sub

Можно ли поместить иконку в PictureBox, без предварительной записи данных на винчестер?

[Хакер]

Можно и даже нужно.

[Diamock]

Можно и даже нужно.

Уважаемый Хакер, намекните в каком направлении рыть...

[Хакер]

Да в том же, в котором и сейчас: достаточно присвоить свойству Picture ссылку на объект, поддерживающий IPictureDisp, который и будет рендерить иконку. Вот уже где взять этот объект: другой вопрос.

[Diamock]

Да в том же, в котором и сейчас: достаточно присвоить свойству Picture ссылку на объект, поддерживающий IPictureDisp, который и будет рендерить иконку. Вот уже где взять этот объект: другой вопрос.

Общее направление понял, буду разбираться. Большое спасибо!

[Diamock]

Поднимаю старую тему, потому что найдено решение.

Код модуля:

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

Option Explicit

Private Type TGUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" ( _
                ByVal szURLorPath As Long, _
                ByVal punkCaller As Long, _
                ByVal dwReserved As Long, _
                ByVal clrReserved As OLE_COLOR, _
                ByRef riid As TGUID, _
                ByRef ppvRet As IPicture _
                ) As Long

Public Function GetIconFromURL(ByVal URL As String) As Picture
Dim IID  As TGUID
    With IID
        .Data1 = &H7BF80980
        .Data2 = &HBF32
        .Data3 = &H101A
        .Data4(0) = &H8B
        .Data4(1) = &HBB
        .Data4(2) = &H0
        .Data4(3) = &HAA
        .Data4(4) = &H0
        .Data4(5) = &H30
        .Data4(6) = &HC
        .Data4(7) = &HAB
    End With
   
Dim PathIcon As String
PathIcon = URL & "/favicon.ico"

On Error GoTo ERR_LINE
    OleLoadPicturePath StrPtr(PathIcon), 0&, 0&, 0&, IID, GetIconFromURL
    Exit Function
ERR_LINE:
    Set GetIconFromURL = VB.LoadPicture(PathIcon)
End Function

Комментарии, более чем уместны .

[Хакер]

Комментарии, более чем уместны .

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

[Diamock]

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

Можно подробнее, почему плохо и для чего нужен контроль и влияние на ход загрузки, если требуется загрузить только иконку?

[Хакер]

Можно подробнее, почему плохо и для чего нужен контроль и влияние на ход загрузки, если требуется загрузить только иконку?

Почему плохо вообще можно почитать в статьях Джоэля (тут (пункт 3) и тут), там, где говорится, почему плохо работать с удалёнными файлами так, как если это локальные.

Какой требуется контроль? Ну например сервер возвращает редирект. Проследовать или нет? Если проследовать: проследовать в любом случае, или только если хост назначения соответствует текущему хосту? Как себя вести, если сервер не отвечает? Какой таймаут? В твоём случае поток застрянет в указанной функции, и, возникнет ситуация, которую нубы называют «зависанием». Что делать, если иконка пришла только наполовину, и соединение случайно разорвалось? Докачать или засчитать неудачу? Вряд ли OLE станет докачивать что-то. Что делать, если мы нарвались на ресурс бесконечной длины? Скорее всего OLE будет тупо качать его до посинения, которое никогда не наступит. Ну, в общем, куча таких моментов, которые неплохо бы контролировать, чтобы получить стабильную, «вкусную» программу.

[Diamock]

Хакер, БОЛЬШОЕ СПАСИБО за разъяснение, буду изучать и пробовать.