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.25 by yoffy, Sun Sep 21 22:17:41 2003 UTC revision 1.26 by yoffy, Mon Sep 22 00:05:22 2003 UTC
# Line 203  const Line 203  const
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      SKIN_HEADER_FILE_NAME                                 = 'Header.html';
207          FOLDER_INDEX_VERSION                                    = '1.01';          FOLDER_INDEX_VERSION                                    = '1.01';
208          USER_AGENT                                                                              = 'Monazilla';          USER_AGENT                                                                              = 'Monazilla';
209          APP_NAME                                                                                        = 'gikoNavi';          APP_NAME                                                                                        = 'gikoNavi';
# Line 815  begin Line 816  begin
816                          doc.charset := 'Shift_JIS';                          doc.charset := 'Shift_JIS';
817    
818                          CSSFileName := GetStyleSheetDir + Setting.CSSFileName;                          CSSFileName := GetStyleSheetDir + Setting.CSSFileName;
819                          SkinHeaderFileName := GetSkinDir + 'Header.html';                          SkinHeaderFileName := GetSkinDir + SKIN_HEADER_FILE_NAME;
820                          if GikoSys.Setting.UseCSS and FileExists(CSSFileName) then begin        if FileExists( SkinHeaderFileName ) then begin
821                                  //CSS使用          // スキン使用
822                                  //CSSFileName := GetAppDir + CSS_FILE_NAME;  
 //                              SaveList.Add('<html lang="ja"><head>');  
823                                  SaveList.Add('<html><head>');                                  SaveList.Add('<html><head>');
824                                  SaveList.Add('<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">');                                  SaveList.Add('<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">');
825                                  SaveList.Add('<title>' + sTitle + '</title>');                                  SaveList.Add('<title>' + sTitle + '</title>');
826                                  SaveList.Add('<link rel="stylesheet" href="'+CSSFileName+'" type="text/css">');  
827                                    // CSS の設定
828                                    //SaveList.Add('<link rel="stylesheet" href="'+CSSFileName+'" type="text/css">');
829    
830                                  // スキンの設定                                  // スキンの設定
831                                  SaveList.Add('<base href="' + GetSkinDir + '">');                                  SaveList.Add('<base href="' + GetSkinDir + '">');
832                                  SaveList.Add('<meta name="SkinPath" content="' + GetSkinDir + '">');                                  SaveList.Add('<meta name="SkinPath" content="' + GetSkinDir + '">');
833                                  ThreadNo := Copy( ThreadItem.FileName, 1, Pos( '.', ThreadItem.FileName ) - 1 );                                  ThreadNo := Copy( ThreadItem.FileName, 1, Pos( '.', ThreadItem.FileName ) - 1 );
834                                  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>');
835                                  if FileExists( SkinHeaderFileName ) then                                  try
                                 begin  
