レスアンカーが設定されない不具合の修正

[gikonavigoeson/gikonavi.git] / KuroutSetting.pas

diff --git a/KuroutSetting.pas b/KuroutSetting.pas
index d8a81fe..bc2d32a 100644 (file)
--- a/KuroutSetting.pas
+++ b/KuroutSetting.pas
@@ -53,6 +53,14 @@ type
     GroupBox2: TGroupBox;
     LocalTrapAtt: TCheckBox;
     RemoteTrapAtt: TCheckBox;
+    Label6: TLabel;
+    ReadTimeOut: TEdit;
+    Label7: TLabel;
+    KakikomiTabSheet: TTabSheet;
+    CookieGroupBox: TGroupBox;
+    Label8: TLabel;
+    FixedCookieEdit: TEdit;
+    Label9: TLabel;
        procedure OkBottonClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure CDeleteButtonClick(Sender: TObject);
@@ -94,6 +102,7 @@ begin
        ProtocolCheckBox.Checked := GikoSys.Setting.Protocol;
        //\83v\83\8d\83L\83V\90Ú\91±HTTP1.1\8eg\97p
        ProxyProtocolCheckBox.Checked := Gikosys.Setting.ProxyProtocol;
+       ReadTimeOut.Text := IntToStr(GikoSys.Setting.ReadTimeOut);
 
                //\8f\91\82«\8d\9e\82Ý\8e\9e\83}\83V\83\93\8e\9e\8aÔ\8eg\97p\90Ý\92è
        PostTimeCheckBox.Checked := GikoSys.Setting.UseMachineTime;
@@ -107,17 +116,20 @@ begin
 
        PageControl1.ActivePageIndex := GikoSys.Setting.KuroutSettingTabIndex;
 
-        //2chAnnai
-        GengoSupport.Checked := GikoSys.Setting.GengoSupport;
-        //FusianaSet
-        LocalTrapAtt.Checked := GikoSys.Setting.LocalTrapAtt;
-        RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt;
+       //2chAnnai
+       GengoSupport.Checked := GikoSys.Setting.GengoSupport;
+       //FusianaSet
+       LocalTrapAtt.Checked := GikoSys.Setting.LocalTrapAtt;
+       RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt;
+       // Cookie
+    FixedCookieEdit.Text := GikoSys.Setting.FixedCookie;
 end;
 
 procedure TKuroutOption.SaveSetting;
 begin
        //\8eó\90M\83o\83b\83t\83@\83T\83C\83Y
-       Gikosys.Setting.RecvBufferSize := StrToInt(RecvBufferSize.Text);
+       Gikosys.Setting.RecvBufferSize := StrToIntDef(RecvBufferSize.Text, Gikosys.Setting.RecvBufferSize);
+       GikoSys.Setting.ReadTimeOut := StrToIntDef(ReadTimeOut.Text, GikoSys.Setting.ReadTimeOut);
        //HTTP1.1\8eg\97p
        GikoSys.Setting.Protocol := ProtocolCheckBox.Checked;
        //\83v\83\8d\83L\83V\90Ú\91±HTTP1.1\8eg\97p
@@ -125,15 +137,19 @@ begin
        //\8f\91\82«\8d\9e\82Ý\8e\9e\83}\83V\83\93\8e\9e\8aÔ\8eg\97p\90Ý\92è
        GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked;
        if GikoSys.IsNumeric(PostTimeEdit.Text) then
-               GikoSys.Setting.TimeAdjustSec := StrToInt(PostTimeEdit.Text)
+               GikoSys.Setting.TimeAdjustSec := StrToIntDef(PostTimeEdit.Text, GikoSys.Setting.TimeAdjustSec)
        else
                GikoSys.Setting.TimeAdjustSec := 0;
        GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;
-        //2ch\8c¾\8cê\83T\83|\81[\83g
-        GikoSys.Setting.GengoSupport := GengoSupport.Checked;
-        //\83\8d\81[\83J\83\8b\81E\83\8a\83\82\81[\83g̼±Å\8cx\8d\90
-        GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked;
-        GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked;
+       //2ch\8c¾\8cê\83T\83|\81[\83g
+       GikoSys.Setting.GengoSupport := GengoSupport.Checked;
+       GikoSys.SetGikoMessage;
+       //\83\8d\81[\83J\83\8b\81E\83\8a\83\82\81[\83g̼±Å\8cx\8d\90
+       GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked;
+       GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked;
+       // Cookie
+       GikoSys.Setting.FixedCookie := FixedCookieEdit.Text;
+
 
        GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
 end;