Потеря фокуса при обработке файлов

[Exact]

Странно, но больше причин не вижу (хотя не исключаю, что слепой), но судя по всему, когда программа delphi теряет фокус - она выдает ошибку I/O Error 6. Иногда "invalid floating point operation". Если фокус не менять, то программа может работать долго (очень долго) и никакиих ошибок не выдается.. Хотя и при смене фокуса не всегда вылетает, но если вылетает - то тогда, когда фокус менялся)

Суть программы - периодически (по таймеру) находится самый последний файл в каталоге, считывается самая последняя строчка и данные отправляются на сервер...

Как это исправить? Помогите пожалуйста

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdHTTP, ExtCtrls, Spin;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    Label2: TLabel;
    Button2: TButton;
    Label3: TLabel;
    SpinEdit1: TSpinEdit;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
DIR='PCsensor/TEMPer V23.3/Data/';

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var searchResult: TSearchRec;
    f: textfile;
    st: string;
    lastDateTemp: TDateTime ;
    dateTemp: TDateTime ;
    lastNameTemp: String;
    html:WideString;
    data: TStringList;
    http: TidHttp;
begin
Timer1.Enabled:=false;
lastNameTemp:='';
if FindFirst(DIR+'*', faAnyFile, searchResult) = 0 then
  begin
     repeat
       if (copy(searchResult.Name,Length(searchResult.Name)-3,Length(searchResult.Name))='.txt') then
       begin
          dateTemp:=FileDateToDateTime(FileAge(DIR+searchResult.Name));
          if (lastDateTemp<=dateTemp) then
          begin
            lastDateTemp:=dateTemp;
            lastNameTemp:=DIR+searchResult.Name;
          end;
        end;
     until FindNext(searchResult) <> 0;
    FindClose(searchResult);
    end;
     label2.caption:='Ôàéë: '+lastNameTemp;
    assignfile(f,lastNameTemp);
    {$I-}
    Reset(f);
    {$I+}
    if IOResult <> 0 then
    begin
      MessageDlg('Îøèáêà äîñòóïà ê ôàéëó ' + lastNameTemp,mtError,[mbOk],0);
      exit;
    end;
    while not eof(f) do
    begin
      {$I-}
      readln(f,st);
      {$I+}
      if IOResult <> 0 then
      begin
        MessageDlg('Îøèáêà äîñòóïà ê ôàéëó ' + lastNameTemp,mtError,[mbOk],0);
        exit;
      end;
    end;
    closefile(f);
    data:=TStringList.Create;
    data.add('t='+st);
    http:= TIdHTTP.Create(nil);
    st:=http.Post('http://chaiknet.ru/weather/temperature/',data);
    //st:=http.Post('http://www.mysite.ru/',data);
    data.Free;
    http.Free;
    label1.caption:='Äàííûå: '+st;
    Timer1.Enabled:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

Timer1.Interval := spinEdit1.value;
Timer1.Enabled := true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled := false;
end;

end.

[Johnson]

Формат файла приведите. Скажем, последние пару строк.
И каким, максимум, может быть размер файла (количество строк)?

[Exact]

Формат:

NO,Temp,Time
1,25,06,01.08.2012 0:40:36
2,24,94,01.08.2012 0:40:37
3,25,00,01.08.2012 0:40:38
4,25,00,01.08.2012 0:40:40
5,25,06,01.08.2012 0:40:42

Более 4000, точного значения не знаю

Если поможет ошибку invalid floatin дает на эту строку: dateTemp:=FileDateToDateTime(FileAg e(DIR+searchResult.Name));

[Johnson]

Я бы посоветовал взглянуть на TStringList.
Загрузка в него и использование явно организовано лучше, чем у Вас...

А если нужно строку разделять на параметры - то из каждого итема СтрингЛиста организовывать ещё один СтрингЛист с делимитером ",".

[Exact]

    AStrList := TStringList.Create;
    label2.caption:=lastNameTemp;
    try
      AStrList.LoadFromFile(lastNameTemp);
      st:=AStrList[AStrList.Count - 1];
    finally
      AStrList.Free;
    end; //try

Вот такой констркуцией делал.. Но тоже ошибку давал а потом вернул старой и не дает вроде как%) ниче не понимаю

[Johnson]

Что за ошибка-то?
На какой строке возникает?

Запустите программу под дебагом хотя бы (кнопка Run в дельфи).

[Exact]

"invalid floating point operation" дает на эту строку: dateTemp:=FileDateToDateTime(FileAg e(DIR+searchResult.Name));

[Johnson]

А зачем тебе конвертировать дату в TDateTime, если ты её выводить не собираешься ни куда, а только сравниваешь?

http://www.delphibasics.ru/FileAge.php

Оперируй с простыми типами и делай проверку на возврат значения -1

Ещё одно...

if (copy(searchResult.Name,Length(searchResult.Name)-3,Length(searchResult.Name))='.txt') then

Используй это http://www.delphibasics.ru/ExtractFileExt.php

А ещё лучше

FindFirst(DIR+'*.txt', faAnyFile, searchResult)

И сделай защиту от дурака в варианте, если файлы не будут найдены.

[Exact]

Спасибо, через часик попробую - отпишусь. Что странно, ошибка то возникает регулярно (каждую потерю фокуса), то её не дождешься и как будто её вовсе нет... В общем, буду пробовать и модифицировать. Спасибо за наводки и подсказки. А где можно инфу по Формату даты файла почитать, как получается это число, что это за тип такой? Чет я толковой инфы не нашел

[Johnson]

Я думаю, что потеря фокуса это косвенная причина. Хотя черт его знает, смотреть надо.

Есть мысль ещё, что IO ошибки были из-за того, что вы пытались открыть файл, который открыт уже другой програмой.