Качалка!!! - Работа с сетью в Delphi

ВИННИ ПУX · 11.05.2011, 21:07

прикладываю качалку файлов с инэта...не как не могу догнать как сделать фильтр...допусти ввожу ему site.ru/1.zip то и должен скачать 1.zip а скачивает 1 просто без разрешения..как сделать что б автоматом прибавлял разрешение???для всех разрешений..

ВИННИ ПУX · 11.05.2011, 21:47

help me

Usov · 12.05.2011, 11:59

Пример не смотрел, но в теории:
1. по ссылке получаешь имя файла
2. при создании файлового потока ты это имя подставляешь в параметр
Пример, может с синтаксическими ошибками - писал по памяти:

Код:

var
  s,f: String;
  fs: TFileStream;
begin
  s := 'site.ru/1.zip';
  f := copy(s, pos('/', s)+1, length(s));
  fs := TFileStrem.Create(s, fmCreate);
  IdHTTP.Get(s, fs);
  fs.Free;
end;

ВИННИ ПУX · 12.05.2011, 22:47

спасибо большое ))

12.05.2011, 11:59	#3
Usov Форумчанин Регистрация: 29.09.2009 Сообщений: 228	Пример не смотрел, но в теории: 1. по ссылке получаешь имя файла 2. при создании файлового потока ты это имя подставляешь в параметр Пример, может с синтаксическими ошибками - писал по памяти: Код: `var s,f: String; fs: TFileStream; begin s := 'site.ru/1.zip'; f := copy(s, pos('/', s)+1, length(s)); fs := TFileStrem.Create(s, fmCreate); IdHTTP.Get(s, fs); fs.Free; end;`

12.05.2011, 22:47	#4
ВИННИ ПУX Регистрация: 04.05.2011 Сообщений: 6	r спасибо большое ))

11.05.2011, 21:47	#2
ВИННИ ПУX Регистрация: 04.05.2011 Сообщений: 6	help me