[Помогите!] IDFTP в Delphi 7

[Fizerator]

Доброго времени и суток!
У меня возник такой вопросик!
Как в IDFTP в Delphy 7 при закачивании файла на сервер внести в имя файла сегодняшнюю дату
Вот код
IdFTP1.Put('путь к файлу', 'название файла на сервере', true);
Имеется в виду к примеру
IdFTP1.Put('c:\1.txt', '1 (и как сюда программно вписать дату которая в момент запуска программы высвечивается на компе?).txt', true);
С нетерпением жду ответа!

[Dinmaite]

Гугл великий подсказывает что так:
[Ссылки могут видеть только зарегистрированные пользователи. ]

А вообще тему иначе надо было назвать, к примеру "как получить текущее время?".

[Fizerator]

Ладно, Ок спс за помощь!
Но теперь возник более новый вопрос!!!
Ведь файлы с символом двоеточия нельзя называть...
Если к примеру вот так!

Цитата: procedure TForm4.Button1Click(Sender: TObject); var today : TDateTime; begin today := Now; Form4.IdFTP1.Host:= ''; Form4.IdFTP1.Port:=21; Form4.IdFTP1.Username:=''; Form4.IdFTP1.Password:=''; Form4.IdFTP1.Connect; Form4.IdFTP1.ChangeDir('123'); Form4.IdFTP1.Put('c:\1.txt', TimeToStr(today)+'1.txt', true); Form4.IdFTP1.Disconnect;

То программа выдает ошибку Bad File Name т.к. в название файла я вписываю двоеточие! Как это исправить?!

[Dinmaite]

Предварительно обработать строку

Цитата: Сообщение от Fizerator TimeToStr(today)

как вариант.

[Fizerator]

Огромное спасибо Dinmaite за помощь... Вот что получилось

Цитата: procedure TForm4.Button1Click(Sender: TObject); var s:string; today : TDateTime; begin today := Now; s:=sysutils.TimeToStr(today); delete(s, 3, 1); delete(s, 5, 1); Form4.IdFTP1.Host:= ''; Form4.IdFTP1.Port:=21; Form4.IdFTP1.Username:=''; Form4.IdFTP1.Password:=''; Form4.IdFTP1.Connect; Form4.IdFTP1.ChangeDir('123'); Form4.IdFTP1.Put('c:\1.txt', s+'1.txt', true); form4.IdFTP1.Disconnect;