Скачивание файла с помощью Indy

← →
Гришка (2003-05-17 19:50) [0]

Уважаемые, не подскажете, как организовать скачивание файла по ссылке (например www.mail.ru/pics/logo.fig) на диск, а то получить текст html-a получается, а скачать файл нет. Желательна помощь куском кода (для 7-х делфей)

Заранее благодарен...

← →
Гришка (2003-05-17 21:01) [1]

или как нибудь другим способом, главное чтобы можно было и через проксик и напрямую и на 7-м делфи.

← →
Zelius © (2003-05-18 20:30) [2]

Привожу кусок кода без изменений, надеюсь, что суть понятна, кусок качает файл по HTTP причем с/по вычисляемые границы, FFileStm - TFileStream куда качать.
...
Http := TidHTTP.Create(nil); with Http do try ReadTimeout := ConnectionSettings.Timeout * 1000; RecvBufferSize := HTTP_BLOCK_SIZE; OnWork := WorkEvent; URL.URI := FManager.FFileItem.IPPort + "/" + Path; // формируется полный путь к файлу Host := URL.Host; Port := StrToInt(URL.Port); if ConnectionSettings.UseProxy then begin ProxyParams.ProxyServer := ConnectionSettings.ProxyServer; ProxyParams.ProxyPort := ConnectionSettings.ProxyPort; if ConnectionSettings.UseProxyLogin then begin ProxyParams.BasicAuthentication := True; ProxyParams.ProxyUsername := ConnectionSettings.ProxyUserName; ProxyParams.ProxyPassword := ConnectionSettings.ProxyPassword; end; end; Request.CustomHeaders.Values["Range"] := Format( "bytes=%d-%d", [ FStartPos, FEndPos+1]); Request.Referer := My_Referer; FFileStm.Position := FStartPos; Get( URL.Path, FFileStm); finally Free; end;

← →
Гришка (2003-05-18 22:29) [3]

а можно поподробнее, куда писать ссылку, а куда конечное имя файла...

← →
Гришка (2003-05-18 22:39) [4]

И какие зависимости к модулям у данного кода. Если можно скиньте по мылу полный рабочий вариант программы, так будет намного проще разобраться...

Заранее спасибо...

Не за что :) Так как лучше разбираться самому, примеры и хелп, а также исходники!!! по Инди доступны, так что желаю удачи! :)

Скачивание файла с помощью Indy Найти похожие ветки