[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]

у меня в примере нет IdTCPClient и IdTCPServer

[Trolly]

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

у меня в примере нет IdTCPClient и IdTCPServer

Я тоже не использую эти элементы, но прога ругается на них.
IdHTTP ведь берётся из палитры Indy Clients ?

[NumLock]

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

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

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

[Trolly]

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

[M.A.D.M.A.N.]

Перебилди все.

[Trolly]

Сообщение от M.A.D.M.A.N.

Перебилди все.

Чевось сделать?

[M.A.D.M.A.N.]

Поставь нормальную версию дельфи с инди.

[Trolly]

Сообщение от M.A.D.M.A.N.

Поставь нормальную версию дельфи с инди.

Какую нормальную? Я не понимаю, что значит нормальную...

[NumLock]

код из 5-го сообщения в пустом проекте компилируется/работает?