Вопрос № 41059: Здравствуйте, у меня есть текстовый фаил на ftp сервере. В нём хранится некий текст.
1.Как мне можно дописать несколько строк к этому файлу.
2.Потом как мне считать все строки (например в memo1)
3.Удалить текст из файла!!!!Но не удалять ...Вопрос № 41073: Очень люблю поспать по утрам и недавно, когда надо было вставать как никогда рано, я написала маленькую программу-будильник.
Сначала завела его на пару минут вперёд - сработал, а потом на нужное мне время... И на следующее утро он не сработа...
Вопрос № 41.059
Здравствуйте, у меня есть текстовый фаил на ftp сервере. В нём хранится некий текст.
1.Как мне можно дописать несколько строк к этому файлу.
2.Потом как мне считать все строки (например в memo1)
3.Удалить текст из файла!!!!Но не удалять сам фаил!!!просто чтобы фаил остался пустым
Спасибо
Отправлен: 23.04.2006, 03:13
Вопрос задал: Toxic~Fire (статус: 2-ой класс)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Устинов Сергей Евгеньевич
Здравствуйте, Toxic~Fire!
На вкладке Indy Clients есть компонент IdFTP.
С его помощью соединяещься с FTP сервером и все операции проводишь через этот компонент.
1. По моему дописать в этот файл нельзя. Нужно сделать локальную копию этого файла у себя на компьютер (через тот же IdFTP), его изменить, а потом закачать на сервер.
2. Опять же делаешь локальную копию файла и его уже считываешь в Memo1:
Memo1.Lines.LoadFromFile(LocalFile);
3. Закачиваешь на сервер файл с тем же именем, но пустой.
--------- Ответы на все вопросы - на сайте www.ya.ru :)
Ответ отправил: Устинов Сергей Евгеньевич (статус: 4-ый класс)
Ответ отправлен: 23.04.2006, 12:57 Оценка за ответ: 4 Комментарий оценки: Я так всегда и делал, просто думал, что есть более простой способ. Но всё равно - СПАСИБО!
Вопрос № 41.073
Очень люблю поспать по утрам и недавно, когда надо было вставать как никогда рано, я написала маленькую программу-будильник.
Сначала завела его на пару минут вперёд - сработал, а потом на нужное мне время... И на следующее утро он не сработал.
Кажется он чувствителен к активности/неактивности своего окна, а ещё нельзя сворачивать. Пожалуйста помогите исправить недостатки.
Отвечает: Лукьяненко Алексей Валериевич
Здравствуйте, Shizuku Tsukishima!
Во-первых, очень смущает строка "if str=maskedit1.Text then " - а если вы случайно допишете пробел - где угодно? При вводе времени нужно преобразовывать введенную строку в тип TDateTime. Далее, при срабатывании таймера проверять не на равенство, а на близость значений, из-за погрешности таймера, нажатий на кнопку, занятости процессора и др. факторов:
var
AlarmTime: TDateTime;
.....
procedure TForm1.Timer1Timer(Sender: TObject);
var
CurrTime: TDateTime;
begin
CurrTime := Time;
if (SecondSpan(AlarmTime, CurrTime) < 20) and
(CurrTime >= AlarmTime) then
{ а здесь - сам будильник}
end;
Отвечает: Устинов Сергей Евгеньевич
Здравствуйте, Shizuku Tsukishima!
Написано вроде бы правильно, вот только одна проблема: если у вас интервал срабатывания таймера равен 1000 (1 секунда), то именно на необходимую секунду он может пропустить тот момент, когда текущее время равно времени пробуждения.
Поставьте интервал таймера 500 милисекунд и все будет работать нормально.
--------- Ответы на все вопросы - на сайте www.ya.ru :)
