PDA

Просмотр полной версии : [Помогите!] IDFTP в Delphi 7


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

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

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

Fizerator
19.11.2010, 16:38
Ладно, Ок спс за помощь!
Но теперь возник более новый вопрос!!!
Ведь файлы с символом двоеточия нельзя называть...
Если к примеру вот так!
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
19.11.2010, 18:24
Предварительно обработать строку
TimeToStr(today)
как вариант.

Fizerator
19.11.2010, 19:50
Огромное спасибо 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;