[Trolly]

Не могу никак разобраться, как скачать файл и сохранить его рядом с программой? Примеры что нашел в сети не работают. Пишу в Delphi7.
Подскажите пожалуйста как скачивать обновлённый файл *.ini с заменой старого и сохранением в папке с программой?

[RusMaXXX]

ты хоть фрагмент кода покажи, там видно будет где ошибка

[Trolly]

Код:

procedure TForm1.Button2Click(Sender: TObject);
var LoadStream: TMemoryStream; 
begin
 LoadStream := TMemoryStream.Create; // выделение памяти под переменную
 idHTTP1.Get(Edit5.Text, LoadStream); // загрузка в поток данных из сети
 LoadStream.SaveToFile(Edit6.Text); // сохраняем данные из потока на жестком диске
 LoadStream.Free; // освобождаем память
end;

При нажатии на кнопку сразу ошибка (абракадабра) и всё.

[Trolly]

Нашел здесь на форуме подходящий вариант, но и он не работает.

Код:

procedure TForm1.Button1Click(Sender: TObject);
fs: TFileStream;
begin
fs:=TFileStream.Create('Setting.txt', fmCreate);
IdHTTP.Get('https://dl.dropbox.com/u/70247065/Setting.txt', fs);
fs.Free;
end;

Выделяется красным IdTCPServer и всё. Что делать?

[NumLock]

Код:

var
  FileStream: TFileStream;
begin
  FileStream:=TFileStream.Create('Setting.txt', fmCreate);
  try
    IdHTTP1.Get('http://dl.dropbox.com/u/70247065/Setting.txt', FileStream);
  finally
    FileStream.Free;
  end;
end;

[Trolly]

Всё равно выделяется красным IdTCPServer.

[NumLock]

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

Выделяется красным IdTCPServer

покажи на картинке

[Trolly]

Вот что после запуска появляется