Скачать: CL | DM;

Скачивание файла с помощью 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]

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

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

---

← →
Zelius ©   (2003-05-19 11:24) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c