Форум: "Сети";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];
Вниз
Скачивание файла с помощью 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 вся ветка
Форум: "Сети";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c
