|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Скачивание файла и сохранение в папке с прогой
Не могу никак разобраться, как скачать файл и сохранить его рядом с программой? Примеры что нашел в сети не работают. Пишу в Delphi7.
Подскажите пожалуйста как скачивать обновлённый файл *.ini с заменой старого и сохранением в папке с программой? |
#2
|
||||
|
||||
ты хоть фрагмент кода покажи, там видно будет где ошибка
уволен в запас!!! |
#3
|
|||
|
|||
Код:
procedure TForm1.Button2Click(Sender: TObject); var LoadStream: TMemoryStream; begin LoadStream := TMemoryStream.Create; // выделение памяти под переменную idHTTP1.Get(Edit5.Text, LoadStream); // загрузка в поток данных из сети LoadStream.SaveToFile(Edit6.Text); // сохраняем данные из потока на жестком диске LoadStream.Free; // освобождаем память end; При нажатии на кнопку сразу ошибка (абракадабра) и всё. |
#4
|
|||
|
|||
Нашел здесь на форуме подходящий вариант, но и он не работает.
Код:
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 и всё. Что делать? |
#5
|
||||
|
||||
Код:
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; Пишу программы за еду. __________________ |
#6
|
|||
|
|||
Всё равно выделяется красным IdTCPServer.
|
#7
|
||||
|
||||
у меня в примере нет IdTCPClient и IdTCPServer
Пишу программы за еду. __________________ |
#8
|
|||
|
|||
Цитата:
IdHTTP ведь берётся из палитры Indy Clients ? |
#9
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
#10
|
|||
|
|||
Вот что после запуска появляется
|
#11
|
||||
|
||||
Перебилди все.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#12
|
|||
|
|||
Цитата:
|
#13
|
||||
|
||||
Поставь нормальную версию дельфи с инди.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#14
|
|||
|
|||
Цитата:
|
#15
|
||||
|
||||
код из 5-го сообщения в пустом проекте компилируется/работает?
Пишу программы за еду. __________________ |