svn/view/NicoVitanD_pas.pas

unit NicoVitanD_pas;
//  2014/02/20 ファイルフォーマットを UTF-8 に変更

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, TabNotBk, Grids, {Outline,} StdCtrls, FileCtrl, DBGrids,
  dblookup, Menus, ExtCtrls, IniFiles, xmldom, XMLIntf, msxmldom, XMLDoc,
  ExtDlgs,
  {$IFDEF DEBUG}
  MMSystem, // 処理に掛かった時間を計測する
  {$ENDIF}
  RegularExpressions,
  HTTPApp,
  SHELLAPI,
  CommCtrl ;
const
  TAGLIST = 15;

type
  TCommentData = record
     CommentNum : Integer;     // { TODO add 2014/10/29: UserID → UserName(コテハン) に変換する関数を作る }
     UserName, Comment, CommentTime, ElapsedTime, Premium : string;
  end;
  TCommentDataArray = array of TCommentData;  // 動的配列宣言

  TLiveData = record                    // 2014年11月6日 設定途中
    // IsLiveStatus[0:削除済 1:放送前 2:放送中 3:タイムシフト期間中 4:タイムシフト無し 5:タイムシフト期間後 6:存在していない未来のLvID]
    LiveAudience, LiveComment, IsLiveStatus : Integer;
    StartTime, OpenTime, LiveOwner, LiveTitle, LiveMemo, LiveID : string;
    LiveTags : array[1..TAGLIST] of string;
  end;

  TCommunityData = record
    CommunityAudience, CommunityLevel, CommunityMember,
    CommunityName, CommunityMemo, CommunityID, CommunityOwnerName, CommunityOpenDay : string;    // CommunityIDはチャンネルとコミュニティを格納する
    IsCommunityMember, CommunityStatus, IsCommunityGetInfo : Boolean; //  CommunityStatus[0:closed 1:open]
    CommunityTags : array[1..TAGLIST] of string;
  end;

  TUserData = record
    // IsUserGetInfo[0:取得できなかった 1:取得できた] 0の場合削除ユーザーなどの場合指定する。
    // UserIsDead[0:個人非公開 1:公開]
    IsUserGetInfo, UserIsDead : Boolean;
    UserBirthday  : Int64;
    UserName, UserID, UserLocation, UserSex, UserMemo : string;
    UserStamp, UserNicorare, UserFav : Integer;
