| 57 |
implementation |
implementation |
| 58 |
|
|
| 59 |
uses |
uses |
| 60 |
Giko, BoardGroup, RoundData, Math; |
Giko, BoardGroup, RoundData, Math, GikoDataModule; |
| 61 |
|
|
| 62 |
{$R *.DFM} |
{$R *.DFM} |
| 63 |
|
|
| 71 |
RoundItem: TRoundItem; |
RoundItem: TRoundItem; |
| 72 |
begin |
begin |
| 73 |
{$IF Defined(FRCRND) } |
{$IF Defined(FRCRND) } |
| 74 |
Giko.GikoForm.LoginAction.Checked := true; // 動作試験用途 |
GikoDM.LoginAction.Checked := true; // 動作試験用途 |
| 75 |
{$IFEND} |
{$IFEND} |
| 76 |
|
|
| 77 |
{$IFNDEF LOOSENUP} //巡回制限を緩めることにしてたら{$ELSE}の方を使う |
{$IFNDEF LOOSENUP} //巡回制限を緩めることにしてたら{$ELSE}の方を使う |
| 78 |
if not Giko.GikoForm.LoginAction.Checked then begin |
if not GikoDM.LoginAction.Checked then begin |
| 79 |
if GikoSys.Setting.UserID <> '' then begin |
if GikoSys.Setting.UserID <> '' then begin |
| 80 |
msg := 'ログインしないと巡回は出来ません' + #13#10 |
msg := 'ログインしないと巡回は出来ません' + #13#10 |
| 81 |
+ '今ログインしますか'; |
+ '今ログインしますか'; |
| 82 |
if MsgBox(Handle, msg, '確認', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin |
if MsgBox(Handle, msg, '確認', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin |
| 83 |
Exit; |
Exit; |
| 84 |
end; |
end; |
| 85 |
Giko.GikoForm.LoginAction.Execute; |
GikoDM.LoginAction.Execute; |
| 86 |
end; |
end; |
| 87 |
if not Giko.GikoForm.LoginAction.Checked then begin |
if not GikoDM.LoginAction.Checked then begin |
| 88 |
msg := 'ログインしないと巡回は出来ません'; |
msg := 'ログインしないと巡回は出来ません'; |
| 89 |
MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP); |
MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP); |
| 90 |
Exit; |
Exit; |
| 92 |
end; |
end; |
| 93 |
{$ELSE} |
{$ELSE} |
| 94 |
//規制を緩めたほうは、スレ一覧のみ巡回可能 |
//規制を緩めたほうは、スレ一覧のみ巡回可能 |
| 95 |
if not Giko.GikoForm.LoginAction.Checked then begin |
if not GikoDM.LoginAction.Checked then begin |
| 96 |
if GikoSys.Setting.UserID <> '' then begin |
if GikoSys.Setting.UserID <> '' then begin |
| 97 |
msg := 'ログインしないとスレッドの巡回は出来ません' + #13#10 |
msg := 'ログインしないとスレッドの巡回は出来ません' + #13#10 |
| 98 |
+ '今ログインしますか'; |
+ '今ログインしますか'; |
| 99 |
if MsgBox(Handle, msg, '確認', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin |
if MsgBox(Handle, msg, '確認', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin |
| 100 |
Exit; |
Exit; |
| 101 |
end; |
end; |
| 102 |
Giko.GikoForm.LoginAction.Execute; |
GikoDM.LoginAction.Execute; |
| 103 |
end; |
end; |
| 104 |
end; |
end; |
| 105 |
//●なし巡回は15分以上の間隔を必要とする |
//●なし巡回は15分以上の間隔を必要とする |
| 106 |
if not Giko.GikoForm.LoginAction.Checked then begin |
if not GikoDM.LoginAction.Checked then begin |
| 107 |
if CompareTime(GikoForm.LastRoundTime, Now, 30) then begin |
if CompareTime(GikoForm.LastRoundTime, Now, 30) then begin |
| 108 |
msg := '一度巡回すると30分間巡回は出来ません'; |
msg := '一度巡回すると30分間巡回は出来ません'; |
| 109 |
MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP); |
MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP); |
| 122 |
|
|
| 123 |
{$IFNDEF LOOSENUP} |
{$IFNDEF LOOSENUP} |
| 124 |
//●なし巡回は1度に100個までにする |
//●なし巡回は1度に100個までにする |
| 125 |
if not Giko.GikoForm.LoginAction.Checked then begin |
if not GikoDM.LoginAction.Checked then begin |
| 126 |
if cnt > 100 then begin |
if cnt > 100 then begin |
| 127 |
msg := '100個以上は一度に巡回できません'; |
msg := '100個以上は一度に巡回できません'; |
| 128 |
MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP); |
MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP); |
| 153 |
if not RoundItem.BoolData then Continue; |
if not RoundItem.BoolData then Continue; |
| 154 |
{$IFDEF LOOSENUP} |
{$IFDEF LOOSENUP} |
| 155 |
//●なし巡回はスレッドはできないことにする |
//●なし巡回はスレッドはできないことにする |
| 156 |
if not Giko.GikoForm.LoginAction.Checked then begin |
if not GikoDM.LoginAction.Checked then begin |
| 157 |
msg := 'ログインしないとスレッドの巡回はできません。'; |
msg := 'ログインしないとスレッドの巡回はできません。'; |
| 158 |
MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP); |
MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP); |
| 159 |
break; |
break; |