svn/view/NicoVitanD_Login.pas

unit NicoVitanD_Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RegularExpressions, IniFiles, ExtCtrls, IdIOHandler,
  IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  IWURLResponderBase, IWURLResponder, xmldom, XMLIntf, msxmldom, XMLDoc,
  IdCookieManager,Filectrl,ShlObj;

type
  TLoginForm = class(TForm)
    LoginOkBtn: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    LoginCancelBtn: TButton;
    BrowserChoiceCBox: TComboBox;
    CookieButton: TButton;
    ErrorLbl: TLabel;
    MailEdit: TLabeledEdit;
    PasswordEdit: TLabeledEdit;
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    BrowserInfo: TLabel;
    Memo1: TMemo;
    XMLDocument1: TXMLDocument;
    IdCookieManager1: TIdCookieManager;
    procedure LoginCancelBtnClick(Sender: TObject);
    procedure LoginOkBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PasswordEditChange(Sender: TObject);
    procedure CookieButtonClick(Sender: TObject);
    procedure BrowserChoiceCBoxChange(Sender: TObject);
    procedure MozillaCookies(SoftName:string);
  private
    { Private ���� }
  public
    { Public ���� }
  end;

var
  LoginForm: TLoginForm;
  LoginMail: string;
  LoginPass: ShortString;


implementation

{$R *.dfm}

uses HTTPApp, IdGlobalProtocols;


procedure TLoginForm.BrowserChoiceCBoxChange(Sender: TObject);
begin
  CookieButton.SetFocus;   //  �g�����������������t�H�[�J�X������
end;

// �u���E�U�[(Cookie)���I��
procedure TLoginForm.CookieButtonClick(Sender: TObject);
var
  BrowserNum : ShortInt;
  val : string;
begin
  // BrowserChoiceCBox ���I���������������o case���H
  BrowserNum := BrowserChoiceCBox.ItemIndex;
  case BrowserNum of
    0 : ShowMessage('Internet Explorer �����������\��');  // Internet Explorer ������
    1 : begin
          ShowMessage('Firefox ���I������������');                          // Firefox ������
          ShowMessage('Firefox2 ���I������������');
        end;
    2 : ShowMessage('SeaMonkey ���I������������');                        // SeaMonkey ������
    3 : ShowMessage('Opera �����������\��');                              // Opera ������
    4 : ShowMessage('Google Chrome �����������\��');                      // Google Chrome ������
    else
      begin
        ShowMessage('�����I��������������');
      end;
  end;

  val := BrowserChoiceCBox.Items[BrowserChoiceCBox.ItemIndex];
  ShowMessage(val);


//  close;
end;

procedure TLoginForm.FormCreate(Sender: TObject);  // ���O�C���t�H�[����������������
var
  Ini: TIniFile;

begin
  LoginOkBtn.Enabled := False; // �uOK�v��������
  ErrorLbl.Caption := '';      //  ���\��
  BrowserInfo.Caption := '';

  // ini�t�@�C���������A�h������������
  Ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
  try
    MailEdit.Text := ini.ReadString('Login','Mail', LoginMail);
    PasswordEdit.Text := ini.ReadString('Login','Pass', LoginPass);
  finally
    Ini.Free;
  end;
   
end;

procedure TLoginForm.LoginCancelBtnClick(Sender: TObject);
begin

  //  �����t�@�C�������[���A�h���X������������������������������
  if MailEdit.Text = '' then
     MailEdit.Text := ''
  else
     PasswordEdit.Text := '';
  Close;
end;

procedure TLoginForm.LoginOkBtnClick(Sender: TObject);  //  ���C������
var
  Ini: TIniFile;

  ResStrm: TMemoryStream;
  PostData: TStringList;
  url : string;

  LoginApi_A : IXMLNodeList;
  LoginApi_B : IXMLNodeList;
  tickets : string;

  I : int8;
begin
  LoginMail := MailEdit.Text;
  LoginPass := PasswordEdit.Text;
