| 334 |
procedure TabsSaveActionExecute(Sender: TObject); |
procedure TabsSaveActionExecute(Sender: TObject); |
| 335 |
procedure TabsOpenActionExecute(Sender: TObject); |
procedure TabsOpenActionExecute(Sender: TObject); |
| 336 |
procedure BeLogInOutActionExecute(Sender: TObject); |
procedure BeLogInOutActionExecute(Sender: TObject); |
|
procedure BeLogInOutActionUpdate(Sender: TObject); |
|
| 337 |
procedure KokomadeActionExecute(Sender: TObject); |
procedure KokomadeActionExecute(Sender: TObject); |
| 338 |
procedure ZenbuActionExecute(Sender: TObject); |
procedure ZenbuActionExecute(Sender: TObject); |
| 339 |
procedure KokoResActionExecute(Sender: TObject); |
procedure KokoResActionExecute(Sender: TObject); |
| 2340 |
//! Be2chにログイン/ログアウトする |
//! Be2chにログイン/ログアウトする |
| 2341 |
// ************************************************************************* |
// ************************************************************************* |
| 2342 |
procedure TGikoDM.BeLogInOutActionExecute(Sender: TObject); |
procedure TGikoDM.BeLogInOutActionExecute(Sender: TObject); |
| 2343 |
|
var |
| 2344 |
|
TmpCursor: TCursor; |
| 2345 |
|
msg : String; |
| 2346 |
begin |
begin |
| 2347 |
GikoSys.Setting.BeLogin := not GikoSys.Setting.BeLogin; |
if GikoSys.Belib.Connected then begin |
| 2348 |
end; |
//ログアウト |
| 2349 |
// ************************************************************************* |
GikoSys.Belib.Disconnect; |
| 2350 |
//! Be2chにログイン/ログアウトするのUpdateイベント |
BeLogInOutAction.Checked := False; |
| 2351 |
// ************************************************************************* |
GikoForm.AddMessageList(GikoSys.GetGikoMessage(gmBeLogout), nil, gmiOK); |
| 2352 |
procedure TGikoDM.BeLogInOutActionUpdate(Sender: TObject); |
end else begin |
| 2353 |
begin |
TmpCursor := GikoForm.ScreenCursor; |
| 2354 |
if (GikoSys.Setting.BeUserID <> '') and (GikoSys.Setting.BeCode <> '') then begin |
GikoForm.ScreenCursor := crHourGlass; |
| 2355 |
if (GikoSys.Setting.BeLogin) then BeLogInOutAction.Checked := true |
try |
| 2356 |
else BeLogInOutAction.Checked := false; |
GikoSys.Belib.ClientUA := 'gikoNavi/1.00'; |
| 2357 |
BeLogInOutAction.Enabled := true |
GikoSys.Belib.UserName := GikoSys.Setting.BeUserID; |
| 2358 |
end else |
GikoSys.Belib.Password := GikoSys.Setting.BePassword; |
| 2359 |
BeLogInOutAction.Enabled := false; |
if GikoSys.Setting.ReadProxy then begin |
| 2360 |
|
GikoSys.Belib.ProxyAddress := GikoSys.Setting.ReadProxyAddress; |
| 2361 |
|
GikoSys.Belib.ProxyPort := GikoSys.Setting.ReadProxyPort; |
| 2362 |
|
end else begin |
| 2363 |
|
GikoSys.Belib.ProxyAddress := ''; |
| 2364 |
|
GikoSys.Belib.ProxyPort := 0; |
| 2365 |
|
end; |
| 2366 |
|
if GikoSys.Belib.Connect then begin |
| 2367 |
|
GikoForm.AddMessageList(GikoSys.GetGikoMessage(gmBeLogin) + GikoSys.Setting.BeUserID, nil, gmiOK); |
| 2368 |
|
BeLogInOutAction.Checked := True; |
| 2369 |
|
end else begin |
| 2370 |
|
GikoForm.AddMessageList(GikoSys.Belib.ErrorMsg, nil, gmiNG); |
| 2371 |
|
GikoForm.PlaySound('Error'); |
| 2372 |
|
BeLogInOutAction.Checked := False; |
| 2373 |
|
end; |
| 2374 |
|
finally |
| 2375 |
|
GikoForm.ScreenCursor := TmpCursor; |
| 2376 |
|
end; |
| 2377 |
|
end; |
| 2378 |
end; |
end; |
| 2379 |
////////////////////////////////ファイルまでおしまい///////////////////// |
////////////////////////////////ファイルまでおしまい///////////////////// |
| 2380 |
// ************************************************************************* |
// ************************************************************************* |