Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.78 by h677, Sun Sep 13 15:09:07 2009 UTC revision 1.79 by h677, Tue Feb 22 13:37:51 2011 UTC
# Line 334  type Line 334  type
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);
# Line 2341  end; Line 2340  end;
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  // *************************************************************************  // *************************************************************************

Legend:
Removed from v.1.78  
changed lines
  Added in v.1.79

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26