X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=GikoSystem.pas;h=2c1e4d7d5a4794a97f545d1c3ed8f82f52d7aca3;hb=refs%2Fheads%2FBb62;hp=5e504814d02636d6ddf338d85e81af9e4ef385bf;hpb=72c96cdd04ac2a6952f1c03beac5d06ffba4b817;p=gikonavigoeson%2Fgikonavi.git

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 5e50481..2c1e4d7 100644
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -15,7 +15,7 @@ uses
 	{HttpApp,} URLMon, IdGlobal, IdURI, {Masks,}
 	Setting, BoardGroup, gzip, Dolib, bmRegExp, AbonUnit,
 	ExternalBoardManager, ExternalBoardPlugInMain,
-	GikoBayesian, GikoMessage;
+	GikoBayesian, GikoMessage, Belib;
 
 type
 	TVerResourceKey = (
@@ -112,6 +112,7 @@ type
 		FBayesian	: TGikoBayesian;	//!< ƒxƒCƒWƒAƒ“ƒtƒBƒ‹ƒ^
 		FVersion : String;		      //!< ƒtƒ@ƒCƒ‹ƒo[ƒWƒ‡ƒ“
 		FGikoMessage: TGikoMessage;
+        FBelib: TBelib;
 		//! ‚ ‚éƒZƒpƒŒ[ƒ^‚Å‹æØ‚ç‚ꂽ•¶Žš—ñ‚©‚ç‚Ž”Ô–Ú‚Ì•¶Žš—ñ‚ðŽæ‚èo‚·
 		function ChooseString(const Text, Separator: string; Index: integer): string;
         //! ˆêŽžƒtƒ@ƒCƒ‹‚©‚ç‚Ì•œ‹Œ
@@ -165,6 +166,7 @@ type
 		function DivideSubject(Line: string): TSubjectRec;
 		property Setting: TSetting read FSetting write FSetting;
 		property Dolib: TDolib read FDolib write FDolib;
+		property Belib: TBelib read FBelib write FBelib;
 
 		function UrlToID(url: string): string;
 		function UrlToServer(url: string): string;
@@ -263,6 +265,8 @@ type
         procedure DelBoukenCookie(ADomain: String);
         //! –`Œ¯‚̏‘Domainˆê——Žæ“¾
         procedure GetBoukenDomain(var ADomain: TStringList);
+        //! –`Œ¯‚̏‘ƒhƒƒCƒ“–¼CookieŽæ“¾
+        function GetBouken(AURL: String; var Domain: String): String;
 	end;
 
 var
@@ -317,6 +321,7 @@ begin
     Inherited;
 	FSetting := TSetting.Create;
 	FDolib := TDolib.Create;
+    FBelib := TBelib.Create;
 	FAWKStr := TAWKStr.Create(nil);
 	if DirectoryExists(GetConfigDir) = false then begin
 		CreateDir(GetConfigDir);
@@ -370,6 +375,7 @@ begin
 	FreeAndNil(FSelectResFilter);
 	FreeAndNil(FAbon);
 	FreeAndNil(FAWKStr);
+    FreeAndNil(FBelib);
 	FreeAndNil(FDolib);
 	FreeAndNil(FSetting);
 	inherited;
@@ -3493,7 +3499,19 @@ begin
         end;
     end;
 end;
-
+function TGikoSys.GetBouken(AURL: String; var Domain: String): String;
+var
+	Protocol, Host, Path, Document, Port,Bookmark : String;
+    Cookie : String;
+begin
+    Domain := '';
+    Cookie := '';
+    GikoSys.ParseURI(AURL, Protocol, Host, Path, Document, Port,Bookmark);
+    if ( Length(Host) > 0 ) then begin
+        Setting.GetBouken(Host, Domain, Cookie);
+        Result := Cookie;
+    end;
+end;
 
 initialization
 	GikoSys := TGikoSys.Create;