Регистрация

Загрузка файла из интернета средствами 4GL.

Обсуждение вопросов по разработке программ в среде продуктов копорации "Progress Software"
Новичок
Сообщения: 7
Зарегистрирован: Ср сен 19, 2012 6:35 pm

Загрузка файла из интернета средствами 4GL.

Сообщение tokutei » Вт ноя 25, 2014 2:53 pm

Здравствуйте. Есть такой вопрос: можно ли стандартными средствами 4GL скачать файл из интернета?
Допустим http://exe.icq.com/icq.exe.

Никак не могу найти хоть что-то полезное по этой теме.

Новичок
Сообщения: 7
Зарегистрирован: Ср сен 19, 2012 6:35 pm

Re: Загрузка файла из интернета средствами 4GL.

Сообщение tokutei » Вт ноя 25, 2014 6:05 pm

Нашел такой интересный VB-скрипт:
Код: Выделить всё
' Set your settings
strFileURL = "http://exe.icq.com/icq.exe"
strHDLocation = "C:\icq.exe"

' Fetch the file
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary

objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0 'Set the stream position to the start

Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing

objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if

Set objXMLHTTP = Nothing


Теперь ломаю голову, как его прикрутить к Progress'у

Администратор
Аватара пользователя
Сообщения: 1880
Зарегистрирован: Пт мар 25, 2005 6:05 pm
Откуда: Progress Technologies

Re: Загрузка файла из интернета средствами 4GL.

Сообщение Arelav » Вт ноя 25, 2014 6:20 pm

Есть такая штука, называется ABL Sockets. Посмотри вот этот пример http://knowledgebase.progress.com/artic ... icle/20011
А также вот эту ветку форума OpenEdge Development на Progress Community https://community.progress.com/communit ... t/506.aspx
Возможно это то, что нужно.

Старожил
Аватара пользователя
Сообщения: 1523
Зарегистрирован: Чт сен 27, 2001 4:00 am
Откуда: Москва

Re: Загрузка файла из интернета средствами 4GL.

Сообщение dmi » Ср ноя 26, 2014 1:04 pm

Версия Progress и платформа?

В самом простом случае (11.4 & Win) это
Код: Выделить всё
USING System.Net.*.

DEF VAR Client  AS WebClient.

Client = NEW WebClient().
Client:DownloadFile("http://exe.icq.com/icq.exe", ".\icq.exe").



На 10.2B проверить не могу пока
/dmi

http://pro4gl.ru - 4gl блог

Новичок
Сообщения: 7
Зарегистрирован: Ср сен 19, 2012 6:35 pm

Re: Загрузка файла из интернета средствами 4GL.

Сообщение tokutei » Ср ноя 26, 2014 1:24 pm

Спасибо большое всем за помощь.

Версия Progress 10.1B платформа Win. Вариант с сокетами работает как надо. А вот класс WebClient не видит. Попробовал в 11.3 — все сработало. Наверно уже пора обновляться :)

Тема решена.

Старожил
Аватара пользователя
Сообщения: 1523
Зарегистрирован: Чт сен 27, 2001 4:00 am
Откуда: Москва

Re: Загрузка файла из интернета средствами 4GL.

Сообщение dmi » Ср ноя 26, 2014 2:07 pm

tokutei писал(а):Спасибо большое всем за помощь.

Попробовал в 11.3 — все сработало. Наверно уже пора обновляться :)

Тема решена.


Просто я с сокетами в свое время на v9.1D намучился - обновляйся )
/dmi

http://pro4gl.ru - 4gl блог

Вернуться в PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ

Кто сейчас на конференции

Сейчас этот форум просматривают: Google [Bot] и гости: 6