Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/NewBoard.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.27 by h677, Thu Jul 27 16:39:56 2006 UTC revision 1.28 by h677, Thu Jan 4 13:11:38 2007 UTC
# Line 44  type Line 44  type
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
# Line 119  var Line 120  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';
# Line 433  begin Line 410  begin
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.

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26