[решено] Как забрать файл по http?

madmasles · Конфигурация компьютера

Цитата dedmazai1870:

В справке команды не нашёл. »

Код:

InetRead()
InetGet()

Кликайте по функциям.
Имя файла получить можно примерно так.

Код:

$sUrl = 'http://xxx.yyy.zzz/название.расширение'
$sFile = StringTrimLeft($sUrl, StringInStr($sUrl, '/', 2, -1))
ConsoleWrite($sFile & @LF)

dedmazai1870 · Отправлено: **21:17, 25-03-2015** | #3

madmasles, InetGet не совсем то, а с InetRead получилось. Дело в том, что файл - это на самом деле ссылка на php-скрипт, и при InetRead я получаю как раз нужный результат его выполнения в окне.
Взял пример из InetRead, подставил свой адрес, всё сработало.
Не сочтите за наглость и чтобы не плодить темы, подскажите: как мне полученный текст выводить не в окно, а сохранять в файл?

Coutty · Конфигурация компьютера

Ну вот InetGet как раз и сохраняет файл на диск.

madmasles · Конфигурация компьютера

Цитата dedmazai1870:

как мне полученный текст выводить не в окно, а сохранять в файл? »

Код:

FileOpen()
FileWrite()
FileClose()

dedmazai1870 · Отправлено: **21:29, 25-03-2015** | #6

Coutty, при InetGet я получаю в файле такой результат.

Код:

<html><body><h1>It works!</h1></body></html>

А при InetRead в окне выводится результат работы скрипта.

dedmazai1870 · Отправлено: **21:47, 25-03-2015** | #7

Хотел заменить

Код:

MsgBox(4096, "", "Прочитанных байт: " & $nBytesRead & @CRLF & @CRLF & BinaryToString($sData))

на что-то подобное

Код:

FileWrite($hFile, BinaryToString($sData))

пока не получается. Буду пробовать дальше. Если есть идеи, как MsgBox заменить на FileWrite - буду признателен.
Спасибо за помощь.

madmasles · Конфигурация компьютера

dedmazai1870,

Код:

Local $sUrl = 'http://Ссылка', $bRead, $sFile = @ScriptDir & '\test.txt', $hFile

$bRead = InetRead($sUrl, 17)
If @error Then Exit 1
$hFile = FileOpen($sFile, 16 + 2)
If $hFile = -1 Then Exit 2
FileWrite($hFile, $bRead)
FileClose($hFile)

dedmazai1870 · Отправлено: **00:34, 26-03-2015** | #9

madmasles, это чудо! Огромное спасибо!