Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

вывести дату обновления файла в Label   Найти похожие ветки 

 
ceval ©   (2004-05-10 19:01) [0]

Добрый вечер !
вывожу в  Label дату обновления файла из dbf-файла (FoxPro)
с использыванием функции:
function GetFileDate(FileName: string): string;
var  
FHandle: Integer;
begin  
FHandle := FileOpen(FileName, 0);  
try    
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));  
finally    
FileClose(FHandle);  
end;
end;
Мне выдает ошибку "Invalid argument to data encode"
Подскажите в чем может быть дело??
А может кто знает другой способ вывести дату обновления файла  в  Label??
Зарание спасибо!!


 
OlegGashev ©   (2004-05-10 19:45) [1]

function GetFileDate(FileName: string): string;
var
       FHandle: HFILE;
       ofstr:OFSTRUCT;
       creationtime,lastaccesstime,lastwritetime:FILETIME;
       creationsystime,lastaccesssystime,lastwritesystime:SYSTEMTIME;
begin
       FHandle := OpenFile(PChar(FileName),ofstr,GENERIC_READ);
       try
               GetFileTime(FHandle,@creationtime,@lastaccesstime,@lastwritetime);
               FileTimeToSystemTime(lastwritetime,lastwritesystime);
               Result := DateTimeToStr(SystemTimeToDateTime(lastwritesystime));
       finally
               CloseHandle(FHandle);
       end;
end;


 
OlegGashev ©   (2004-05-10 19:56) [2]

Забыл дописать

begin
    Result:="";
    ...........


 
ceval ©   (2004-05-11 17:15) [3]

Простите за детский вопрос
Но мне не разу не приходилось использывать функцию
Подскажите пожалуста как ее вывести в Label
Зарание спасибо!!


 
WebErr ©   (2004-05-11 17:24) [4]

Гы! :)

Label666.Caption := GetFileDate("some.dbf"); // or like this


 
ceval ©   (2004-05-11 17:31) [5]

Большущие Спасибо WedErr !!!
Я недавно пытаюсь программировать на Delphi


 
WebErr ©   (2004-05-11 17:33) [6]


> ceval ©   (11.05.04 17:31) [5]

Удачи, это самая простая и приятная среда обитания для программера! :))))


 
Mim1 ©   (2004-05-11 17:50) [7]

[4] WebErr ©   (11.05.04 17:24)

Мне вот интересно, ты хоть иногда думаеш над ответами? Может лучше совсем не отвечать чем отвечать неправильно?



Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.033 c
14-1083583183
ИМХО
2004-05-03 15:19
2004.05.23
Лоуренс Аравийский


3-1082978751
john
2004-04-26 15:25
2004.05.23
Подскажите запрос


11-1069253620
Alexander Kolesnikov
2003-11-19 17:53
2004.05.23
oracle


3-1083138302
MaD
2004-04-28 11:45
2004.05.23
Замена значений полей по условию при SQL-выборке


3-1083326791
Mister
2004-04-30 16:06
2004.05.23
MySQL