Beログイン仕様変更に対応

[gikonavigoeson/gikonavi.git] / Setting.pas

diff --git a/Setting.pas b/Setting.pas
index 27b66fa..cfbf9ec 100644 (file)
--- a/Setting.pas
+++ b/Setting.pas
@@ -550,6 +550,7 @@ type
         function GetExtprevieFileName: String;
         function GetBoukenCookie(AHostName: String): String;
         procedure SetBoukenCookie(ACookieValue, AHostName: String);
+        procedure GetBouken(AHostName: String; var Domain:String; var Cookie:String);
         {
         \brief  \83\8a\83\93\83N\97\9a\97ð\82Ì\95Û\8e\9d\83T\83C\83Y\82Ìsetter
         \param  AVal    \90Ý\92è\82·\82é\83T\83C\83Y( >0)
@@ -2503,5 +2504,19 @@ begin
         FBoukenCookieList.Add(AHostName + '=' + ACookieValue);
     end;
 end;
+procedure TSetting.GetBouken(AHostName: String; var Domain:String; var Cookie:String);
+var
+    i : Integer;
+begin
+    Cookie := '';
+    for i := 0 to FBoukenCookieList.Count - 1 do begin
+        if ( AnsiPos(FBoukenCookieList.Names[i], AHostName) > 0 ) then begin
+            Domain := FBoukenCookieList.Names[i];
+            Cookie := FBoukenCookieList.Values[FBoukenCookieList.Names[i]];
+            Break;
+        end;
+    end;
+end;
+
 end.