//      UserSex [0:非公開 1:男性 2:女性]
  end;

  TStatusArray = array [0..20] of Int64;

  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    File2: TMenuItem;
    New2: TMenuItem;
    LogOpen: TMenuItem;
    Save2: TMenuItem;
    SaveAs2: TMenuItem;
    Print2: TMenuItem;
    PrintSetup2: TMenuItem;
    Exit2: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    Edit2: TMenuItem;
    Undo1: TMenuItem;
    Copy2: TMenuItem;
    Paste2: TMenuItem;
    PasteSpecial2: TMenuItem;
    Find2: TMenuItem;
    GoTo2: TMenuItem;
    Links2: TMenuItem;
    Object2: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    Window2: TMenuItem;
    NewWindow2: TMenuItem;
    Tile2: TMenuItem;
    Cascade2: TMenuItem;
    ArrangeAll2: TMenuItem;
    Hide2: TMenuItem;
    TopShow: TMenuItem;
    N11: TMenuItem;
    Help1: TMenuItem;
    Contents1: TMenuItem;
    Commands1: TMenuItem;
    About1: TMenuItem;
    N1: TMenuItem;
    MenuLogin: TMenuItem;
    ListView1: TListView;
    MenuComment: TMenuItem;
    NameID1: TMenuItem;
    CommentPanel: TPanel;
    CommentEdit: TEdit;
    CommentSendbtn: TButton;
    MenuSetting: TMenuItem;
    N2: TMenuItem;
    WindowSizeTop: TMenuItem;
    N800x600: TMenuItem;
    N1024x768: TMenuItem;
    N1200x800: TMenuItem;
    XMLDocument1: TXMLDocument;
    OpenTextFileDialog1: TOpenTextFileDialog;
    SaveTextFileDialog1: TSaveTextFileDialog;
    PopupMenu1: TPopupMenu;
    N3: TMenuItem;
    ProgramInfo: TMenuItem;
    StatusBar: TStatusBar;
    a1: TMenuItem;
    b1: TMenuItem;
    procedure Exit2Click(Sender: TObject);
    procedure Contents1Click(Sender: TObject);
    procedure NameID1Click(Sender: TObject);
    procedure Print2Click(Sender: TObject);
    procedure PrintSetup2Click(Sender: TObject);
    procedure MenuLoginClick(Sender: TObject);
    procedure MenuCommentClick(Sender: TObject);
    procedure CommentSendbtnClick(Sender: TObject);
    procedure CommentEditClick(Sender: TObject);
    procedure MenuSettingClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure N800x600Click(Sender: TObject);
    procedure N1024x768Click(Sender: TObject);
    procedure N1200x800Click(Sender: TObject);
    procedure LogOpenClick(Sender: TObject);
    procedure SaveAs2Click(Sender: TObject);
    procedure XmlFileCheckEncoding(FileName:string);
    procedure XMLRaedVirtualView(FileName:string; Encoding: TEncoding);
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure AddNGComment2(CommentDateArrayIndex: Integer);
    procedure ProgramInfoClick(Sender: TObject);
    procedure ListView1CustomDrawSubItem(Sender: TCustomListView;
      Item: TListItem; SubItem: Integer; State: TCustomDrawState;
      var DefaultDraw: Boolean);
    procedure ListView1AdvancedCustomDrawSubItem(Sender: TCustomListView;
      Item: TListItem; SubItem: Integer; State: TCustomDrawState;
      Stage: TCustomDrawStage; var DefaultDraw: Boolean);
    procedure ListView1CustomDrawItem(Sender: TCustomListView;
      Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
    function CommentURLDecode(Str:string):string;
    function CommentBackStagePass(Str:string):string; // Add: 2013/07/27
    procedure TopShowClick(Sender: TObject);
    procedure SetLVItemFont(ACustomListView: TCustomListView; AListItem: TListItem);
    function  PrepareComments(rawComment: string): string;
    procedure CommentEditChange(Sender: TObject);
    procedure kakorokuDataEdit(kakorokuData:TStringlist);
    procedure SetProgramInfoDlg(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
    procedure ResetProgramInfoDlgData(Sender: TObject);
    procedure SetStatusBar(StatusArray: TStatusArray);
    procedure ListView1Click(Sender: TObject);

  private
    FCommentData:   TCommentDataArray;
    FLiveData:      TLiveData;
    FUserData:      TUserData;
    { Private 宣言 }
    procedure WindowResize(x, y:integer); // ウィンドウサイズ変更

    //WM_DROPFILESを受け取るイベントハンドラの宣言 ドラッグアンドドロップ用
    procedure WMDropFiles(var msg: TWMDROPFILES); message WM_DROPFILES; // 2014/05/25 参照コード変更
  public
    { Public 宣言 }
    FCommunityData: TCommunityData;
  end;

var
  Form1: TForm1;
  kakorokuData: TStringlist;
  CommentDateArrayIndex: Integer;
implementation

uses
  NicoVitanD_Login,
  NicoVitanD_setting,
  ProgramInfoTabDlg,
  NicoVitanD_Functions, NicoVitanD_StatusBar, EncodeDetect;

{$R *.dfm}

procedure TForm1.AddNGComment2(CommentDateArrayIndex: Integer);
begin
     FCommentData[CommentDateArrayIndex].UserName   := ' ';
     FCommentData[CommentDateArrayIndex].CommentNum := CommentDateArrayIndex + 1  ;
     FCommentData[CommentDateArrayIndex].Comment    := IntToStr(CommentDateArrayIndex + 1) + '番目のコメントは NGコメントです。';
     FCommentData[CommentDateArrayIndex].CommentTime:= UnixTimeToDatetimeStr(0);
     FCommentData[CommentDateArrayIndex].ElapsedTime:= UnixTimeToDatetimeStr(0);
     FCommentData[CommentDateArrayIndex].Premium    := '100';
end;

procedure TForm1.CommentSendbtnClick(Sender: TObject);
begin
  CommentPanel.Visible := False;
end;

function TForm1.CommentBackStagePass(Str: string): string;
begin
(*  書式：/press show 色 コメント 名前  色も返して色を付ける？
    色
    white ： clWhite
    red ： clRed
    pink ： clWebPink
    orange ： clWebOrange
    green ： clGreen
    cyan ： clWebCyan
    blue ： clBlue
    purple ： clPurple
    black ： clBlack
    niconicowhite ： clWhite?
*)
  if TRegEx.IsMatch(Str, '/press show ') then
    Result:= TRegEx.Replace(Str, '^/press show ', 'BSP: ')
  else
    Result := Str;
end;

procedure TForm1.CommentEditChange(Sender: TObject);
begin
//  CommentEdit.Alignment := taCenter;
end;

procedure TForm1.CommentEditClick(Sender: TObject);
begin
  // CommentEdit.Alignment := taLeftJustify;
end;

function TForm1.CommentURLDecode(Str: string): string;
begin
  if TRegEx.IsMatch(Str, '^/play case') then
    Result:= HTTPDecode(Str)
  else
    Result := Str;
end;

procedure TForm1.Contents1Click(Sender: TObject);
begin
// function FileOpen(const FileName: string; fmOpenRead: LongWord): Integer;
end;

procedure TForm1.SetProgramInfoDlg(Sender: TObject); // 途中
begin
  ProgramInfoDlg.LiveStartTimeLabel.Caption := ProgramInfoDlg.LiveStartTimeLabel.Caption + FLiveData.StartTime;
  ProgramInfoDlg.LiveTitleLE.Text       := ProgramInfoDlg.LiveTitleLE.Text + FLiveData.LiveTitle;
  ProgramInfoDlg.LiveOwnerLabel.Caption := ProgramInfoDlg.LiveOwnerLabel.Caption + FLiveData.LiveOwner;
  ProgramInfoDlg.SetLiveURL(FLiveData.LiveID);
  ProgramInfoDlg.LiveMemo.Text := FLiveData.LiveMemo;
  if FLiveData.LiveComment = -1 then
    begin
      FLiveData.LiveComment := 0;
      ProgramInfoDlg.LiveCommentLabel.Caption := ProgramInfoDlg.LiveCommentLabel.Caption + IntToStr(FLiveData.LiveComment);
    end
  else
    ProgramInfoDlg.LiveCommentLabel.Caption := ProgramInfoDlg.LiveCommentLabel.Caption + IntToStr(FLiveData.LiveComment);

  ProgramInfoDlg.CommunityIDLabel.Caption      := ProgramInfoDlg.SetCommunityIdURL(FCommunityData.CommunityID);
  ProgramInfoDlg.CommunityOpenDayLabel.Caption := ProgramInfoDlg.CommunityOpenDayLabel.Caption + FCommunityData.CommunityOpenDay;
  ProgramInfoDlg.CommunityNameLabel.Caption    := ProgramInfoDlg.CommunityNameLabel.Caption + FCommunityData.CommunityName;
  ProgramInfoDlg.CommunityLevelLabel.Caption   := ProgramInfoDlg.CommunityLevelLabel.Caption + FCommunityData.CommunityLevel;
  ProgramInfoDlg.CommunityAudienceLabel.Caption:= ProgramInfoDlg.CommunityAudienceLabel.Caption + FCommunityData.CommunityAudience;
  ProgramInfoDlg.CommunityMemberLabel.Caption  := ProgramInfoDlg.CommunityMemberLabel.Caption + FCommunityData.CommunityMember;
  ProgramInfoDlg.CommunityOwnerNameLabel.Caption := ProgramInfoDlg.CommunityOwnerNameLabel.Caption + FCommunityData.CommunityOwnerName;
  ProgramInfoDlg.UserNameLabel.Caption := ProgramInfoDlg.UserNameLabel.Caption + FLiveData.LiveOwner;
end;

procedure TForm1.Exit2Click(Sender: TObject); //  終了処理
begin
  Close;
end;

procedure TForm1.FormCreate(Sender: TObject); //  NicoVitanD の開始処理 or 初期化
var
   Ini: TIniFile;
   WRect: TRect;
   encodings : TStrings;
begin

  // 表示位置をiniファイルから読み込む
  SystemParametersInfo(SPI_GETWORKAREA, 0, @WRect, 0);
  Ini := TInifile.Create(ChangeFileExt(
    Application.ExeName, '.ini'));
  try
    Top := Ini.ReadInteger('Form', 'Top', WRect.Top);
    Left := Ini.ReadInteger('Form', 'Left', WRect.Left);
    Width := Ini.ReadInteger('Form', 'WindowWidth', Width);
    Height := Ini.ReadInteger('Form','WindowHeight', Height);

    if Left > WRect.Right - 100 then Left := WRect.Left; // モニタの解像度が変わっても
    if Left < WRect.Left then Left := WRect.Left;        // 大丈夫にする処理(4行)
    if Top < WRect.Top then Top := WRect.Top;
    if Top > WRect.Bottom - 100 then Top := WRect.Top;
  finally
    Ini.Free;
  end;

// http://docwiki.embarcadero.com/CodeExamples/XE4/en/TOpenTextFileDialog_%28Delphi%29
  TOpenTextFileDialog.Create(Self);
  TSaveTextFileDialog.Create(Self);

  // Create a new string list that holds encoding info.
  encodings := TStringList.Create;

  OpenTextFileDialog1.Encodings.Clear;
  // Add some encodings to the list.
  encodings.AddObject('UTF8', TEncoding.GetEncoding(65001));  // BOM なしにする
  encodings.AddObject('ANSI', TEncoding.Default);
  encodings.AddObject('ASCII', TEncoding.ASCII);

  OpenTextFileDialog1.Encodings.Assign(encodings);
  SaveTextFileDialog1.Encodings.Assign(encodings);

//  SaveTextFileDialog1.Filter := 'Text files (*.txt)|*.TXT|XML files (*.xml)|*.XML|Any file (*.*)|*.*';
  SaveTextFileDialog1.Filter := 'XML files (*.xml)|*.XML|Any file (*.*)|*.*';

// http://docwiki.embarcadero.com/CodeExamples/XE4/en/TOpenTextFileDialog_%28Delphi%29

  Save2.Enabled := False; { TODO -cメニュー : 名前を付けて保存してから有効にする。 }
  Links2.Enabled := False; { TODO -cメニュー : 表示したリスト内にURLの正規表現に一致したら有効にする。 }

    //ドラッグの受入れを許可する
  DragAcceptFiles(Handle, true);
  ResetStatusBar(Self);
  encodings.Free;
end;

procedure TForm1.FormDestroy(Sender: TObject);  // NicoVitanD の終了処理
var
  Ini : TIniFile;
begin

  //　NicoVitanD の本体の位置をiniファイルに記録
  Ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));

  try
    Ini.WriteInteger('Form', 'Top', Top);
    Ini.WriteInteger('Form', 'Left', Left);
    Ini.WriteInteger('Form', 'WindowWidth', Width);
    Ini.WriteInteger('Form', 'WindowHeight', Height);
  finally
    Ini.Free;
  end;
