|
|
Регистрация | << Правила форума >> | 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
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
#8
|
|||
|
|||
Вот что после запуска появляется
|