gikonavigoeson/gikonavi/SambaTimer.pas

unit SambaTimer;

interface

uses
        Windows, SysUtils, Classes, ExtCtrls,
    BoardGroup, GikoSystem;

type
    {
    \brief  Samba24絲丞??帥?ゃ???若??????/span>
    }
    TSambaTimer = class(TTimer)
    private
        FKey : string;
        FWriteDeta : TDateTime;
        FSambaInterval : Integer;
        procedure ReadSambaTime;
        procedure ReadSettingTime(Board: TBoard);
    public
        function SetBoard(Board : TBoard): integer;
        function CheckSambaTime(ATime: TDateTime): Boolean;
        procedure WriteSambaTime(ATime: TDateTime);
        procedure UpdateSambaSetting(Interval : Integer);
        function Update : TDateTime;
        property WriteDeta : TDateTime read FWriteDeta;
        property SambaInterval : Integer read FSambaInterval;
    end;

implementation

uses
    IniFiles, DateUtils;
{
\brief  ?泣?潟???帥?ゃ???惹?炊???沿┃絎?
\param  Board   ???鴻?????ｃ?帥????/span>
\return Samba??┃絎???/span>
}
function TSambaTimer.SetBoard(Board : TBoard): Integer;
begin
    Result := -1;
    Enabled := False;
    if (GikoSys.Setting.UseSamba) and (Board <> nil) then begin
        // ?帥??2ch????????????翫??鐚??帥?ゃ???若?????鴻??????
        if (Board.Is2ch) then begin
            ReadSettingTime(Board);
            ReadSambaTime;
            Interval := 500;
            Result := FSambaInterval;
        end;
    end;
end;
{
\brief Samba???絎??ゃ??茯??粋昭??
}
procedure TSambaTimer.ReadSettingTime(Board: TBoard);
var
        ini :TMemIniFile;
        Protocol, Host, Path, Document, Port, Bookmark : string;
begin
        Enabled := false; //腟?????域；腓?imer??Off??????
        ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
        try
        if (Board <> nil) then begin
            // ?障??BBSID?у???ャ??┃絎???????????????腆肴?????
            FKey := '@' + Board.BBSID;
            FSambaInterval := ini.ReadInteger('Setting', FKey, -1);
            if (FSambaInterval = -1) then begin
                // 荐?????????????????с???鴻??????┃絎??????ｃ?????
                GikoSys.ParseURI( Board.URL, Protocol, Host, Path, Document, Port, Bookmark );
                FKey := Copy(Host, 1, AnsiPos('.', Host) - 1);
                FSambaInterval := ini.ReadInteger('Setting', FKey, -1);
                        //荐?????????????????????????＜?ゃ?????吾????????
                        if FSambaInterval = -1 then begin
                    FSambaInterval := 0;
                            ini.WriteInteger('Setting', FKey, 0);
                            ini.UpdateFile;
                        end;
            end;
        end else begin
            FSambaInterval := ini.ReadInteger('Setting', FKey, -1);
        end;
        finally
                ini.Free;
        end;
        Enabled := true; //腟?????域；腓?imer??On??????
end;

{
\brief Samba.ini???吾??莨若?炊??????茯??粋昭??
}
procedure TSambaTimer.ReadSambaTime;
var
        ini :TMemIniFile;
begin
        Enabled := false; //腟?????域；腓?imer??Off??????
        ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
        try
                 //??絖????ц??水??ｃ????紊????∽?違??DateTime??/span>
                 FWriteDeta := ConvertDateTimeString(
                ini.ReadString('Send', FKey, ''));
        finally
                ini.Free;
        end;
        Enabled := true; //腟?????域；腓?imer??On??????
end;
{
\brief  Samba.ini????腟??吾??莨若?炊???????吾??莨若??
}
procedure TSambaTimer.WriteSambaTime(ATime: TDateTime);
var
        ini :TMemIniFile;
begin
        ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
        try
                ini.WriteDateTime('Send', FKey, ATime);
                ini.UpdateFile;
        finally
                ini.Free;
        end;
end;

{
\brief  ??腟??吾??莨若?炊??????憜??????罸?莠?????
\return ??鐚?荀鎘??や札筝????緒?荀鎘??ゆ???
}
function TSambaTimer.CheckSambaTime(ATime: TDateTime): Boolean;
var
        pastsec: double;
begin
        pastsec := SecondSpan(ATime, FWriteDeta);
        Result := (pastsec > FSambaInterval);
end;
{
\breif  ?帥?ゃ???惹???掩?贋??/span>
}
function TSambaTimer.Update : TDateTime;
begin
    ReadSettingTime( nil );
    ReadSambaTime;
    Result := Now();
end;
{
\biref  Samba荐???ゆ?贋??/span>
\param  Interval    荐????/span>
}
procedure TSambaTimer.UpdateSambaSetting(Interval : Integer);
var
        ini :TMemIniFile;
begin
        Enabled := false; //腟?????域；腓?imer??Off??????
        ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
        try
        FSambaInterval := Interval;
        ini.WriteInteger('Setting', FKey, FSambaInterval);
        ini.UpdateFile;
        finally
                ini.Free;
        end;
        Enabled := true; //腟?????域；腓?imer??On??????
end;

end.