Commit: c8d738e3caf18f861cc7b756118b96f955a42e9e - gikonavi (git)

ギコナビ

Commit MetaInfo

• Revision: c8d738e3caf18f861cc7b756118b96f955a42e9e (tree)
• Time: 2009-05-17 11:37:39
• Author: h677 <h677>
• Commiter: h677

Log Message

close #15812
レス番号コンテキストメニューにこのレスのURLコピーを追加。
2ch/したらばはPATH_INFO限定。ほかは両方で取得できるが、外部板は保障外。

Change Summary

• modified: Giko.dfm
• modified: Giko.pas
• modified: GikoDataModule.dfm
• modified: GikoDataModule.pas

Incremental Difference

--- a/Giko.dfm
+++ b/Giko.dfm
@@ -8406,6 +8406,18 @@ object GikoForm: TGikoForm
     object N83: TMenuItem
       Action = GikoDM.DereferenceResAction
     end
+    object N85: TMenuItem
+      Caption = '-'
+    end
+    object URL2: TMenuItem
+      Caption = #12371#12398#12524#12473#12398'URL'
+      object URLPATHINFO1: TMenuItem
+        Action = GikoDM.konoURLPATHAction
+      end
+      object URLQUERYSTRING1: TMenuItem
+        Action = GikoDM.konoURLQueryAction
+      end
+    end
   end
   object BrowserTabPopupMenu: TPopupMenu
     Images = HotToobarImageList

--- a/Giko.pas
+++ b/Giko.pas
@@ -421,6 +421,10 @@ type
     N83: TMenuItem;
     UpdateGikonaviAction1: TMenuItem;
     N84: TMenuItem;
+    N85: TMenuItem;
+    URL2: TMenuItem;
+    URLPATHINFO1: TMenuItem;
+    URLQUERYSTRING1: TMenuItem;
 				procedure FormCreate(Sender: TObject);
 		procedure FormDestroy(Sender: TObject);
         procedure SaveSettingAll();

--- a/GikoDataModule.dfm
+++ b/GikoDataModule.dfm
@@ -1386,6 +1386,21 @@ object GikoDM: TGikoDM
       Hint = #12462#12467#12490#12499#12398#26356#26032
       OnExecute = UpdateGikonaviActionExecute
     end
+    object konoURLPATHAction: TAction
+      Tag = -1
+      Category = #12502#12521#12454#12470#12509#12483#12503#12450#12483#12503
+      Caption = 'PATH_INFO'#24418#24335
+      Hint = #12371#12398#12524#12473#12398'URL'#12467#12500#12540#65288'PATH_INFO'#65289
+      OnExecute = konoURLPATHActionExecute
+    end
+    object konoURLQueryAction: TAction
+      Tag = -1
+      Category = #12502#12521#12454#12470#12509#12483#12503#12450#12483#12503
+      Caption = 'QUERY_STRING'#24418#24335
+      Hint = #12371#12398#12524#12473#12398'URL'#12467#12500#12540#65288'QUERY_STRING'#65289
+      OnExecute = konoURLQueryActionExecute
+      OnUpdate = konoURLQueryActionUpdate
+    end
   end
   object ToobarImageList: TImageList
     Left = 44

--- a/GikoDataModule.pas
+++ b/GikoDataModule.pas
@@ -243,6 +243,8 @@ type
     ShowTabListAction: TAction;
     DereferenceResAction: TAction;
     UpdateGikonaviAction: TAction;
+    konoURLPATHAction: TAction;
+    konoURLQueryAction: TAction;
 	procedure EditNGActionExecute(Sender: TObject);
 	procedure ReloadActionExecute(Sender: TObject);
 	procedure GoFowardActionExecute(Sender: TObject);
@@ -456,6 +458,9 @@ type
     procedure ShowTabListActionExecute(Sender: TObject);
     procedure DereferenceResActionExecute(Sender: TObject);
     procedure UpdateGikonaviActionExecute(Sender: TObject);
+    procedure konoURLPATHActionExecute(Sender: TObject);
+    procedure konoURLQueryActionExecute(Sender: TObject);
+    procedure konoURLQueryActionUpdate(Sender: TObject);
   private
 	{ Private éŒ¾ }
 	procedure ClearResFilter;
@@ -4595,6 +4600,76 @@ begin
     end;
 
 end;
