[alikoder]

Не так давно столкнулся с проблемой =)
Итак Дано:
есть программа, есть таймер, есть файл в одном каталоге с программой.
Решить:
Как отслеживать при помощи таймера, размер файла и вслучае если он
станет например размером 10kb сделать что либо, например вывести сообщение!

[sunlit]

По поводу размера файла можно взять тут

[alikoder]

я использую

function GetFileSize(const strFileName: String): LongInt;
var WFD: TWin32FindData; hFile: THandle;
begin
hFile := FindFirstFileA(PChar(strFileName), WFD);
Result := WFD.nFileSizeLow;
FindClose(hFile);
end;

Мне бы имено понять, как отслеживать при помощи таймера, размер файла и дождаться размера 10kb
но спасибо за ответ=)

[Konrad]

Просто прописываешь проверку в событии онТаймер и с интервалом скажем в полсекнуды(настроишь в зависимости от ситуации) он будет выполнять её.

[alikoder]

где ошибся?

procedure TimeCallback2(TimerID,Msg : UINT; dwUser,dw1,dw2 : DWord);
var
F:Textfile;
API_SMTP: TNVLightSMTP;
i:integer;
begin
i:=GetFilesize(S_lgname);
if i= S_lgsize then
Mailsend;

[Konrad]

Вот что нагородил):

PHP код:

procedure TForm1.Timer1Timer(Sender: TObject);
function GetFileSize(const strFileName: String): LongInt;
var
WFD: TWin32FindData;
hFile: THandle;
begin
hFile := FindFirstFileA(PChar(strFileName), WFD);
Result := WFD.nFileSizeLow;
//FindClose(hFile);
end;
var
s,fa:string;
begin
s:='C:\Program Files\Borland\Delphi7\Projects\sizeee';
fa:='Текстовый файл.txt';
s:=s+'\'+fa;
memo1.lines.add('File size = '+inttostr(GetFileSize(s))+ ';' );

end; 


Проверку не ставил, это дело техники.

Может правда есть и более рациональные способы решения такой задачи.

Нужно смотреть уже по обстоятельствам.

[lmikle]

Сообщение от alikoder

где ошибся?

Код:

if filesize >= 10*1024 then ShowMessage('!!!');