////  割り当てたコンソールを開放
//  FreeConsole;
end;


procedure TForm1.kakorokuDataEdit(kakorokuData: TStringlist);
var
  StartTime, LiveTitle, URLnum, LiveOwner, ComName, Explanation  : string;
  coNum: string;
  kakorokuArray :TStatusArray;
begin
  StartTime   := kakorokuData.Strings[2];
  LiveTitle   := kakorokuData.Strings[4];
  Explanation := kakorokuData.Strings[5];
  LiveOwner   := kakorokuData.Strings[6];
  ComName     := kakorokuData.Strings[7];

  (* 対象の文字列があるか確認しながら加工 *)
  if TRegEx.IsMatch(StartTime, '放送開始時間') then
    begin
      StartTime := TRegEx.Replace(StartTime, '^\[放送開始時間\] ', '');
    end;

  // タイトル と 放送URL
  if TRegEx.IsMatch(LiveTitle, 'タイトル') then
    begin
      LiveTitle := TRegEx.Replace(LiveTitle, '^\[タイトル\] ', '');

      if TRegEx.IsMatch(LiveTitle, '\(lv\d+\)$|\(co\d+\)$') then  // lv番号 or co番号 があるか？
      begin
        URLnum := TRegEx.Replace(LiveTitle, '^.+\(', '');
        URLnum := TRegEx.Replace(URLnum, '\)$', '');

        if TRegEx.IsMatch(URLnum, 'co') then
          kakorokuArray[10] := StrToInt64( TRegEx.Replace(URLnum, 'co', '') )
        else
          kakorokuArray[0] := StrToInt64( TRegEx.Replace(URLnum, 'lv', '') );

        LiveTitle := TRegEx.Replace(LiveTitle, '\(lv\d+\)$|\(co\d+\)$', '');
      end;
    end;

  // 放送説明文
  if TRegEx.IsMatch(Explanation, '説明') then
    begin
      Explanation := TRegEx.Replace(Explanation, '^\[説明\] ', '');
    end;

  // 放送主
  if TRegEx.IsMatch(LiveOwner, '放送者') then
    begin
      LiveOwner := TRegEx.Replace(LiveOwner, '^\[放送者\] ', '');
    end;

  // コミュニティ名
  if TRegEx.IsMatch(ComName, 'コミュニティ名') then
    begin
      ComName := TRegEx.Replace(ComName, '\[コミュニティ名\] ', '');  // ゲーム作り隊＠ゲームフェス3受賞おめ(co1969367)

      if TRegEx.IsMatch(ComName, '\(co\d+\)$|\(ch\d+\)$|\(official\)$') then  // co番号 or ch番号があるか？
      begin
        coNum := TRegEx.Replace(ComName, '^.+\(', '');
        coNum := TRegEx.Replace(coNum, '\)$', '');

        ComName := TRegEx.Replace(ComName, '\(co\d+\)$|\(ch\d+\)$|\(official\)$', '');

        if coNum = 'official' then kakorokuArray[2] := 1 // ステータスバー 公式｜チャンネル｜ユーザー
          else
            begin
              if TRegEx.IsMatch(coNum, 'ch\d+') then kakorokuArray[2] := 2
              else
                if TRegEx.IsMatch(coNum, 'co\d+') then kakorokuArray[2] := 3
              end;
       end;
    end;

  ResetProgramInfoDlgData(Self);   // Reset関数でFCommentData/FCommunityData/FUserDataのデータを一旦無くす処理
  (* 流し込み *)
  FLiveData.StartTime := StartTime;
  FLiveData.LiveTitle := LiveTitle;
  FLiveData.LiveOwner := LiveOwner;
  FLiveData.LiveID    := URLnum;
  FLiveData.LiveMemo  := Explanation;
  FCommunityData.CommunityID   := coNum;
  FCommunityData.CommunityName := ComName;
  FUserData.UserName  := LiveOwner;

  SetProgramInfoDlg(Self);

  kakorokuArray[1] := 4;
  SetStatusBar(kakorokuArray);
end;

procedure TForm1.MenuLoginClick(Sender: TObject);
begin
  LoginForm.show;
