ReSQL.ru
     
powered by simpleCommunicator - 2.0.50     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как загрузить картинку с сайта?
4 сообщений из 4, страница 1 из 1
Как загрузить картинку с сайта?
    #37613214
Витамин-Роста
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витамин-Роста
Гость
Доброго времени суток. Есть такая проблема. Есть таблица со ссылками на png картинки на сайте. Мне необходимо втянуть эти картинки в соответствующие ОЛЕ-поля таблицы. Помогите пожалуйста.
...
Рейтинг: 0 / 0
13.01.2012, 15:08
| Ответить | Цитировать | Написать  
Как загрузить картинку с сайта?
    #37614217
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
Витамин-Роста,

Как вариант , сначала получаете 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

ну, и потом - дело техники - загружаете ( программно) в свою базу
...
Рейтинг: 0 / 0
14.01.2012, 01:12
| Ответить | Цитировать | Написать  
Как загрузить картинку с сайта?
    #37614229
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
http://www.sql.ru/forum/actualthread.aspx?tid=589695
...
Рейтинг: 0 / 0
14.01.2012, 01:42
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Как загрузить картинку с сайта?
    #40104219
igor00082
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor00082
Гость
Подскажите пожайста этим кодом открываю страницу:

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>

подскажите пожайчта как достать эти ссылки программно ??? Спасибо.
...
Рейтинг: 0 / 0
13.10.2021, 20:22
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как загрузить картинку с сайта?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=40104219&tid=1609577]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 6ms
check topic access:
 6ms
track hit:
 64ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 2ms
others: 296ms
total:  452ms
созд. / загр.: 452ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]