+//! ‚±‚̃ŒƒX‚ÌURLƒRƒs[iPATH_INFO)
+procedure TGikoDM.konoURLPATHActionExecute(Sender: TObject);
+var
+    No : Integer;
+    ThreadItem : TThreadItem;
+    URL, Protocol, Host, Path, Document, Port, Bookmark : String;
+begin
+	No := GikoForm.KokoPopupMenu.Tag;
+	if No = 0 then Exit;
+
+    ThreadItem := GikoForm.KokoPopupThreadItem;
+    if (ThreadItem.ParentBoard.Is2ch) or not (Pos('?', ThreadItem.URL) > 0) then begin
+        GikoSys.ParseURI(ThreadItem.URL,Protocol, Host, Path, Document, Port, Bookmark);
+        URL := Protocol + '://' + Host + Path + IntToStr(No);
+    end else begin
+        if Pos('?', ThreadItem.URL) > 0 then begin
+            URL := Copy(ThreadItem.URL, 1, Pos('?', ThreadItem.URL)-1);
+            // ‚Ü‚¿BBS—pˆ’u
+            URL := MojuUtils.CustomStringReplace(URL, 'read.pl', 'read.cgi');
+            URL := URL + '/' + ThreadItem.ParentBoard.BBSID + '/' + ChangeFileExt(ThreadItem.FileName, '')  + '/' + IntToStr(No);
+        end;
+    end;
+    Clipboard.SetTextBuf( PChar(URL) );
+end;
+//! ‚±‚̃ŒƒX‚ÌURLƒRƒs[iQuery_STRING)
+procedure TGikoDM.konoURLQueryActionExecute(Sender: TObject);
+var
+    No : Integer;
+    ThreadItem : TThreadItem;
+    URL, Protocol, Host, Path, Document, Port, Bookmark : String;
+begin
+	No := GikoForm.KokoPopupMenu.Tag;
+	if No = 0 then Exit;
+
+    ThreadItem := GikoForm.KokoPopupThreadItem;
+    // 2ch‚Æ‚µ‚½‚ç‚΂́AƒŒƒX”ԍ†‚ð‚¤‚Ü‚­ˆ—‚µ‚Ä‚­‚ê‚È‚¢‚Ì‚Å—˜—p•s‰Â
+    if ThreadItem.ParentBoard.Is2ch or not (Pos('?', ThreadItem.URL) > 0) then begin
+        GikoSys.ParseURI(ThreadItem.URL, Protocol, Host, Path, Document, Port, Bookmark);
+        URL := Protocol + '://' + Host + '/test/read.cgi?bbs=' + ThreadItem.ParentBoard.BBSID
+            + '&key=' + ChangeFileExt(ThreadItem.FileName, '') + '&st=' + IntToStr(No) + '&to=' + IntToStr(No);
+    end else begin
+        URL := ThreadItem.URL;
+        // ‚Ü‚¿BBS
+        if Pos('&LAST=', URL) > 0 then begin
+            URL := Copy(URL, 1, Pos('&LAST=', URL) - 1);
+            URL := URL + '&START=' + IntToStr(No) + '&END=' + IntToStr(No);
+        end;
+        // ‚»‚Ì‘¼ŠO•””Â
+        if Pos('&ls=', URL) > 0 then begin
+            URL := Copy(URL, 1, Pos('&ls=', URL) - 1);
+            URL := URL + '&st=' + IntToStr(No) + '&to=' + IntToStr(No);
+        end;
+
+    end;
+    Clipboard.SetTextBuf( PChar(URL) );
+end;
+//! ‚±‚̃ŒƒX‚ÌURLƒRƒs[iQuery_STRINGj‚Ì—˜—pƒ`ƒFƒbƒN
+procedure TGikoDM.konoURLQueryActionUpdate(Sender: TObject);
+const
+	LIVEDOOR_URL = 'http://jbbs.livedoor.jp/';
+begin
+    // 2ch‚Æ‚µ‚½‚ç‚΂͗˜—p‚Å‚«‚È‚¢‚悤‚É‚·‚éi‚¤‚Ü‚­ƒŒƒXŽw’è‚Å‚«‚È‚¢‚̂Łj
+    konoURLQueryAction.Enabled := false;
+    if (GikoForm.KokoPopupThreadItem <> nil) then begin
+        konoURLQueryAction.Enabled := not GikoForm.KokoPopupThreadItem.ParentBoard.Is2ch;
+        if konoURLQueryAction.Enabled then begin
+            konoURLQueryAction.Enabled := not (Pos(LIVEDOOR_URL, GikoForm.KokoPopupThreadItem.URL) = 1);
+        end;
+    end;
+end;
 
 end.