end;

procedure TForm1.MenuSettingClick(Sender: TObject);
begin
  SettingForm.ShowModal;
end;

procedure TForm1.MenuCommentClick(Sender: TObject);
begin
  CommentEdit.Text := '';
  CommentPanel.Visible := True;
  CommentEdit.SetFocus;         // Add: 2013/07/27
end;

procedure TForm1.WindowResize(x, y:integer); // ウィンドウサイズ変更
begin
  Form1.Width := x;
  Form1.Height := y;

{ TODO :  Add: 2013/09/20
  NicoVitanDがあるモニターのウィンドウサイズをモニタ解像度の縦半分で横幅目一杯にする設定を追加するのは面白いかな？
  NicoVitanDがあるモニターのウィンドウサイズを取得してそれ１つだけMainMenuに追加するのは面倒臭そうだけども。
  ↓↓↓↓↓↓↓↓↓↓
  Delphiでディスプレイの解像度を取得するには？ | 山本隆の開発日誌
 → http://www.gesource.jp/weblog/?p=6093 }

end;

procedure TForm1.WMDropFiles(var msg: TWMDROPFILES);  // ドラッグアンドドロップ
// http://www.watercolor-city.net/ct_delphi/delphi_memo/dm_002.htm
var
  i,XMLfiles, notXMLfiles, Count: Integer;
  FileName: array [0..255] of Char;
 { TODO :
  複数ファイルをD&Dされたら、
  →1.XMLファイルのみの場合：その都度自プログラムを起動させる。
  →2.XMLファイルが1つもない場合：スルーした数を表示する。
  →3.XMLファイルと他のファイルが混ざっている場合：1.と2.をやる。 }
begin
  XMLfiles    := 0;
  notXMLfiles := 0;
  Count:= DragQueryFile(Msg.Drop, Cardinal(-1), nil, 0);
  for i:= 0 to Count - 1 do
  begin
    DragQueryFile(Msg.Drop, i, FileName, SizeOf(FileName)-1);

     if WideCompareText(ExtractFileExt(Filename), '.xml') = 0 then  // 大文字小文字区別なく拡張子を比較
       begin
         ProgramInfoDlg.ReSetting(Self);
         XmlFileCheckEncoding(FileName);
         Inc(XMLfiles);
       end
     else
       begin
         Showmessage('XMLファイルじゃないよ');
         Inc(notXMLfiles);
       end;
  end;
  DragFinish(Msg.Drop);
// http://www.watercolor-city.net/ct_delphi/delphi_memo/dm_002.htm
end;

procedure TForm1.XmlFileCheckEncoding(FileName: string);
// 参照：http://www.watercolor-city.net/ct_delphi/delphi_tiburon/doc_thirdparty/tp_ed_sample.htm
var
  Enc : TEncoding;
  FS: TFileStream;
    function GetEncodingInstance(ENC: Integer): TEncoding;
    begin
      //判定結果に応じたTEncodingインスタンスの生成
      case ENC of
        ENC_SJIS: Result := TMBCSEncoding.Create(932);
        ENC_EUC: Result := TMBCSEncoding.Create(20932);
        ENC_JIS: Result := TMBCSEncoding.Create(50220);
        ENC_UTF16LE: Result := TUnicodeEncoding.Create;
        ENC_UTF16BE: Result := TBigEndianUnicodeEncoding.Create;
        ENC_UTF8: Result := TMBCSEncoding.Create(65001);
        ENC_UTF8BOM: Result := TUTF8Encoding.Create;
    //    ENC_UTF32LE: Result := TUCS4Encoding.Create;//要UCS4Encodingユニット
    //    ENC_UTF32BE: Result := TUCS4Encoding.Create(True);//要UCS4Encodingユニット
        else Result := TMBCSEncoding.Create(0);
      end;
    end;
begin
  // todo add : 2014/02/20
  // done 2015/02/08
  // ファイルパスをもらって
  // 文字エンコーディングを返す。
  FS := TFileStream.Create(Filename, fmOpenRead);
  try
    ENC:= GetEncodingInstance (CheckEncoding(FS));
  finally
    FS.Free; // Free し忘れるとファイルを二重に開くことになって処理が途中で終わってしまう。

    try
      XMLRaedVirtualView(Filename,ENC);
    finally
      ENC.Free;
    end;
  end;
end;

procedure TForm1.XMLRaedVirtualView(FileName: string; Encoding: TEncoding);
const
  NodeNum  : string = 'no';
  NodeDate : string = 'date';
  NodeUser : string = 'user_id';
label
  Official, NoComments;
var
  i, NumTemp, LastNum, CommentNo: Integer;
  EncIndex: Integer;
  FileStrings: TStringList;
  t: Cardinal;  // 実行時間計測

  XML_Doc: IXMLDocument;
  packetNode: IXMLNodeList;
  UserId, Comment, ElapsedTime, Premium: string;
  CommentTime, StartTime : Int64;
  NCVdataArray: TStatusArray;
  FileNameStr: string;
  LiveNumbers: TMatchCollection;
  SortList : TStringList;
  procedure SetCommentData(i:Integer);
  begin
    UserId    := packetNode[i].Attributes[NodeUser];
    Comment   := packetNode[i].ChildNodes.Nodes[0].NodeValue;
    CommentTime := StrToInt64( packetNode[i].Attributes[NodeDate]);
    ElapsedTime := UnixTimeToElapsedTimeStr(0,CommentTime);
    if packetNode[i].HasAttribute('premium') then
      Premium := packetNode[i].Attributes['premium']
    else
      Premium := '';

    Comment := PrepareComments(Comment);
    FCommentData[CommentDateArrayIndex].CommentNum  := CommentNo;
    FCommentData[CommentDateArrayIndex].UserName    := UserId;
    FCommentData[CommentDateArrayIndex].Comment     := Comment;
    FCommentData[CommentDateArrayIndex].CommentTime := UnixTimeToDatetimeStr(CommentTime);
    FCommentData[CommentDateArrayIndex].ElapsedTime := ElapsedTime;
    FCommentData[CommentDateArrayIndex].Premium     := Premium;
  end;

begin
  if ListView1.GetCount > 0 then
    begin
      ListView1.Clear;
      // ToDo: 新たにファイルを開いたときに書き換わらなかったら
      // 「FCommentData」のメモリ上のデータを解放する
    end;
     FileStrings := TStringList.Create;

      if FileExists(Filename) then
        begin
          form1.Caption := Filename + ' - NicoVitanD';
{$IFDEF DEBUG}
        timeBeginPeriod(1);  t := timeGetTime;
        form1.Caption := 'NicoVitanD-Test - ' + Filename;
{$ENDIF}
        //display the contents in a memo based on the selected encoding
          FileStrings.LoadFromFile(Filename, Encoding);
          XML_Doc := LoadXMLDocument(FileName);

          packetNode  := XML_Doc.DocumentElement.ChildNodes;
        if packetNode.Count > 0 then
        begin
          // 初期化処理
          ResetProgramInfoDlgData(Self);
          ResetStatusBar(Self);
          i := 0; LastNum := 0; NumTemp := 0; CommentDateArrayIndex := 0;

          if packetNode[0].NodeName = 'chat' then
            begin
             if packetNode[0].HasAttribute(NodeNum) then
                begin
                   if (packetNode.First.Attributes[NodeUser] = 'kakoroku') then
                     { ニコ生のタイムシフト番組保存ソフトの
                       kakorokuRecorder の設定 - オプション - 一般タブの「コメントの最初に放送の情報を書き込む」に
                       チェックボックスがONの場合への対応
                       書かれた情報を ProgramInfoTabDlg.pas に流し込む。
                     }
                     begin
                       kakorokuData := TStringlist.Create;
                       kakorokuData.Text := packetNode.First.NodeValue;
                       kakorokuDataEdit(kakorokuData);
                       kakorokuData.Free;
                       Inc(i);
                      if packetNode.Count > 1 then
                      begin
                          if not packetNode[1].HasAttribute(NodeNum) then
                            begin
                              Inc(NumTemp);
                              Goto Official; // 公式放送用の処理へ
                            end;
                         LastNum := packetNode.Last.Attributes[NodeNum];
                         SetLength(FCommentData, LastNum );  // 動的配列(FCommentData)の上限数設定
                      end
                      else
                       begin
                         Goto NoComments; // コメントなし放送=LastNumなど変数の値が不正になるのでNoCommentsに飛ばす
                       end
                     end
                   else
                     begin
                       LastNum := packetNode.Last.Attributes[NodeNum];
                       SetLength(FCommentData, LastNum );  // 動的配列(FCommentData)の上限数設定
                     end;

                  CommentNo := StrToInt( packetNode[0].Attributes[NodeNum] );

                  // <chat /> の1stに no="1" がないXMLファイル対策
                  // XMLファイルの冒頭が NG コメントで番号が飛んでいる対策
                  while CommentDateArrayIndex < CommentNo -1 do
                    begin
                      AddNGComment2(CommentDateArrayIndex);
                      Inc(CommentDateArrayIndex);
                    end;

                  repeat
                    begin
                      CommentNo := StrToInt( packetNode[i].Attributes[NodeNum] );
                      if CommentNo = CommentDateArrayIndex + 1  then
                        begin     // CommentNo に問題の無い場合
                          NumTemp   := CommentNo;   // エラー処理用
                          SetCommentData(i);

                          Inc(i);
                          Inc(CommentDateArrayIndex);

                          CommentCounter(CommentDateArrayIndex, LastNum);
                        end
                      else     // CommentNo に問題がある場合
                        begin
                          if CommentNo <= NumTemp then // 重複している行分：CommentNoが1つ前と比べて減った場合の処理
                            begin
                              repeat
                                inc(i);
                                CommentNo := StrToInt( packetNode[i].Attributes[NodeNum] );
                              until CommentNo > NumTemp;
                            end
                          else
                          while CommentDateArrayIndex < CommentNo -1  do  // コメントが飛んでいるのがみつかったらNGコメントにする。
                          begin
                            AddNGComment2(CommentDateArrayIndex);
                            Inc(CommentDateArrayIndex);
                          end;
                        end;
                    end;
                  until ( CommentNo = LastNum ) or
                        (CommentDateArrayIndex > packetNode.Count * 3); // 無限ループ対策 NGコメントが一般コメントの 2倍を超える時点でおかしい放送

                 // 最後のコメントの1つ前がNGだった場合にコメントが空になる対策。
                 if CommentDateArrayIndex  <> LastNum then
                 begin
                   SetCommentData(i);
                   FCommentData[CommentDateArrayIndex].CommentNum  := CommentDateArrayIndex +1;
                   Inc(CommentDateArrayIndex); // 総コメント数として
                 end;
                 ProgramInfoDlg.LiveCommentLabel.Caption := ProgramInfoDlg.LiveCommentLabel.Caption + IntToStr(CommentDateArrayIndex); // 総コメント数表示
                end
              else   // 公式放送対応
                Official:
                begin
                  LastNum := packetNode.Count;
                  SetLength(FCommentData, LastNum);  // 動的配列(FCommentData)の上限数設定
                  for I := NumTemp to packetNode.Count - 1 do
                    begin
                      //  公式の場合 NodeNum がないっぽいのでCommentNo を「i」で代用
                      SetCommentData(i);
                      FCommentData[CommentDateArrayIndex].CommentNum  := CommentDateArrayIndex +1;
                      Inc(CommentDateArrayIndex);

                      CommentCounter(CommentDateArrayIndex, LastNum);
                    end;
                  ProgramInfoDlg.LiveCommentLabel.Caption := ProgramInfoDlg.LiveCommentLabel.Caption + IntToStr(CommentDateArrayIndex); // 総コメント数表示
                end;
            end
          else if packetNode[7].NodeName = 'LiveCommentDataArray' then // NCV の過去ログの読み込み処理
          begin
            // 放送情報取得 // ToDo : データがあるかチェックするようにする
            LastNum := packetNode[7].ChildNodes.Count;

            if packetNode[5].ChildNodes[0].ChildNodes[6].HasChildNodes then
            begin
              StartTime := StrToInt64( packetNode[5].ChildNodes[0].ChildNodes[6].NodeValue);
              FLiveData.StartTime := UnixTimeToDatetimeStr(StartTime);
            end;
            if packetNode[5].ChildNodes[0].ChildNodes[5].HasChildNodes then
            begin
              FLiveData.OpenTime := UnixTimeToDatetimeStr( StrToInt64( packetNode[5].ChildNodes[0].ChildNodes[5].NodeValue));
            end;
            if packetNode[1].HasChildNodes then
            begin
              FLiveData.LiveID := 'lv' + packetNode[1].NodeValue;
              NCVdataArray[0] := packetNode[1].NodeValue;
            end;
            if packetNode[4].ChildNodes[0].HasChildNodes then
              FLiveData.LiveTitle    := packetNode[4].ChildNodes[0].NodeValue;
            if packetNode[4].ChildNodes[1].HasChildNodes then
              FLiveData.LiveOwner    := packetNode[4].ChildNodes[1].NodeValue;
            if packetNode[4].ChildNodes[4].ChildNodes[0].HasChildNodes then
              FLiveData.LiveAudience := packetNode[4].ChildNodes[4].ChildNodes[0].NodeValue;
            if LastNum = 0 then
              FLiveData.LiveComment := 0
            else
              begin
                FLiveData.LiveComment := LastNum;
                NCVdataArray[3] := LastNum;
              end;

            // コミュニティ情報
            if packetNode[4].ChildNodes[3].HasChildNodes then
              FCommunityData.CommunityAudience := packetNode[4].ChildNodes[3].NodeValue;
            if packetNode[4].ChildNodes[4].ChildNodes[1].HasChildNodes then
              FCommunityData.CommunityOpenDay:= packetNode[4].ChildNodes[4].ChildNodes[1].NodeValue;
            if packetNode[4].ChildNodes[4].ChildNodes[4].HasChildNodes then
              FCommunityData.CommunityName   := packetNode[4].ChildNodes[4].ChildNodes[4].NodeValue;
            if packetNode[4].ChildNodes[4].ChildNodes[5].HasChildNodes then
              FCommunityData.CommunityLevel  := packetNode[4].ChildNodes[4].ChildNodes[5].NodeValue;
            if packetNode[5].ChildNodes[0].ChildNodes[7].HasChildNodes then
              FCommunityData.CommunityID := packetNode[5].ChildNodes[0].ChildNodes[7].NodeValue;
            if packetNode[4].ChildNodes[4].ChildNodes[3].HasChildNodes then
              FCommunityData.CommunityOwnerName := packetNode[4].ChildNodes[4].ChildNodes[3].NodeValue;
            if packetNode[4].ChildNodes[4].ChildNodes[6].HasChildNodes then
              FCommunityData.CommunityMember := packetNode[4].ChildNodes[4].ChildNodes[6].NodeValue;

            NCVdataArray[1] := 5;
            SetStatusBar(NCVdataArray);
            SetProgramInfoDlg(Self);

            if LastNum > 0 then  // コメントデータ流し込み
              begin
                SetLength(FCommentData, LastNum );  // 動的配列(FCommentData)の上限数設定
                for I := 0 to LastNum - 1 do
                begin
                  CommentNo := StrToInt( packetNode[7].ChildNodes[i].Attributes[NodeNum] );
                  if CommentNo = -1 then  // 3.公式放送対応
                    CommentNo := i + 1;

                  UserId    := packetNode[7].ChildNodes[i].Attributes[NodeUser];
                  Comment   := packetNode[7].ChildNodes[i].ChildNodes.Nodes[0].NodeValue;
                  CommentTime := StrToInt64Def( packetNode[7].ChildNodes[i].Attributes[NodeDate] , 0);
                  ElapsedTime := UnixTimeToElapsedTimeStr(StartTime,CommentTime);
                  if packetNode[7].ChildNodes[i].HasAttribute('premium') then
                    Premium := packetNode[7].ChildNodes[i].Attributes['premium']
                  else
                    Premium := '';
                  if CommentTime = 0 then  // NCVの過去ログファイルのNGコメント処理
                    Premium := '100';

                  Comment := PrepareComments(Comment);
                  FCommentData[CommentDateArrayIndex].CommentNum  := CommentNo;
                  FCommentData[CommentDateArrayIndex].UserName    := UserId;
                  FCommentData[CommentDateArrayIndex].Comment     := Comment;
                  FCommentData[CommentDateArrayIndex].CommentTime := UnixTimeToDatetimeStr(CommentTime);
                  FCommentData[CommentDateArrayIndex].ElapsedTime := ElapsedTime;
                  FCommentData[CommentDateArrayIndex].Premium     := Premium;
                  Inc(CommentDateArrayIndex);
                  CommentCounter(CommentDateArrayIndex, LastNum);
               end;
             end
             else
               goto NoComments;
          end;
        end
        else
          NoComments:
          begin
            CommentDateArrayIndex := 0;
//            SetLength(FCommentData, CommentDateArrayIndex);
//            ListView1.Clear;
            MessageDlg('コメントがされなかった放送です。', mtConfirmation, [mbOK], 0);
          end;
          ListView1.Items.Count := CommentDateArrayIndex ; // ListView1 に表示する行数を決定＆表示するので削除厳禁！
          
          if StatusBar.Panels.Items[4].Text <> '' then
          begin
            StatusBar.Panels.Items[4].Text := '';
          end;

          if StatusBar.Panels.Items[0].Text = 'lv番号:不明' then    // ファイル名からlv番号抽出する
          begin
            FileNameStr := ChangeFileExt( ExtractFileName(FileName) , '');
//  FileNameStr := 'ふかふかふかlv20000000000)(やってみる)((lv10000)(lv196799094)';
//  FileNameStr := 'ふかふかふか(やってみる)(lv196799094)';
//  FileNameStr := 'ふかふかふか(やってみる)()';
            if TRegEx.IsMatch(FileNameStr,'lv\d+') then
              begin
                LiveNumbers := TRegEx.Matches(FileNameStr,'lv\d+');
                if LiveNumbers.Count = 1 then
                  StatusBar.Panels.Items[0].Text := 'たぶん' + LiveNumbers.Item[0].Value
                else
                begin
                //　複数候補がある場合は最大値を適用する
                if LiveNumbers.Count > 1 then
                  begin
                    SortList := TStringList.Create;
                      for I := 0 to LiveNumbers.Count - 1 do
                        SortList.Add( LiveNumbers.Item[I].Value );
                      SortList.Sort;
                      for I := 0 to SortList.Count - 1 do  //ソートされて最後が最大値になっているはず
                        FileNameStr := SortList.Strings[i];
                      StatusBar.Panels.Items[0].Text := 'たぶん' + FileNameStr;
                    SortList.Free;
                  end;
                end;
              Form1.StatusBar.Panels.Items[0].Width := 170;
            end;
          end;

          packetNode.Clear;
          FileStrings.Free;
{$IFDEF DEBUG}
t := timeGetTime - t;  timeEndPeriod(1);
  StatusBar.Panels.Items[4].Text := FormatFloat('#,##0 ms',t);
{$ENDIF}
        end;
end;

procedure TForm1.N1024x768Click(Sender: TObject);
begin
  WindowResize(1024,768);
end;

procedure TForm1.N1200x800Click(Sender: TObject);
begin
  WindowResize(1200,800);
end;

procedure TForm1.N800x600Click(Sender: TObject);
begin
  WindowResize(800,600);
end;

procedure TForm1.NameID1Click(Sender: TObject); //  Name と ID 列の表示/非表示　
begin
      NameID1.Checked := not NameID1.Checked; // not は論理値の逆転に使う。
  if (NameID1.Checked = False) then
    begin
      ListView1.Columns[1].MinWidth := 0;
      ListView1.Columns[1].Width := 0;
    end
  else
    begin
      ListView1.Columns[1].MinWidth := 50;
      ListView1.Columns[1].Width := 150;
    end;
end;

procedure TForm1.ListView1AdvancedCustomDrawSubItem(
  Sender: TCustomListView; Item: TListItem; SubItem: Integer;
  State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
begin
//  StatusStrings := TStringList.Create;
//
//    if StatusStrings.Values['Premium'] = '1' then
//  begin
//    ListView1.Canvas.Font.Style:= [fsBold];
//  end;
end;

procedure TForm1.ListView1Click(Sender: TObject);
var
  hitInfo: TPoint;
  row, col: Integer;
begin
  hitInfo := ListView1.ScreenToClient(Mouse.CursorPos);


//  if (ListView_SubItemHitTest(ListView1.Handle, @hitInfo) = -1) then
//  begin
     ShowMessage('m9');
//  end
//  else
//  begin
//    ShowMessage('x:' + IntToStr(hitInfo.x) + '| y:' + IntToStr(hitInfo.y));
////    row := hitInfo.iItem;
////    col := hitInfo.iSubItem;
//    if ListView1.ItemFocused.Index > 0 then
//      ShowMessage(IntToStr( ListView1.ItemFocused.Index));
//
//  end;
end;

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
//var
//  TL: TListView;
begin
//  if Item.SubItems.Count<5 then Exit; // SubItems[4]、つまり非表示の Premium が無いなら処理しない
//
//  TL:=Sender as TListView;
////  ShowMessage(Item.SubItems[4]);
//  case StrToIntDef(Item.SubItems[4], 9999) of // 数字以外なら9999にしてcase文をスルーさせる
//    1: TL.Canvas.Font.Style:=[fsBold];
//    2: begin
//         TL.Canvas.Font.Style:=[fsBold];
//         TL.Canvas.Font.Color:=clRed;
//       end;
//    3: TL.Canvas.Font.Color:=clBlue;
//    6..7: Sender.Canvas.Brush.Color := $FFFFE0;
//  else
//    begin
//      TL.Canvas.Font.Color:=clBlack;
//    end;
//  end;
//SetLVItemFont(Sender, Item);
end;

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  //選択中は太字 = クリックしたら太字

  if Item.Selected = True then
    begin
      ListView1.Canvas.Font.Style:= ListView1.Canvas.Font.Style + [fsBold];
    end;

  if SubItem = 1 then
  begin
    SetLVItemFont(Sender, Item);
  end;
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem); // 流しこむデータを決める。
begin
  if Item.Index = -1 then
    Exit;

  Item.Caption := IntToStr(FCommentData[Item.Index].CommentNum);
  Item.SubItems.Add(FCommentData[Item.Index].UserName);
  Item.SubItems.Add(FCommentData[Item.Index].Comment);
  Item.SubItems.Add(FCommentData[Item.Index].CommentTime);
  Item.SubItems.Add(FCommentData[Item.Index].ElapsedTime);
  Item.SubItems.Add(FCommentData[Item.Index].Premium);

end;

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
var
  popup_pt: TPoint; //ポップアップメニューを表示する座標
begin
  //ローカルな座標を設定します
  popup_pt.x := ListView1.Left + 100;
  popup_pt.y := ListView1.Top + ListView1.Height;
  //スクリーンの座標に変換します
  popup_pt := Form1.ClientToScreen(popup_pt);
  //ポップアップを表示します
  PopupMenu1.Popup(popup_pt.x, popup_pt.y);
end;

procedure TForm1.LogOpenClick(Sender: TObject);
var
  Encoding : TEncoding;
  EncIndex : Integer;
  Filename : String;

//  FileStrings: TStringList;
//  TextFile_LineStrings: TStringList;
//  i: integer;
begin
  if OpenTextFileDialog1.Execute(Self.Handle) then
    begin
    //selecting the filename and encoding selected by the user
    Filename := OpenTextFileDialog1.FileName;
//    Filename := 'D:\Dropbox\Delphi-Source\NicoLiveXMLRead\test.xml';
    EncIndex := OpenTextFileDialog1.EncodingIndex;
    Encoding := OpenTextFileDialog1.Encodings.Objects[EncIndex] as TEncoding;

    if WideCompareText(ExtractFileExt(Filename), '.xml') = 0 then // 大文字小文字区別なく拡張子を比較
      begin
        { DONE : 2ファイル目を開かれた場合のために ProgramInfoDlg の初期化をする。 }
        ProgramInfoDlg.ReSetting(Sender);
        XmlFileCheckEncoding(FileName);
        exit; //  exit; を消したら下のelseの処理もされてしまう = 通常終了できないエラーが発生する。
      end
    else
      MessageDlg('XMLファイルを開いてください。', mtConfirmation, [mbOK], 0);
    end;
end;

function TForm1.PrepareComments(rawComment: string):string;
begin
  if Copy(rawComment, 1,1) = '/' then
  begin
    rawComment := CommentURLDecode(rawComment);
    rawComment := CommentBackStagePass(rawComment);
  end;
    Result := rawComment;
end;

procedure TForm1.Print2Click(Sender: TObject);
begin
//  PrintDialog1.Execute();
end;

procedure TForm1.PrintSetup2Click(Sender: TObject);
begin
//  PrinterSetupDialog1.Execute();
end;

procedure TForm1.ProgramInfoClick(Sender: TObject);
begin
  ProgramInfoDlg.Show;
end;

procedure TForm1.ResetProgramInfoDlgData(Sender: TObject);
var
  I: Integer; // 途中
begin
  FLiveData.OpenTime     := '';  // ok
  FLiveData.StartTime    := '';
  FLiveData.LiveID       := '';
  FLiveData.LiveTitle    := '';
  FLiveData.LiveOwner    := '';
  FLiveData.LiveAudience := -1;  //  マイナスの値の場合、情報を取得できなかったという意味にする。
  FLiveData.LiveComment  := -1;
  FLiveData.IsLiveStatus := -1;
  FLiveData.LiveMemo     := '';

  FCommunityData.CommunityAudience := '';    // ok
  FCommunityData.CommunityOpenDay  := '';
  FCommunityData.CommunityName     := '';
  FCommunityData.CommunityLevel    := '';
  FCommunityData.CommunityID       := '';
  FCommunityData.CommunityOwnerName:= '';
  FCommunityData.CommunityMember   := '';
  FCommunityData.CommunityMemo     := '';
  FCommunityData.CommunityStatus   := True;
  FCommunityData.IsCommunityGetInfo:= True;
  FCommunityData.IsCommunityMember := True;

  for I := 1 to TAGLIST do
  begin
    FLiveData.LiveTags[i] := '';
    FCommunityData.CommunityTags[i] := '';
  end;

  FUserData.IsUserGetInfo := True;     //ok
  FUserData.UserIsDead    := True;
  FUserData.UserBirthday  := -1;
  FUserData.UserName      := '';
  FUserData.UserID        := '';
  FUserData.UserMemo      := '';
  FUserData.UserLocation  := '';
  FUserData.UserSex       := '';
  FUserData.UserStamp     := -1; //  マイナスの値の場合、情報を取得できなかったという意味にする。
  FUserData.UserNicorare  := -1;
  FUserData.UserFav       := -1;
end;


procedure TForm1.SetStatusBar(StatusArray: TStatusArray);
begin
  case StatusArray[0] of
    0:StatusBar.Panels.Items[0].Text := 'lv番号:不明';
  else
    begin
      StatusBar.Panels.Items[0].Text := 'lv' + IntToStr( StatusArray[0] );
    end;
  end;

  case StatusArray[10] of
    0: ;
  else
    begin
      StatusBar.Panels.Items[0].Text := 'co' + IntToStr( StatusArray[10] );
    end;
  end;

  case StatusArray[11] of  // ファイル名から推測したlv番号
    0: ;
  else
    begin
      StatusBar.Panels.Items[0].Text := 'たぶんlv' + IntToStr( StatusArray[11] );
    end;
  end;

  case StatusArray[1] of
    0:StatusBar.Panels.Items[1].Text := '接続中';
    1:StatusBar.Panels.Items[1].Text := '生放送中';
    2:StatusBar.Panels.Items[1].Text := 'タイムシフト';
    3:StatusBar.Panels.Items[1].Text := 'ログファイル';
    4:StatusBar.Panels.Items[1].Text := 'ログファイル：kakoroku';
    5:StatusBar.Panels.Items[1].Text := 'ログファイル：NCV';
  else
    begin
      StatusBar.Panels.Items[1].Text := '';
    end;
  end;

  case StatusArray[2] of
  0:StatusBar.Panels.Items[2].Text := '';
  1:StatusBar.Panels.Items[2].Text := '公式放送 ';
  2:StatusBar.Panels.Items[2].Text := 'チャンネル';
  3:StatusBar.Panels.Items[2].Text := 'ユーザー';
  else
    begin
      StatusBar.Panels.Items[2].Text := '謎の放送';
    end;
  end;

  case StatusArray[3] of
    0:StatusBar.Panels.Items[3].Text := 'コメント人数：0';
  else
  begin
    StatusBar.Panels.Items[3].Text := 'コメント人数：' + IntToStr( StatusArray[3]);
  end;
  end;

  case StatusArray[4] of
    0:StatusBar.Panels.Items[4].Text := '';
  end;
end;

procedure TForm1.SaveAs2Click(Sender: TObject);
var
  Encoding : TEncoding;
  EncIndex : Integer;
  Filename : String;

  FileStrings: TStringList;
  SaveLineStrings: TStringList;
  i: integer;
begin   { TODO : 拡張子を指定せず保存した時に自動補完する機能。 }

  if SaveTextFileDialog1.Execute(Self.Handle) then
    begin
    //Selecting the file name and the encoding
    Filename := SaveTextFileDialog1.FileName;

    EncIndex := SaveTextFileDialog1.EncodingIndex;
    Encoding := SaveTextFileDialog1.Encodings.Objects[EncIndex] as TEncoding;

    FileStrings := TStringList.Create;
    SaveLineStrings := TStringList.Create;

    for i := 0 to ListView1.Items.Count - 1 do
      begin
        SaveLineStrings.Assign(ListView1.Items.Item[i].SubItems);
        SaveLineStrings.Insert(0, ListView1.Items.Item[i].Caption);
        FileStrings.Add(SaveLineStrings.CommaText);
      end;

    if ExtractFileExt(Filename)='' then
      begin
        Filename := Filename + '.txt';
        ShowMessage('拡張子がないので「' + ExtractFileName(Filename) + '」というファイル名で保存します。');
      end;

    //Checking if the file exists
    if FileExists(Filename) then
      raise Exception.Create('ファイルが既に存在します。')
    else
      //Save to file based on the selected encoding.
      FileStrings.SaveToFile(FileName, Encoding);
    end;
end;

procedure TForm1.SetLVItemFont(ACustomListView: TCustomListView;
  AListItem: TListItem);
var
  LV: TListView;
  PL: Integer;
begin
  if AListItem.SubItems.Count<5 then Exit;                 // Premiumが無いなら処理しない
  if not TryStrToInt(AListItem.SubItems[4], PL) then Exit; // 数字以外なら処理しない

  LV:=ACustomListView as TListView;
  case PL of
    1: LV.Canvas.Font.Style  := LV.Font.Style+[fsBold];  // プレミア会員
    2: LV.Canvas.Font.Color  := clMaroon;                // システムコマンド
    3: LV.Canvas.Font.Color  := clGreen;                 // 放送主コメント
    6: LV.Canvas.Brush.Color := $FFFFE0;             // BSP(一般)
    7: begin                                         // BSP(プレミアム)
         LV.Canvas.Font.Style  := [fsBold];
         LV.Canvas.Brush.Color := $FFFFE0;
         LV.Canvas.Font.Color  := clBlue;
       end;
   100:LV.Canvas.Font.Color := clRed;                  // NGコメント
  end;
end;

procedure TForm1.TopShowClick(Sender: TObject);
begin
   TopShow.Checked := not TopShow.Checked;
   if (TopShow.Checked = True) then
   begin
     //最前面に表示する
     SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE or SWP_NOMOVE);
   end
   else
   begin
     //普通に戻す
     SetWindowPos(Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOSIZE or SWP_NOMOVE);
   end;
end;


end.