//  ErrorLbl.Caption := '';
//         ErrorLbl.Caption :='���O�C���o�������e�X�g��';

  if ((LoginMail = '') or (LoginPass = '')) then
  begin
    ShowMessage('���[���A�h���X �� �p�X���[�h������������');
  end;
    LoginOkBtn.Enabled := True;


    //  ���K�\���� http://catbot.net/blog/2007/06/re_php.html ��Ethna����
    begin
      if (TRegEx.IsMatch(LoginMail, '.+@(([a-z0-9_\-])+\.)+[a-z]{2,6}$')) then

         //  �T�[�o�������A�h���p�X��������������ID���e�X�g�����B
         begin
           ResStrm := TMemoryStream.Create;
           PostData := TStringList.Create;
           url := 'https://secure.nicovideo.jp/secure/login?site=nicolive_antenna';

           PostData.Add('mail=' + HTTPEncode(LoginMail));  // Post �f�[�^���i�[
           PostData.Add('password=' + LoginPass);

             try
               IdHTTP1.Post(url, PostData, ResStrm);
               XMLDocument1.LoadFromStream(ResStrm, xetUTF_8);
               LoginApi_A := XMLDocument1.DocumentElement.ChildNodes;

               if LoginApi_A.Get(0).ChildNodes.First.ParentNode.NodeName='ticket' then
               begin           { TODO :   ���O�C�������������� }

                 Memo1.Lines.Add(LoginApi_A.Get(0).ChildNodes.First.ParentNode.NodeValue); // nicolive_antenna_[����]
                 Memo1.Lines.Add('-----------------');

                 url := 'http://live.nicovideo.jp/api/getalertstatus';
                 PostData.Free;
//                 ResStrm.Free;                                                    // Free ������xml������������
                 tickets := LoginApi_A.Get(0).ChildNodes.First.ParentNode.NodeValue;

                 PostData.Add('ticket=' + tickets); // nicolive_antenna_[����]�t�^
                 { TODO : �F��API����2 ���i�K��try�`except ���L�q���������������k�B
                 �@�@�@�@ �T�[�o���������D���������������B
                 �@�@�@�@  }

                 IdHTTP1.Post(url, PostData, ResStrm);
           Memo1.Lines.Add(IdHTTP1.Response.ResponseText);
           ResStrm.Position:=0;
           Memo1.Lines.LoadFromStream(ResStrm, TEncoding.UTF8);

                 XMLDocument1.LoadFromStream(ResStrm, xetUTF_8);     //   �G���[����
           Memo1.Lines.Add(IdHTTP1.Response.ResponseText);
//                 LoginApi_B := XMLDocument1.DocumentElement.ChildNodes;
//                 LoginApi_A := LoginApi_A.Last.AddChild(LoginApi_B);
////                 for I := 0 to LoginApi_B.Count - 1 do
//                 begin
//                   Memo1.Lines.Add(LoginApi_A.Get(0).ChildNodes.Last.NodeName); // nicolive_antenna_[����]
//
//                 end;
//                 
               end
               else
               begin // �R�l�N�V���������������������O�C�����s��������
                 ShowMessage('���[���A�h���X �� �p�X���[�h�������������������B');
                 ErrorLbl.Caption :='���O�C�����s';
               end;
               
             except on E: EIdHTTPProtocolException do
               begin
                 if IdHTTP1.ResponseCode = 302 then
                    IdHTTP1.Post(IdHTTP1.Response.Location, ResStrm);
               end;
             end;

//           ResStrm.Position:=0;                                 // �f�[�^�����u����
//           Memo1.Lines.LoadFromStream(ResStrm, TEncoding.UTF8);
//           Memo1.Lines.Add(IdHTTP1.Response.ResponseText);


           if IdHTTP1.Connected then IdHTTP1.Disconnect;
//             FreeAndNil(PostData);
             FreeAndNil(ResStrm);
             PostData.Free;

          // ���[���A�h���X���p�X���[�h�� ini�t�@�C�� �������B
          Ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
          try
            Ini.WriteString('Login','Mail',LoginMail);
            Ini.WriteString('Login','Pass',LoginPass);  { TODO : INI�t�@�C�����������������A�����A�h�������������B }

          finally
            Ini.Free;
          end;
        end

      else
        begin
           ShowMessage('���������[���A�h���X���������������B');
           ErrorLbl.Caption :='�h���C����NG';
        end;
    end;
end;


//�p�X���[�h�����������������uOK�v�{�^�����L�����B
procedure TLoginForm.PasswordEditChange(Sender: TObject);
var
  n : Byte;
begin
   n := Length(WideString(PasswordEdit.Text));
   if (n < 8) or (n >= 17)then
     begin
       LoginOkBtn.Enabled := False;
     end

   else
     begin
       LoginOkBtn.Enabled := True;
     end;

end;


procedure TLoginForm.MozillaCookies(SoftName:string); // ShlObj
var
  ProfilesDir, SelectFolder : string;
begin
  ProfilesDir := '::' + GUIDToString(CLSID_MyComputer);
//    ProfilesDir := '::' + GUIDToString(CSIDL_APPDATA);
  if SelectDirectory('���������t�H���_���I��',ProfilesDir,SelectFolder) then
end;

end.