Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> команда Dir, вывод даты создания текстового файла 
V
    Опции темы
Martisha
Дата 1.12.2008, 10:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1
почему то когда делаю так:
Код

procedure TForm1.ScanFolderForTxt(Folder: String);
var
  Data: TWin32FindData;
  Res: DWORD;
  SysTime: TSystemTime;
  S: String;
  Date: TDateTime;
begin
  IncludeTrailingPathDelimiter(Folder);
  Res := FindFirstFile(PChar(Folder + '*.txt'), Data);
  if Res <> INVALID_HANDLE_VALUE then
  try
    with Form1.ListBox1.Items do
    begin
      BeginUpdate;
      try
        repeat
          FileTimeToSystemTime(Data.ftCreationTime, SysTime);
          Date := SystemTimeToDateTime(SysTime);
          S := Folder + Data.cFileName + ' (Время создания: ' + DateToStr(Date) + ')';
          Add(S);
        until not FindNextFile(Res, Data);
      finally
        EndUpdate;
      end;
    end;
  finally
    Windows.FindClose(Res);
  end;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
 ScanFolderForTxt('c:\ROU99STAT');
end;


после выполнения
Код

  if Res <> INVALID_HANDLE_VALUE then

идет сразу в конецпроцедуры..
а если я комментю это выражение, то выводит в ListBox название папки а не файла и дату странную..год вообще нет тот((
почему так?
PM MAIL ICQ   Вверх
aleksh
Дата 1.12.2008, 11:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 609
Регистрация: 8.7.2008

Репутация: 1
Всего: 13
попробуй не комментить, а поставить тело цикла, после repeat первой строчкой
PM MAIL   Вверх
CodeMonkey
Дата 1.12.2008, 11:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89
Код
Folder := IncludeTrailingPathDelimiter(Folder);
?


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Martisha
Дата 1.12.2008, 13:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1
Цитата(aleksh @  1.12.2008,  11:15 Найти цитируемый пост)
попробуй не комментить, а поставить тело цикла, после repeat первой строчкой 

так ошибки вылазят

Цитата(CodeMonkey @  1.12.2008,  11:34 Найти цитируемый пост)
код Pascal/Delphi
1:

Folder := IncludeTrailingPathDelimiter(Folder);




? 

а так, выдает дату..только она почему то одинаковая для всех записей и совсем даже не та(

Добавлено через 3 минуты и 29 секунд
мне вообще даже не дата важнее а время создания файла, как нибудь возможно время вытащить? часы, минуты там...это важно, как не знаю( дату то я сама могу, а вот часы и минуты не знаю как.. smile 
PM MAIL ICQ   Вверх
aleksh
Дата 1.12.2008, 13:59 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 609
Регистрация: 8.7.2008

Репутация: 1
Всего: 13
в справке по типу TDateTime опмано как получать дату, а как время
PM MAIL   Вверх
Rrader
  Дата 1.12.2008, 14:15 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191
Цитата(Martisha @  1.12.2008,  19:04 Найти цитируемый пост)
только она почему то одинаковая для всех записей и совсем даже не та(

Проверьте и сравните эту дату с той, что в свойствах файла в проводнике. Должно совпадать.

Цитата(Martisha @  1.12.2008,  19:04 Найти цитируемый пост)
 как нибудь возможно время вытащить?

Код

procedure TForm1.ScanFolderForTxt(Folder: String);
var
  Data: TWin32FindData;
  Res: DWORD;
  SysTime: TSystemTime;
  LocalTime: TFileTime;
  S: String;
  Date: TDateTime;
begin
  Folder := IncludeTrailingPathDelimiter(Folder);
  Res := FindFirstFile(PChar(Folder + '*.txt'), Data);
  if Res <> INVALID_HANDLE_VALUE then
  try
    with Form1.ListBox1.Items do
    begin
      BeginUpdate;
      try
        repeat
          FileTimeToLocalFileTime(Data.ftCreationTime, LocalTime);
          FileTimeToSystemTime(LocalTime, SysTime);
          Date := SystemTimeToDateTime(SysTime);
          S := Folder + Data.cFileName + ' (Время создания: ' + TimeToStr(Date) + ')';
          Add(S);
        until not FindNextFile(Res, Data);
      finally
        EndUpdate;
      end;
    end;
  finally
    Windows.FindClose(Res);
  end;
end;


Это сообщение отредактировал(а) Rrader - 1.12.2008, 14:17


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
Martisha
Дата 1.12.2008, 14:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1
Rrader, так выводится текущее время, а не время создания папки  smile 

дату я так вывела, причем она выводится отдельно в другом ListBox-е, что удобнее для меня в дальнейшей работе..вот со временем только не понятно.. smile 
вот вывод даты создания папки:
Код

Procedure TForm1.ScanFolder(Dir:string);
Var
 SearchRec:TSearchRec;
begin
 try
  if Dir<>'' then Dir:=IncludeTrailingPathDelimiter(Dir);
  if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then
   repeat
      begin
       if AnsiUpperCase(ExtractFileExt(SearchRec.name)) = '.TXT' then
       begin
       EditFile(Dir+SearchRec.name);
       EditTime(DateToStr(FileDateToDateTime(SearchRec.Time)));
       end;
      end;
   until
  FindNext(SearchRec)<>0;
  FindClose(SearchRec);
 finally
 end;
end;

procedure TForm1.EditFile(FileName:string);
begin
  ListBox1.Items.add(filename);
 end;
procedure TForm1.EditTime(filetime:string);
begin
  ListBox3.Items.add(filetime);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 ScanFolder('c:\ROU99STAT');
end;


может что нибудь в моем коде добавить возможно для вывода времени? 
PM MAIL ICQ   Вверх
CodeMonkey
Дата 1.12.2008, 15:00 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89
Цитата(Martisha @  1.12.2008,  14:47 Найти цитируемый пост)
может что нибудь в моем коде добавить возможно для вывода времени?

DateToStr заменить на TimeToStr



--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Martisha
Дата 1.12.2008, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1
Цитата(CodeMonkey @  1.12.2008,  15:00 Найти цитируемый пост)
DateToStr заменить на TimeToStr

 smile точно!!!
пасибки всем)))
вопрос закрыт!  smile  
PM MAIL ICQ   Вверх
CodeMonkey
Дата 1.12.2008, 15:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89
Почему летнее время не интуитивно.

Добавлено @ 15:20
Цитата(Rrader @  1.12.2008,  14:15 Найти цитируемый пост)
Проверьте и сравните эту дату с той, что в свойствах файла в проводнике. Должно совпадать.

Неа, в первом варианте (как и Christoph) забыл из UTC перевести в местное время.

Добавлено @ 15:24
Цитата(Martisha @  1.12.2008,  15:06 Найти цитируемый пост)
вопрос закрыт!


1. Всё же используйте правильно try/finally:
Код
procedure TForm1.ScanFolder(Dir: String);
var
  SearchRec: TSearchRec;
begin
  if Dir <> '' then
    Dir := IncludeTrailingPathDelimiter(Dir);
  if FindFirst(Dir+'*.*', faAnyFile, SearchRec) = 0 then
  try
    repeat
      ...
    until FindNext(SearchRec) <> 0;
  finally
    FindClose(SearchRec);
  end;
end;


2. SearchRec.Time - это время в формате DOS. Оно имеет низкую точность. Если вы сравните вывод своей программы с тем, что показывает Проводник - то увидите разницу в несколько секунд по времени. Лучше бы вам использовать метку времени записанную в SearchRec.FindData.ftCreationTime - это точное время. 
Код
var
  LocalTime: TFileTime;
  SysTime: TSystemTime;
...
    repeat
       if AnsiUpperCase(ExtractFileExt(SearchRec.name)) = '.TXT' then
       begin
         FileTimeToLocalFileTime(SearchRec.FindData.ftCreationTime, LocalTime);
         FileTimeToSystemTime(LocalTime, SysTime);

         EditFile(Dir+SearchRec.name);
         EditTime(TimeToStr(SystemTimeToDateTime(SysTime)));
       end;     
    until FindNext(SearchRec) <> 0;
...


3. Кроме того, TSearchRec.Time эквивалентно TSearchRec.FindData.ftLastWriteTime - т.е. последней дате модификации, а вовсе не времени создания файла.

Это сообщение отредактировал(а) CodeMonkey - 1.12.2008, 15:52


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Martisha
Дата 1.12.2008, 15:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1
CodeMonkey, спасибо, учту  smile 
PM MAIL ICQ   Вверх
Martisha
Дата 1.12.2008, 15:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1
Цитата(CodeMonkey @  1.12.2008,  15:09 Найти цитируемый пост)
var
  LocalTime: TFileTime;
Код
  
SysTime: TSystemTime;
...
    repeat
       if AnsiUpperCase(ExtractFileExt(SearchRec.name)) = '.TXT' then
       begin
         FileTimeToLocalFileTime(SearchRec.FindData.ftCreationTime, LocalTime);
         FileTimeToSystemTime(LocalTime, SysTime);

         EditFile(Dir+SearchRec.name);
         EditTime(TimeToStr(SystemTimeToDateTime(SysTime)));
       end;     
    until FindNext(SearchRec) <> 0;

...



и все равно, так выдается не то время(..в принципе разница не существенна, так что пойдет и так!  smile 
PM MAIL ICQ   Вверх
Rrader
  Дата 1.12.2008, 16:00 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191
Цитата(CodeMonkey @  1.12.2008,  21:09 Найти цитируемый пост)
Неа, в первом варианте (как и Christoph) забыл из UTC перевести в местное время.

Блин, точно, и с Folder ошибсяsmile 


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
CodeMonkey
Дата 1.12.2008, 16:17 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89
Цитата(Martisha @  1.12.2008,  15:56 Найти цитируемый пост)
и все равно, так выдается не то время(..в принципе разница не существенна, так что пойдет и так!

А время создания часом не перепутали с временем последней модификации? SearchRec.Time - содержит именно время последней модификации и вы сказали, что этот вариант вас устроил. Но в самом вопросе вы просили время создания, поэтому вам написали с SearchRec.FindData.ftCreationTime - временем создания. 
Если всё же нужно время последней модификации, то берите ftLastWriteTime вместо ftCreationTime (ещё есть ftLastAccessTime - время последнего доступа).

Добавлено через 1 минуту и 12 секунд
Цитата(Martisha @  1.12.2008,  15:56 Найти цитируемый пост)
выдается не то время

Хорошо бы тогда показать, какое время выдаётся, какое вы ожидаете увидеть и почему вы ожидаете увидеть это время (где вы его узнали).


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Martisha
Дата 2.12.2008, 08:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1
CodeMonkey, почему то выдается время одинаковое для всех текстовых фалов..но ведь такого же не может быть!

Цитата(CodeMonkey @  1.12.2008,  16:17 Найти цитируемый пост)
Но в самом вопросе вы просили время создания, поэтому вам написали с SearchRec.FindData.ftCreationTime - временем создания. 

наверное я ошиблась в формулировке, но то, что получилось меня устраивает..
Цитата(CodeMonkey @  1.12.2008,  16:17 Найти цитируемый пост)
Если всё же нужно время последней модификации, то берите ftLastWriteTime вместо ftCreationTime 

обязательно попробую)

Добавлено через 6 минут и 7 секунд
CodeMonkey, 
Цитата(CodeMonkey @  1.12.2008,  16:17 Найти цитируемый пост)
ftLastWriteTime

действительно подошло))  smile 
PM MAIL ICQ   Вверх
Страницы: (4) Все 1 2 [3] 4 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0995 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.