ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / скачать файл
14 сообщений из 14, страница 1 из 1
скачать файл
    #35710245
StandD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StandD
Гость
Здравствуйте!
Есть ссылка на файл. Как бы его скачать на kомп из Фокса?

Например,
http://update1.trun.net/update/eo750.exe
...
Рейтинг: 0 / 0
12.12.2008, 11:23
| Ответить | Цитировать | Написать  
скачать файл
    #35710614
gotko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gotko
Гость
StandD,
на вскидку:
! "explorer file_url"
...
Рейтинг: 0 / 0
12.12.2008, 12:55
| Ответить | Цитировать | Написать  
скачать файл
    #35710640
StandD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StandD
Гость
Спасибо, буду пробовать!
...
Рейтинг: 0 / 0
12.12.2008, 13:01
| Ответить | Цитировать | Написать  
скачать файл
    #35710748
agatata
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
agatata
Гость
oleApp = CreateObject("InternetExplorer.Application")
oleApp.Visible=.t.
oleApp.Navigate("http://www.sql.ru")
...
Рейтинг: 0 / 0
12.12.2008, 13:32
| Ответить | Цитировать | Написать  
скачать файл
    #35710902
StandD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StandD
Гость
agatataoleApp = CreateObject("InternetExplorer.Application")
oleApp.Visible=.t.
oleApp.Navigate("http://www.sql.ru")

А это разве на скачивание? Не на просмотр?
...
Рейтинг: 0 / 0
12.12.2008, 14:08
| Ответить | Цитировать | Написать  
скачать файл
    #35710910
StandD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StandD
Гость
gotkoStandD,
на вскидку:
! "explorer file_url"

Выдает ошибку "страница не найдена". Может, нет прав доступа?
...
Рейтинг: 0 / 0
12.12.2008, 14:10
| Ответить | Цитировать | Написать  
скачать файл
    #35710914
StandD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StandD
Гость
Страница существует (ну, не та, конечно, которая в примере)
...
Рейтинг: 0 / 0
12.12.2008, 14:10
| Ответить | Цитировать | Написать  
скачать файл
    #35711013
StandD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StandD
Гость
Все сработало! Действительно не было доступа.
Тогда еще вопрос. После данной команды появляется окно с предложением сохранить или открыть файл. Можно ли обойти его и по умолчанию сохранять в определенную папку?
...
Рейтинг: 0 / 0
12.12.2008, 14:33
| Ответить | Цитировать | Написать  
скачать файл
    #35711066
gotko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gotko
Гость
StandD,

скорее всего нет - это выдает IE
может где у него и есть гайка, чтобы сохранял не спрашивая,
но я о ней не знаю...
...
Рейтинг: 0 / 0
12.12.2008, 14:42
| Ответить | Цитировать | Написать  
скачать файл
    #35711125
gotko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gotko
Гость
попробуй объект фокса Hyperlink
у него метод navigateto('URL') - может поможет...
...
Рейтинг: 0 / 0
12.12.2008, 14:57
| Ответить | Цитировать | Написать  
скачать файл
    #35711149
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
GetFileFromUrl('http://update1.trun.net/update/eo750.exe', 'eo750.exe')

Function GetFileFromUrl
Lparameters lcRemoteFile, lcLocalFile
Local lnReturn
Declare Integer URLDownloadToFile In urlmon.Dll;
  INTEGER pCaller, String szURL, String szFileName,;
  INTEGER dwReserved, Integer lpfnCB
lnReturn = URLDownloadToFile ( 0 , lcRemoteFile, Iif(Empty(lcLocalFile), JustFname(lcRemoteFile), lcLocalFile),  0 ,  0 )
Return lnReturn= 0
...
Рейтинг: 0 / 0
12.12.2008, 15:04
| Ответить | Цитировать | Написать  
скачать файл
    #35711320
StandD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StandD
Гость
Всем спасибо, уже копаю..
...
Рейтинг: 0 / 0
12.12.2008, 15:33
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
скачать файл
    #37953662
Фотография MaestroEv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaestroEv
Участник
В полученном файлике например есть такое :
---------------------------------------------------------
<script type="text/javascript">
Ban = new Array(new Array('/data/ban/1/pos_septp_738x218_aug2012-03.jpg','/news/','7','/data/ban/1/pos_septp_738x218_aug2012-03.jpg'),new Array('/data/ban/1/pos_septp_738x218_aug2012-02.jpg','/notebook/dell-inspiron-n5520-679893/','7','/data/ban/1/pos_septp_738x218_aug2012-02.jpg'),new Array('/data/ban/1/pos_septp_738x218_aug2012-01.jpg','/notebook/acer-aspire-5755g-32314g32mnks-688302/','7','/data/ban/1/pos_septp_738x218_aug2012-01.jpg'),new Array('/data/ban/1/pos_samsung-mv800_738x218_aug2012.jpg','/news/','7','/data/ban/1/pos_samsung-mv800_738x218_aug2012.jpg'));
BanWidth=738;
BanHeight=218;
BanDefDelay=10;
BanAutoRotate=1;
BanLoad();
</script>
------------------------------------------------------------
То есть картинки.. А как собственно их скачать и сложить в папочку?
...
Рейтинг: 0 / 0
12.09.2012, 05:48
| Ответить | Цитировать | Написать  
скачать файл
    #37953663
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tanglir
Участник
Выбрать имена файлов можно, например, так
Код: php
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
TEXT TO qwe NOSHOW PRETEXT 12 TEXTMERGE
<script type="text/javascript">
<skipped...>
</script>
ENDTEXT
For ii=1 To Getwordcount(qwe,"'")
  asd=Getwordnum(qwe,ii,"'")
  If Right(asd,4)=='.jpg' /*при необходимости добавить другие расширения*/
    ?asd
  Endif
Endfor

А как скачать/сохранить, читайте выше.
...
Рейтинг: 0 / 0
12.09.2012, 06:00
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / скачать файл
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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