root/branches/1.6.1/Units/unit_Globals.pas

Show revision log
 
350432
781
  Genres[i].Alias := Alias;
781
  Genres[i].Alias := Alias;
782
end;
782
end;
783
783



784



785



786
function TBookRecord.GetGenreCount: Integer;
784
function TBookRecord.GetGenreCount: Integer;



787
begin
785
begin



788
  Result := Length(Genres);
786
  Result := Length(Genres);


...
...
888
    end;
886
    end;



889
    BasicAuthentication := True;
887
    BasicAuthentication := True;



890
  end;
888
  end;



891
889
  idHTTP.Request.UserAgent := 'MyHomeLib/2.0 (compatible; Indy Library)';



892
  idHTTP.ConnectTimeout := Settings.TimeOut;
890
  idHTTP.ConnectTimeout := Settings.TimeOut;



893
  idHTTP.ReadTimeout := Settings.ReadTimeOut;
891
  idHTTP.ReadTimeout := Settings.ReadTimeOut;



894



895
//  idHTTP.CookieManager := frmMain.IdCookieManager;



896
  idHTTP.AllowCookies := True;
892
  idHTTP.AllowCookies := True;



897



898
  idHTTP.HandleRedirects := True;
893
  idHTTP.HandleRedirects := True;



899
end;
894
end;



900
895