836                                          Skin := TStringList.Create;                                          Skin := TStringList.Create;
837                                          Skin.LoadFromFile( SkinHeaderFileName );                                          Skin.LoadFromFile( SkinHeaderFileName );
838                                          SaveList.AddStrings( Skin );                                          SaveList.AddStrings( Skin );
839                                          Skin.Free;                                          Skin.Free;
840            except
841                                    end;
842    
843                                    SaveList.Add('</head>');
844                                    SaveList.Add('<body>');
845                                    SaveList.Add('<dl id="dl">');
846                                    SaveList.Add('<a name="top"></a>');
847                                    //SaveList.Add('<div class="title">' + sTitle + '</div>');
848    
849                                    for i := 0 to ReadList.Count - 1 do begin
850                                            if (Trim(ReadList[i]) <> '') then begin
851                                                    No := IntToStr(i + 1);
852                                                    if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin
853                                                            SaveList.Add('<a name="new"></a><div class="new">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></div>');
854                                                    end;
855                                                    Res := DivideStrLine(ReadList[i]);
856                                                    Res.FBody := ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true');
857    
858                                                    if Res.FType = glt2chOld then begin
859                                                            Res.FMailTo := StringReplace(Res.FMailTo, '@`', ',', [rfReplaceAll]);
860                                                            Res.FName := StringReplace(Res.FName, '@`', ',', [rfReplaceAll]);
861                                                            Res.FBody := StringReplace(Res.FBody, '@`', ',', [rfReplaceAll]);
862                                                    end;
863    
864                                                    Res.FBody := AddAnchorTag(Res.FBody);
865                                                    if Res.FName = '' then
866                                                            Res.FName := '&nbsp;';
867                                                    if Res.FMailTo = '' then
868                                                            SaveList.Add('<a name="' + No + '"></a>'
869                                                                                                     + '<dt><a href="menu:=' + No + '" name="Res' + No + '">' + No + '</a>'
870                                                                                                     + ' 名前:'
871                                                                                                     + '<u><b> ' + Res.FName + '</b></u>'
872                                                                                                     + ' 投稿日:'
873                                                                                                     + '<span> ' + Res.FDateTime+ '</span></dt>'
874                                                                                                     + '<dd>' + Res.FBody + '</dd>')
875                                                    else
876                                                            if GikoSys.Setting.ShowMail then
877                                                                    SaveList.Add('<a name="' + No + '"></a>'
878                                                                                                             + '<dt><a href="menu:' + No + '" name="Res' + No + '">' + No + '</a>'
879                                                                                                             + ' 名前:'
880                                                                                                             + '<a href="mailto:' + Res.FMailTo + '">'
881                                                                                                             + '<u><b> ' + Res.FName + '</b></u></a> [' + Res.FMailTo + ']'
882                                                                                                             + ' 投稿日:'
883                                                                                                             + '<span> ' + Res.FDateTime+ '</span></div></dt>'
884                                                                                                             + '<dd>' + Res.FBody + '</dd>')
885                                                            else
886                                                                    SaveList.Add('<a name="' + No + '"></a>'
887                                                                                                             + '<a href="menu:' + No + '" name="Res' + No + '">' + No + '</a>'
888                                                                                                             + ' 名前:'
889                                                                                                             + '<a href="mailto:' + Res.FMailTo + '">'
890                                                                                                             + '<u><b> ' + Res.FName + '</b></u></a>'
891                                                                                                             + ' 投稿日:'
892                                                                                                             + '<spa> ' + Res.FDateTime+ '</span></div>'
893                                                                                                             + '<dd>' + Res.FBody + '</dd>');
894                                                    if ThreadItem.Kokomade = (i + 1) then begin
895                                                            SaveList.Add('<a name="koko"></a><div class="koko">ココまで読んだ</div>');
896                                                    end;
897                                            end;
898                                            //if SaveList.Count > 50 then begin
899                                            if i = 20 then begin
900                                                    //Sleep(1);
901                                                    //Application.ProcessMessages;
902    
903                                                    doc.Write(SaveList.Text);
904                                                    //while GikoForm.Browser.Busy do begin
905                                                    //      Sleep(1);
906                                                    //      Application.ProcessMessages;
907                                                    //end;
908                                                    while (GikoForm.Browser.ReadyState <> READYSTATE_COMPLETE) and
909                                                                            (GikoForm.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
910                                                            //Sleep(1);
911                                                            //Application.ProcessMessages;
912                                                    end;
913                                                    SaveList.Clear;
914                                            end;
915                                  end;                                  end;
916                                    SaveList.Add('<a name="bottom"></a>');
917                                    SaveList.Add('</dl>');
918                                    SaveList.Add('<a name="last"></a>');
919                                    SaveList.Add('</body></html>');
920    
921                                    doc.Write(SaveList.Text);
922                            end else if GikoSys.Setting.UseCSS and FileExists(CSSFileName) then begin
923                                    //CSS使用
924                                    //CSSFileName := GetAppDir + CSS_FILE_NAME;
925    //                              SaveList.Add('<html lang="ja"><head>');
926                                    SaveList.Add('<html><head>');
927                                    SaveList.Add('<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">');
928                                    SaveList.Add('<title>' + sTitle + '</title>');
929                                    SaveList.Add('<link rel="stylesheet" href="'+CSSFileName+'" type="text/css">');
930                                  SaveList.Add('</head>');                                  SaveList.Add('</head>');
931                                  SaveList.Add('<body>');                                  SaveList.Add('<body>');
                                 //SaveList.Add('<dl id="dl">');  
932                                  SaveList.Add('<a name="top"></a>');                                  SaveList.Add('<a name="top"></a>');
933                                  SaveList.Add('<div class="title">' + sTitle + '</div>');                                  SaveList.Add('<div class="title">' + sTitle + '</div>');
934                                  //doc.Write(SaveList.Text);                                  //doc.Write(SaveList.Text);
# Line 869  begin Line 957  begin
957                                                          Res.FName := '&nbsp;';                                                          Res.FName := '&nbsp;';
958                                                  if Res.FMailTo = '' then                                                  if Res.FMailTo = '' then
959                                                          SaveList.Add('<a name="' + No + '"></a>'                                                          SaveList.Add('<a name="' + No + '"></a>'
960                                                                                                   + '<dt><div class="header"><span class="no"><a href="giko://?no=' + No + '">' + No + '</a></span> '                                                                                                   + '<div class="header"><span class="no"><a href="giko://?no=' + No + '">' + No + '</a></span> '
961                                                                                                   + '<span class="name_label">名前:</span> '                                                                                                   + '<span class="name_label">名前:</span> '
962                                                                                                   + '<span class="name"><b>' + Res.FName + '</b></span> '                                                                                                   + '<span class="name"><b>' + Res.FName + '</b></span> '
963                                                                                                   + '<span class="date_label">投稿日:</span> '                                                                                                   + '<span class="date_label">投稿日:</span> '
964                                                                                                   + '<span class="date">' + Res.FDateTime+ '</span></div></dt>'                                                                                                   + '<span class="date">' + Res.FDateTime+ '</span></div>'
965                                                                                                   + '<dd><div class="mes">' + Res.FBody + ' </div></dd>')                                                                                                   + '<div class="mes">' + Res.FBody + ' </div>')
966                                                  else                                                  else
967                                                          if GikoSys.Setting.ShowMail then                                                          if GikoSys.Setting.ShowMail then
968                                                                  SaveList.Add('<a name="' + No + '"></a>'                                                                  SaveList.Add('<a name="' + No + '"></a>'
969                                                                                                           + '<dt><div class="header"><span class="no"><a href="giko://?no=' + No + '">' + No + '</a></span>'                                                                                                           + '<div class="header"><span class="no"><a href="giko://?no=' + No + '">' + No + '</a></span>'
970                                                                                                           + '<span class="name_label"> 名前: </span>'                                                                                                           + '<span class="name_label"> 名前: </span>'
971                                                                                                           + '<a class="name_mail" href="mailto:' + Res.FMailTo + '">'                                                                                                           + '<a class="name_mail" href="mailto:' + Res.FMailTo + '">'
972                                                                                                           + '<b>' + Res.FName + '</b></a><span class="mail"> [' + Res.FMailTo + ']</span>'                                                                                                           + '<b>' + Res.FName + '</b></a><span class="mail"> [' + Res.FMailTo + ']</span>'
973                                                                                                           + '<span class="date_label"> 投稿日:</span>'                                                                                                           + '<span class="date_label"> 投稿日:</span>'
974                                                                                                           + '<span class="date"> ' + Res.FDateTime+ '</span></div></dt>'                                                                                                           + '<span class="date"> ' + Res.FDateTime+ '</span></div>'
975                                                                                                           + '<dd><div class="mes">' + Res.FBody + ' </div></dd>')                                                                                                           + '<div class="mes">' + Res.FBody + ' </div>')
976                                                          else                                                          else
977                                                                  SaveList.Add('<a name="' + No + '"></a>'                                                                  SaveList.Add('<a name="' + No + '"></a>'
978                                                                                                           + '<div class="header"><span class="no"><a href="giko://?no=' + No + '">' + No + '</a></span>'                                                                                                           + '<div class="header"><span class="no"><a href="giko://?no=' + No + '">' + No + '</a></span>'
# Line 918  begin Line 1006  begin
1006                                  end;                                  end;
1007                                  SaveList.Add('<a name="bottom"></a>');                                  SaveList.Add('<a name="bottom"></a>');
1008                                  SaveList.Add('</body></html>');                                  SaveList.Add('</body></html>');
                                 {  
                                 SaveList.Add('</dl>');  
1009                                  SaveList.Add('<a name="last"></a>');                                  SaveList.Add('<a name="last"></a>');
1010                                  SaveList.Add('</body></html>');                                  SaveList.Add('</body></html>');
1011                                  }  
1012                                  doc.Write(SaveList.Text);                                  doc.Write(SaveList.Text);
1013                          end else begin                          end else begin
1014                                  //CSS非使用                                  //CSS非使用

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

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