Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

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

revision 1.24 by yoffy, Sun Sep 21 13:28:16 2003 UTC revision 1.25 by yoffy, Sun Sep 21 22:17:41 2003 UTC
# Line 93  type Line 93  type
93    
94          public          public
95                  { Public 宣言 }                  { Public 宣言 }
96                                  FAbon : TAbon;                  FAbon : TAbon;
97                                  FSelectResFilter : TAbon;                  FSelectResFilter : TAbon;
98                  constructor Create;                  constructor Create;
99    
100                  destructor Destroy; override;                  destructor Destroy; override;
# Line 181  type Line 181  type
181  var  var
182          GikoSys: TGikoSys;          GikoSys: TGikoSys;
183  const  const
184          LENGTH_RESTITLE          = 40;          LENGTH_RESTITLE                 = 40;
185          ZERO_DATE: Integer      = 25569;          ZERO_DATE: Integer      = 25569;
186          BETA_VERSION_NAME_E = 'beta';          BETA_VERSION_NAME_E = 'beta';
187          BETA_VERSION_NAME_J = 'バタ';          BETA_VERSION_NAME_J = 'バタ';
# Line 194  uses Line 194  uses
194          Giko, RoundData;          Giko, RoundData;
195    
196  const  const
197          BOARD_FILE_NAME                                                  = 'board.2ch';          BOARD_FILE_NAME                                                         = 'board.2ch';
198          CUSTOMBOARD_FILE_NAME                            = 'custom.2ch';          CUSTOMBOARD_FILE_NAME                                   = 'custom.2ch';
199          KEY_SETTING_FILE_NAME                            = 'key.ini';          KEY_SETTING_FILE_NAME                                   = 'key.ini';
200          TEMP_FOLDER                                                                      = 'Temp';          TEMP_FOLDER                                                                             = 'Temp';
201          OUTBOX_FILE_NAME                                                        = 'outbox.ini';          OUTBOX_FILE_NAME                                                        = 'outbox.ini';
202          SENT_FILE_NAME                                                          = 'sent.ini';          SENT_FILE_NAME                                                          = 'sent.ini';
203          CONFIG_DIR_NAME                                                  = 'config';          CONFIG_DIR_NAME                                                         = 'config';
204          CSS_DIR_NAME                                                                    = 'css';          CSS_DIR_NAME                                                                    = 'css';
205          SKIN_DIR_NAME                                                                   = 'skin';          SKIN_DIR_NAME                                                                   = 'skin';
206          FOLDER_INDEX_VERSION                                    = '1.01';          FOLDER_INDEX_VERSION                                    = '1.01';
207          USER_AGENT                                                                              = 'Monazilla';          USER_AGENT                                                                              = 'Monazilla';
208          APP_NAME                                                                                        = 'gikoNavi';          APP_NAME                                                                                        = 'gikoNavi';
209                  DEFAULT_NGWORD_FILE_NAME : String = 'NGword.txt';          DEFAULT_NGWORD_FILE_NAME : String = 'NGword.txt';
210                                  NGWORDs_DIR_NAME : String = 'NGwords';          NGWORDs_DIR_NAME : String               = 'NGwords';
211    
212  (*************************************************************************  (*************************************************************************
213   *GikoSysコンストラクタ   *GikoSysコンストラクタ
# Line 217  begin Line 217  begin
217          FSetting := TSetting.Create;          FSetting := TSetting.Create;
218          FDolib := TDolib.Create;          FDolib := TDolib.Create;
219          FAWKStr := TAWKStr.Create(nil);          FAWKStr := TAWKStr.Create(nil);
220                  if DirectoryExists(GetConfigDir) = false then begin          if DirectoryExists(GetConfigDir) = false then begin
221                          CreateDir(GetConfigDir);                  CreateDir(GetConfigDir);
222                  end;          end;
223          FAbon := TAbon.Create;          FAbon := TAbon.Create;
224          FAbon.Setroot(GetConfigDir+NGWORDs_DIR_NAME);          FAbon.Setroot(GetConfigDir+NGWORDs_DIR_NAME);
225                  //FAbon.SetNGwordpath(DEFAULT_NGWORD_FILE_NAME);          //FAbon.SetNGwordpath(DEFAULT_NGWORD_FILE_NAME);
226                  FAbon.GoHome;          FAbon.GoHome;
227                  FSelectResFilter := TAbon.Create;          FSelectResFilter := TAbon.Create;
228          // 絞り込むときは極力一覧が見られるほうがいいので他は完全に削除          // 絞り込むときは極力一覧が見られるほうがいいので他は完全に削除
229          FSelectResFilter.AbonString := '';          FSelectResFilter.AbonString := '';
230  end;  end;
# Line 780  var Line 780  var
780          FileName: string;          FileName: string;
781          NewReceiveNo: Integer;          NewReceiveNo: Integer;
782          Res: TResRec;          Res: TResRec;
783    Skin: TStringList;          Skin: TStringList;
784    ThreadNo: string;          ThreadNo: string;
785    SkinHeaderFileName: string;          SkinHeaderFileName: string;
786  begin  begin
787          ShortDayNames[1] := '日';               ShortDayNames[2] := '月';          ShortDayNames[1] := '日';               ShortDayNames[2] := '月';
788          ShortDayNames[3] := '火';               ShortDayNames[4] := '水';          ShortDayNames[3] := '火';               ShortDayNames[4] := '水';
# Line 815  begin Line 815  begin
815                          doc.charset := 'Shift_JIS';                          doc.charset := 'Shift_JIS';
816    
817                          CSSFileName := GetStyleSheetDir + Setting.CSSFileName;                          CSSFileName := GetStyleSheetDir + Setting.CSSFileName;
818        SkinHeaderFileName := GetSkinDir + 'Header.html';                          SkinHeaderFileName := GetSkinDir + 'Header.html';
819                          if GikoSys.Setting.UseCSS and FileExists(CSSFileName) then begin                          if GikoSys.Setting.UseCSS and FileExists(CSSFileName) then begin
820                                  //CSS使用                                  //CSS使用
821                                  //CSSFileName := GetAppDir + CSS_FILE_NAME;                                  //CSSFileName := GetAppDir + CSS_FILE_NAME;
# Line 825  begin Line 825  begin
825                                  SaveList.Add('<title>' + sTitle + '</title>');                                  SaveList.Add('<title>' + sTitle + '</title>');
826                                  SaveList.Add('<link rel="stylesheet" href="'+CSSFileName+'" type="text/css">');                                  SaveList.Add('<link rel="stylesheet" href="'+CSSFileName+'" type="text/css">');
827    
828          // スキンの設定                                  // スキンの設定
829                                  SaveList.Add('<base href="' + GetConfigDir + 'skin\">');                                  SaveList.Add('<base href="' + GetSkinDir + '">');
830          SaveList.Add('<meta name="SkinPath" content="' + GetSkinDir + '">');                                  SaveList.Add('<meta name="SkinPath" content="' + GetSkinDir + '">');
831          ThreadNo := Copy( ThreadItem.FileName, 1, Pos( '.', ThreadItem.FileName ) - 1 );                                  ThreadNo := Copy( ThreadItem.FileName, 1, Pos( '.', ThreadItem.FileName ) - 1 );
832                                  SaveList.Add('<script type="text/javascript">function checkPop(href){return href.match(/decoy:|#|\/'+ThreadNo+'\//)}</script>');                                  SaveList.Add('<script type="text/javascript">function checkPop(href){return href.match(/decoy:|#|\/'+ThreadNo+'\//)}</script>');
833          if FileExists( SkinHeaderFileName ) then                                  if FileExists( SkinHeaderFileName ) then
834          begin                                  begin
835            Skin := TStringList.Create;                                          Skin := TStringList.Create;
836            Skin.LoadFromFile( SkinHeaderFileName );                                          Skin.LoadFromFile( SkinHeaderFileName );
837            SaveList.AddStrings( Skin );                                          SaveList.AddStrings( Skin );
838            Skin.Free;                                          Skin.Free;
839          end;                                  end;
840    
841                                  SaveList.Add('</head>');                                  SaveList.Add('</head>');
842                                  SaveList.Add('<body>');                                  SaveList.Add('<body>');
# Line 919  begin Line 919  begin
919                                  SaveList.Add('<a name="bottom"></a>');                                  SaveList.Add('<a name="bottom"></a>');
920                                  SaveList.Add('</body></html>');                                  SaveList.Add('</body></html>');
921                                  {                                  {
922          SaveList.Add('</dl>');                                  SaveList.Add('</dl>');
923                                  SaveList.Add('<a name="last"></a>');                                  SaveList.Add('<a name="last"></a>');
924                                  SaveList.Add('</body></html>');                                  SaveList.Add('</body></html>');
925          }                                  }
926                                  doc.Write(SaveList.Text);                                  doc.Write(SaveList.Text);
927                          end else begin                          end else begin
928                                  //CSS非使用                                  //CSS非使用
# Line 1130  begin Line 1130  begin
1130          Result.FName := Trim(GetTokenIndex(Line, Delim, 0));          Result.FName := Trim(GetTokenIndex(Line, Delim, 0));
1131          Result.FMailTo := Trim(GetTokenIndex(Line, Delim, 1));          Result.FMailTo := Trim(GetTokenIndex(Line, Delim, 1));
1132          Result.FDateTime := Trim(GetTokenIndex(Line, Delim, 2));          Result.FDateTime := Trim(GetTokenIndex(Line, Delim, 2));
1133                  bufBody := Trim(GetTokenIndex(Line, Delim, 3));          bufBody := Trim(GetTokenIndex(Line, Delim, 3));
1134                  if bufbody = '' then begin          if bufbody = '' then begin
1135                                  Insert('&nbsp;',bufbody, 1);                  Insert('&nbsp;',bufbody, 1);
1136                  end;          end;
1137                  Result.FBody := bufBody;          Result.FBody := bufBody;
1138          Result.FTitle := Trim(GetTokenIndex(Line, Delim, 4));          Result.FTitle := Trim(GetTokenIndex(Line, Delim, 4));
1139    
1140  end;  end;
# Line 1281  var Line 1281  var
1281  begin  begin
1282          sl := TStringList.Create;          sl := TStringList.Create;
1283          try          try
1284                                  try                  try
1285                          sl.LoadFromFile(FileName);                          sl.LoadFromFile(FileName);
1286                          Result := sl.Count;                          Result := sl.Count;
1287                                  except                  except
1288                                          Result := 0;                          Result := 0;
1289                                  end;                  end;
1290          finally          finally
1291                  sl.Free;                  sl.Free;
1292          end;          end;
# Line 2264  procedure TGikoSys.ParseURI(var URL, Pro Line 2264  procedure TGikoSys.ParseURI(var URL, Pro
2264  var  var
2265          URI: TIdURI;          URI: TIdURI;
2266  begin  begin
2267                  Protocol := '';          Protocol := '';
2268                  Host := '';          Host := '';
2269                  Path := '';          Path := '';
2270                  Document := '';          Document := '';
2271                  Port := '';          Port := '';
2272                  Bookmark := '';          Bookmark := '';
2273                  URI := TIdURI.Create(URL);          URI := TIdURI.Create(URL);
2274                  try          try
2275                          Protocol := URI.Protocol;                  Protocol := URI.Protocol;
2276                          Host := URI.Host;                  Host := URI.Host;
2277                          Path := URI.Path;                  Path := URI.Path;
2278                          Document := URI.Document;                  Document := URI.Document;
2279                          Port := URI.Port;                  Port := URI.Port;
2280                          Bookmark := URI.Bookmark;                  Bookmark := URI.Bookmark;
2281                  finally          finally
2282                          URI.Free;                  URI.Free;
2283                  end;          end;
2284  end;  end;
2285    
2286  function TGikoSys.GetVersionBuild: Integer;  function TGikoSys.GetVersionBuild: Integer;

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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