ポップアップメニューのカスタマイズ化への道第一歩。

[gikonavigoeson/gikonavi.git] / NewBoard.pas

diff --git a/NewBoard.pas b/NewBoard.pas
index 584e663..90d9866 100644 (file)
--- a/NewBoard.pas
+++ b/NewBoard.pas
@@ -471,8 +471,11 @@ class procedure TNewBoardDialog.InitHTTPClient(client : TIdHTTP);
 begin
        client.Request.Clear;
     client.Request.CustomHeaders.Clear;
+       client.Request.UserAgent := GikoSys.GetUserAgent;
        client.RecvBufferSize := Gikosys.Setting.RecvBufferSize;
        client.ProxyParams.BasicAuthentication := False;
+       client.ReadTimeout := GikoSys.Setting.ReadTimeOut;
+
        if GikoSys.Setting.ReadProxy then begin
                if GikoSys.Setting.ProxyProtocol then
                        client.ProtocolVersion := pv1_1