Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Как загрузить картинку с сайта?  [new]
Витамин-Роста
Member

Откуда: Саратов
Сообщений: 8
Доброго времени суток. Есть такая проблема. Есть таблица со ссылками на png картинки на сайте. Мне необходимо втянуть эти картинки в соответствующие ОЛЕ-поля таблицы. Помогите пожалуйста.
13 янв 12, 15:08    [11899976]     Ответить | Цитировать Сообщить модератору
 Re: Как загрузить картинку с сайта?  [new]
guest_rusimport
Guest
Витамин-Роста,

Как вариант , сначала получаете HTML код страницы в переменную codhtml :

Sub GetInformationFromINet()
Dim oHttp As Object
Dim strURL As String

strURL = "http://www.bing.com"

On Error Resume Next
Set oHttp = CreateObject("MSXML2.XMLHTTP")
If Err.Number <> 0 Then
Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
End If
On Error GoTo 0
If oHttp Is Nothing Then
Exit Sub
End If

oHttp.Open "GET", strURL, False
oHttp.Send

codhtml = oHttp.ResponseText
' Debug.Print oHttp.ResponseText
Set oHttp = Nothing
End Sub

"вытаскиваете" ( программно) из codhtml путь к каждому из файлов картинок, затем сохраняете эти картинки к себе на комп.:

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 Sub aaa()
Dim Res As Long
Res = URLDownloadToFile(0, "http://www.bing.com/az/hprichbg?p=rb%2fKeralaIndiaFishing_ROW1635313732.jpg", "c:\basic\123.jpg", 0, 0)
MsgBox Res
End Sub

ну, и потом - дело техники - загружаете ( программно) в свою базу
14 янв 12, 01:12    [11903424]     Ответить | Цитировать Сообщить модератору
 Re: Как загрузить картинку с сайта?  [new]
Владимир Саныч
Member

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщений: 40414
https://www.sql.ru/forum/actualthread.aspx?tid=589695
14 янв 12, 01:42    [11903488]     Ответить | Цитировать Сообщить модератору
Между сообщениями интервал более 1 года.
 Re: Как загрузить картинку с сайта?  [new]
igor00082
Member

Откуда:
Сообщений: 43
Подскажите пожайста этим кодом открываю страницу:

https://autoastat.com/ru/vehicle/ZARBA558XH1048408-22389257?s=aHR0cHM6Ly9hdXRvYXN0YXQuY29tL3J1L2Zvcm0/YXVjdGlvbiU1QjAlNUQ9MSZhdWN0aW9uJTVCMSU1RD0yJmF1Y3Rpb24lNUIyJTVEPTQmZGF0ZUZyb209MjAxOS0xMC0xOCZkYXRlVG89MjAyMS0xMC0xMyZtYWtlPTMmbW9kZWwlNUIwJTVEPTIzMjA1JnJlZ2lvbj0mdHlwZT0xJnllYXJGcm9tPTE5ODEmeWVhclRvPTE5OTQ=

Там нет ссылок на 10 фотографий автомобиля. А если отклыть в Chrom эту страницу и нажать Ctr+U то там ссылки есть

Вот эти

<img class="lazyload"
data-src="https://s.autoastat.com/images/copart/2021/10/7/ZARBA558XH1048408/1-45c581bf08efe0f863e74e7ed09026b7-lot_preview_watermark.jpg"
alt="1987 Alfa Romeo #1">
<img class="lazyload"
data-src="https://s.autoastat.com/images/copart/2021/10/7/ZARBA558XH1048408/2-b8d19d0a13c3a6083ae567852506830e-lot_preview_watermark.jpg"
alt="1987 Alfa Romeo #2">
<img class="lazyload"
data-src="https://s.autoastat.com/images/copart/2021/10/7/ZARBA558XH1048408/3-fc86ddbc9c1cf6f7f8929643f4d23238-lot_preview_watermark.jpg"
alt="1987 Alfa Romeo #3">
<img class="lazyload"
data-src="https://s.autoastat.com/images/copart/2021/10/7/ZARBA558XH1048408/4-2a511f8a96e8dbce88305b9906901c12-lot_preview_watermark.jpg"
alt="1987 Alfa Romeo #4">
<img class="lazyload"
data-src="https://s.autoastat.com/images/copart/2021/10/7/ZARBA558XH1048408/5-cf6414b86e64bc2825054f6f96cab454-lot_preview_watermark.jpg"
alt="1987 Alfa Romeo #5">
<img class="lazyload"
data-src="https://s.autoastat.com/images/copart/2021/10/7/ZARBA558XH1048408/6-b9e0f7fdd537ec7dd4c66719ada28414-lot_preview_watermark.jpg"
alt="1987 Alfa Romeo #6">
<img class="lazyload"
data-src="https://s.autoastat.com/images/copart/2021/10/7/ZARBA558XH1048408/7-22ede1e78e6e654a0dd6c78f43ed2bc0-lot_preview_watermark.jpg"
alt="1987 Alfa Romeo #7">
<img class="lazyload"
data-src="https://s.autoastat.com/images/copart/2021/10/7/ZARBA558XH1048408/8-5a689771f1bfcb5955ffed13312d7e96-lot_preview_watermark.jpg"
alt="1987 Alfa Romeo #8">
<img class="lazyload"
data-src="https://s.autoastat.com/images/copart/2021/10/7/ZARBA558XH1048408/9-e077228572141665a2689e10340558cd-lot_preview_watermark.jpg"
alt="1987 Alfa Romeo #9">
<img class="lazyload"
data-src="https://s.autoastat.com/images/copart/2021/10/7/ZARBA558XH1048408/10-f6afc510e8816b1ebdecec7d5cc63a3f-lot_preview_watermark.jpg"
alt="1987 Alfa Romeo #10">
</div>

подскажите пожайчта как достать эти ссылки программно ??? Спасибо.
13 окт 21, 20:22    [22383338]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить