| 44 |
procedure UpdateIgnoreList(Sender: TObject); |
procedure UpdateIgnoreList(Sender: TObject); |
| 45 |
public |
public |
| 46 |
{ Public 宣言 } |
{ Public 宣言 } |
| 47 |
|
class procedure InitHTTPClient(client : TIdHTTP); |
| 48 |
end; |
end; |
| 49 |
|
|
| 50 |
var |
var |
| 120 |
s: string; |
s: string; |
| 121 |
i: Integer; |
i: Integer; |
| 122 |
begin |
begin |
| 123 |
Indy.Request.Clear; |
InitHTTPClient( Indy ); |
| 124 |
Indy.RecvBufferSize := Gikosys.Setting.RecvBufferSize; |
|
|
Indy.ProxyParams.BasicAuthentication := False; |
|
|
if GikoSys.Setting.ReadProxy then begin |
|
|
if GikoSys.Setting.ProxyProtocol then |
|
|
Indy.ProtocolVersion := pv1_1 |
|
|
else |
|
|
Indy.ProtocolVersion := pv1_0; |
|
|
Indy.ProxyParams.ProxyServer := GikoSys.Setting.ReadProxyAddress; |
|
|
Indy.ProxyParams.ProxyPort := GikoSys.Setting.ReadProxyPort; |
|
|
Indy.ProxyParams.ProxyUsername := GikoSys.Setting.ReadProxyUserID; |
|
|
Indy.ProxyParams.ProxyPassword := GikoSys.Setting.ReadProxyPassword; |
|
|
if GikoSys.Setting.ReadProxyUserID <> '' then |
|
|
Indy.ProxyParams.BasicAuthentication := True; |
|
|
end else begin |
|
|
if GikoSys.Setting.Protocol then |
|
|
Indy.ProtocolVersion := pv1_1 |
|
|
else |
|
|
Indy.ProtocolVersion := pv1_0; |
|
|
Indy.ProxyParams.ProxyServer := ''; |
|
|
Indy.ProxyParams.ProxyPort := 80; |
|
|
Indy.ProxyParams.ProxyUsername := ''; |
|
|
Indy.ProxyParams.ProxyPassword := ''; |
|
|
end; |
|
|
//URL := GikoSys.Setting.BoardURL2ch; |
|
|
//URL := BoardURLComboBox.Text; |
|
| 125 |
Indy.Request.UserAgent := GikoSys.GetUserAgent; |
Indy.Request.UserAgent := GikoSys.GetUserAgent; |
| 126 |
Indy.Request.Referer := ''; |
Indy.Request.Referer := ''; |
| 127 |
Indy.Request.AcceptEncoding := 'gzip'; |
Indy.Request.AcceptEncoding := 'gzip'; |
| 410 |
end; |
end; |
| 411 |
end; |
end; |
| 412 |
end; |
end; |
| 413 |
|
|
| 414 |
|
class procedure TNewBoardDialog.InitHTTPClient(client : TIdHTTP); |
| 415 |
|
begin |
| 416 |
|
client.Request.Clear; |
| 417 |
|
client.Request.CustomHeaders.Clear; |
| 418 |
|
client.RecvBufferSize := Gikosys.Setting.RecvBufferSize; |
| 419 |
|
client.ProxyParams.BasicAuthentication := False; |
| 420 |
|
if GikoSys.Setting.ReadProxy then begin |
| 421 |
|
if GikoSys.Setting.ProxyProtocol then |
| 422 |
|
client.ProtocolVersion := pv1_1 |
| 423 |
|
else |
| 424 |
|
client.ProtocolVersion := pv1_0; |
| 425 |
|
client.ProxyParams.ProxyServer := GikoSys.Setting.ReadProxyAddress; |
| 426 |
|
client.ProxyParams.ProxyPort := GikoSys.Setting.ReadProxyPort; |
| 427 |
|
client.ProxyParams.ProxyUsername := GikoSys.Setting.ReadProxyUserID; |
| 428 |
|
client.ProxyParams.ProxyPassword := GikoSys.Setting.ReadProxyPassword; |
| 429 |
|
if GikoSys.Setting.ReadProxyUserID <> '' then |
| 430 |
|
client.ProxyParams.BasicAuthentication := True; |
| 431 |
|
end else begin |
| 432 |
|
if GikoSys.Setting.Protocol then |
| 433 |
|
client.ProtocolVersion := pv1_1 |
| 434 |
|
else |
| 435 |
|
client.ProtocolVersion := pv1_0; |
| 436 |
|
client.ProxyParams.ProxyServer := ''; |
| 437 |
|
client.ProxyParams.ProxyPort := 80; |
| 438 |
|
client.ProxyParams.ProxyUsername := ''; |
| 439 |
|
client.ProxyParams.ProxyPassword := ''; |
| 440 |
|
end; |
| 441 |
|
end; |
| 442 |
end. |
end. |