Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как узнать? / 11 сообщений из 11, страница 1 из 1
26.11.2003, 09:55
    #32334916
SASH2
SASH2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать?
Есть dbf файлы, которые находятся на серверах в определенных папках.
Ежемесячно эти dbf файлы обновляются.

Как узнать обновились - ли файлы (т. е. вывести какое - то сообщение в программе, что файлы обновлены) и если обновились, то скопировать их к себе?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2003, 10:10
    #32334938
Могун
Могун
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать?
Репликацией на уровне ОС
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2003, 10:19
    #32334951
ova
ova
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать?
А чего нельзя просто посмотреть дату изменения файла?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2003, 10:21
    #32334956
SASH2
SASH2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать?
А как это можно описать программно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2003, 11:01
    #32335012
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать?
посмотреть атрибуты файла
только ен спрашивай как... посмотри хелп, а? там все более чем подробно описано
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2003, 13:52
    #32335364
SASH2
SASH2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать?
А Можно проверять дату (файл .dbf пересоздается), например,
с помощью FileAge() или FileGetDate()???
Если это возможно то как???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2003, 16:43
    #32335756
Rusia
Rusia
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать?
BRus

А если замутить цикл, который бы пробигал по всему DBF фаилу и сравнивалсы с старым DBF фаилом. Только есле эта база большая, просто займет время.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.11.2003, 06:45
    #32336176
SASH2
SASH2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать?
А как его замутить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.11.2003, 07:12
    #32336193
JibSkeart
JibSkeart
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать?
а что подругому организовать все это нельзя ???

Ежемесячно эти dbf файлы обновляются.
как обновляются ?

Прихдит человек с дискеткой и перекидывает новые файлы ?? (допустим)



-------------

Смотрим время создания изменения файла

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
var
 Handle: HFILE;
 FTime: TFileTime;
 STime: TSystemTime;
begin
 Handle := CreateFile(PChar('ssearch.txt'), GENERIC_READ, FILE_SHARE_READ,
nil, OPEN_EXISTING,  0 ,  0 );
 GetFileTime(Handle, @FTime, nil, nil);
 FileTimeToSystemTime(FTime, STime);
 CloseHandle(Handle);
 with STime do 
  ShowMessageFmt('Дата создания файла: %.2d.%.2d.%.4d', [wDay, wMonth, wYear]);
end;


надеюсь как пробежатся по всем (или какимто)
файлам в каталоге обьяснять не надо ?



_____________
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2003, 14:47
    #32340834
SASH2
SASH2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать?
Ругается на эту строчку:

FileTimeToSystemTime(FTime, STime);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2003, 15:00
    #32340861
SASH2
SASH2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать?
Пасибо!!! Разобрался!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как узнать? / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]