Beのプロファイルへのリンクを変更

diff --git a/GikoSystem.pas b/GikoSystem.pas
index f6a7ddc..0fb4f29 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -237,7 +237,7 @@ type
         //\88ø\90\94\82ª\81A\93ú\95t\82Å\82à\8e\9e\8d\8f\82Å\82à\82È\82¢\82±\82Æ\82ð\92²\82×\82é
                function NotDateorTimeString(const AStr : string): boolean;
         //\88ø\90\94\82É\91\97\82ç\82ê\82Ä\82«\82½\93ú\95t/ID\95\94\82ÉBE\82Ì\95¶\8e\9a\97ñ\82ª\82 \82Á\82½\82ç\81A\83v\83\8d\83t\83@\83C\83\8b\82Ö\82Ì\83\8a\83\93\83N\82ð\92Ç\89Á
-        function AddBeProfileLink(AID : string; ANum: Integer; AURL : string): string;
+        function AddBeProfileLink(AID : string; ANum: Integer): string;
        end;
 
 var
@@ -251,6 +251,7 @@ const
        BETA_VERSION_BUILD      = '';                           //debug\94Å\82È\82Ç
        APP_NAME                                                = 'gikoNavi';
     BE_PHP_URL = 'http://be.2ch.net/test/p.php?i=';
+
 implementation
 
 uses
@@ -266,6 +267,7 @@ const
        OLD_READ_PATH: string =         '/test/read.cgi?';
        KAKO_PATH: string =                     '/kako/';
 
+
 (*************************************************************************
  *GikoSys\83R\83\93\83X\83g\83\89\83N\83^
  *************************************************************************)
@@ -1094,7 +1096,7 @@ var
        SkinRes: string;
 
        strTmp : string;
-    threadURL : string;
+//    threadURL : string;
        function LoadSkin( fileName: string ): string;
        begin
                Result := LoadFromSkin( fileName, ThreadItem, ThreadItem.Size );
@@ -1223,7 +1225,7 @@ begin
                                        sTitle := CustomStringReplace(ThreadItem.Title, '\81\97\81M', ',');
                                end;
                                SaveList := TStringList.Create;
-                threadURL := CustomStringReplace(ThreadItem.URL, 'l50', '');
+                //threadURL := CustomStringReplace(ThreadItem.URL, 'l50', '');
                                try
                                        doc.open;
                                        doc.charset := 'Shift_JIS';
@@ -1286,7 +1288,7 @@ begin
 
                                                                Res := DivideStrLine(ReadList[i]);
                                                                Res.FBody := ConvRes(AddAnchorTag(Res.FBody), ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true');
-                                Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1, threadURL);
+                                Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);
                                                                try
                                                                        if NewReceiveNo <= (i + 1) then
                                                                                // \90V\92\85\83\8c\83X
@@ -1363,7 +1365,7 @@ begin
                                                                No := IntToStr(i + 1);
                                                                Res := DivideStrLine(ReadList[i]);
                                                                Res.FBody := ConvRes(AddAnchorTag(Res.FBody), ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true');
-                                Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1, threadURL);
+                                Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);
                                                                if Res.FMailTo = '' then
                                                                        SaveList.Add('<a name="' + No + '"></a>'
                                                                                                        + '<div class="header"><span class="no"><a href="menu:' + No + '">' + No + '</a></span> '
@@ -1444,7 +1446,7 @@ begin
                                                                No := IntToStr(i + 1);
                                                                Res := DivideStrLine(ReadList[i]);
                                                                Res.FBody := ConvRes(AddAnchorTag(Res.FBody), ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true');
-                                Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1, threadURL);
+                                Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);
                                                                if Res.FMailTo = '' then
                                                                        SaveList.Add('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> \96¼\91O\81F<font color="forestgreen"><b> ' + Res.FName + ' </b></font> \93\8a\8de\93ú\81F <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>')
                                                                else if GikoSys.Setting.ShowMail then
@@ -4030,15 +4032,14 @@ begin
        end;
 end;
 //\88ø\90\94\81AAID\81F\91Î\8fÛ\82Æ\82È\82é\93ú\95tID\95¶\8e\9a\97ñ\81AANum:\83\8c\83X\94Ô AURL\81F\82»\82Ì\83X\83\8c\83b\83h\82ÌURL
-//'http://be.2ch.net/test/p.php?i='+id+'&u=d:'+bas+num
-function TGikoSys.AddBeProfileLink(AID : string; ANum: Integer; AURL : string):string ;
+function TGikoSys.AddBeProfileLink(AID : string; ANum: Integer):string ;
 var
        p : integer;
     BNum, BMark : string;
 begin
     p := AnsiPos('BE:', AnsiUpperCase(AID));
     if p > 0 then begin
-       BNum := Copy(AID, p+3, Length(AID));
+       BNum := Copy(AID, p, Length(AID));
         AID := Copy(AID, 1, p - 1);
         p := AnsiPos('-', BNum);
         if p > 0 then begin
@@ -4046,8 +4047,7 @@ begin
                BNum := Copy(BNum, 1, p - 1);
         end;
         BNum := Trim(BNum);
-        Result := AID + ' <a href="' + BE_PHP_URL
-               + BNum + '&u=d:' + AURL + IntToStr(ANum)
+        Result := AID + ' <a href="'  + BNum + '/' + IntToStr(ANum)
             + '" target=_blank>' + BMark + '</a>';
     end else
        Result := AID;