Скачивание файлов из инета

[jkpro]

Помогите плиз мне срочно нужна программа которая скачивала бы определенный файл из определенного места (место куда попадет файл должно находица там же где и прога (без всяких измений от пользователя)) плиз кто нить напишите простенькую программу а я дальше сам как нить разбирусь З.Ы. простите за ламерство. Если кто-то готов помоч то моя асько 582650060

[uberchel]

А поиском по форуму трудно что ли воспользоваться, что форум засорять одними и теме же темами или спуститесь в низ страницы и увидите похожие и уже решенные темы !!!

[jkpro]

Сообщение от uberchel

А поиском по форуму трудно что ли воспользоваться, что форум засорять одними и теме же темами или спуститесь в низ страницы и увидите похожие и уже решенные темы !!!

Я ненашел подобного(

[jkpro]

ток мне надо чтобы он список ссылок брал из тхт или ini файла, кароч без разницы

[uberchel]

Ну лан ща набрасаю с компонентом IDHTTP:

procedure GetIntetFile(URL, SavetoFile: string);
var
 TM: TMemoryStream;
begin
 try
  TM:= TMemoryStream.Create;
  Form1.idhtp1.Get(URL,TM);
  finally
  TM.SavetoFile(SavetoFile);
  end;
  TM.Free;
end;

Применение:

procedure TForm1.btn1Click(Sender: TObject);
begin
 GetIntetFile('http://www.yandex.ru/','C:\lll.html');
end;

Вот еще как рас что надо, видете кто ищет тот найдет ))
http://www.programmersforum.ru/showthread.php?t=60972

[jkpro]

Я уже говорил что я чайник?
ну с TForm1.btn1Click(Sender: TObject); я новерно разберусь, а вот procedure GetIntetFile(URL, SavetoFile: string); каким раком делать?
а еще суть программы чтобы она загружала 2 файла токо места загрузки могут быть разные (т.к. прогу делаю не токо для себя) мне нужно делать так чтобы пути к файлам лежали в файле (хз мож это и за грани фантастики но оч надо( помогите плиииз

[uberchel]

Я же дал ссылку, что может быть не понятно ???

function GetInetFiles(URL,Text, SaveFolder: string; IDHTP: TIDHTTP): Boolean;
var
  I: Integer;
  S: String;
  L: TStringList;
  M: TMemoryStream;
begin
  Result:= False;
  S:= URL +'/'+ Text;
  L:= TStringList.Create;
  M:= TMemoryStream.Create;
 try

  if URL = '' then
  ShowMessage('Введите URL адрес !')
  else begin
  IDHTP.Get(S,M);
  M.SaveToFile('ss.txt');
  L.LoadFromFile('ss.txt');
  M.Clear;
  end;

 finally
  for I:= 0 to L.Count -1 do begin
  IDHTP.Get(URL + '/' + L.Strings[i], M);
  M.SaveToFile(SaveFolder + ExtractFileName(L[i]));
  Application.ProcessMessages;
end;
  L.Free;
  M.Free;
  Result:= True;
end;
end;

// Эту функцию мы итак юзаем ниже:

 if GetInetFiles('http:// вашь сайт','название txt файла','папка сохранения',IDHTTP1)  then
 ShowMessage('Скачивание прошло успешно !')
 else
 ShowMessage('Скачивание завершилось с неудачей !')

http:// вашь сайт - ну уж это должно быть понятно!

Читать хоть побывали или что я там написал ??????
название txt файла - этот файл лежит на каком нить хосте(сайте) и там находятся все ссылки !!!

папка сохранения - Папка куда сохранять скаченные файлы


Пример:

procedure TForm1.btn1Click(Sender: TObject);
begin
 if GetInetFiles('http://site.ru','files.txt','C:\',IDHTTP1)  then
 ShowMessage('Скачивание прошло успешно !')
 else
 ShowMessage('Скачивание завершилось с неудачей !');
end;

Если вам это не понятно, то тогда почитайте с начало умных книжок, которых здесь на форуме пруд пруди или идите в раздел ФРИЛАНС - вам там программу напишут за рубли или америконские кубрики !

[jkpro]

Ну раставлять визде восклицаетльные знакие (такая палочка над точкой) не нужно насчет файлы вы меня недопоняли файл должен лежать в ПАПКЕ С ПРОГРАММОЙ хотя файл с сервера тоже интересно, спасибо учту так что если кто то знает как написать такой код который бы считывал текстовый файл с папки с программой а потом сохранял именно в папку с программой прошу написать тут.

[uberchel]

Если надо, что бы файл лежал в папке с программой, вот этот кусок надо изменить так - это средний кусок кода процедуры GetInetFiles

 
 if URL = '' then
  ShowMessage('Введите URL адрес !')
  else
  L.LoadFromFile('ss.txt');

[jkpro]

Спасибо попытаюсь розобрацо