Einzelnen Beitrag anzeigen

greenmile

Registriert seit: 17. Apr 2003
1.107 Beiträge
 
Delphi 10.3 Rio
 
#9

AW: Maximale Anzahl gleichzeitiger Verbindungen

  Alt 20. Sep 2021, 10:41
Ich denke, ich habe den Fehler gefunden. Wenn die EXE in "FEATURE_BROWSER_EMULATION" gelistet ist, muss hier ein Eintrag einfolgen:

HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULA TION\name-der.exe DWord 11000
HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_MAXCONNECTION SPERSERVER\name-der.exe DWord 10
HKLM\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_MAXCONNECTION SPERSERVER\name-der.exe DWord 10

Ansonsten hier:

HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Int ernet Settings\MaxConnectionsPerServer DWord 10
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Int ernet Settings\MaxConnectionsPer1_0Server DWord 10

Entsprechend geben auch diese Funktionen den hinterlegten Wert zurück:

Code:
InternetQueryOption(nil, INTERNET_OPTION_MAX_CONNS_PER_1_0_SERVER, @dwMaxHttp10, dwSize)
InternetQueryOption(nil, INTERNET_OPTION_MAX_CONNS_PER_SERVER, @dwMaxHttp11, dwSize)
Zusätzlich mache ich das dann noch per Software, scheint aber nicht zu greifen, muss ich noch testen:

Code:
        dwSize := SizeOf(dwMaxHttp10);
        InternetQueryOption(nil, INTERNET_OPTION_MAX_CONNS_PER_1_0_SERVER, @dwMaxHttp10, dwSize);
        If (dwMaxHttp10<10) then begin
          dwMaxHttp10 := 10;
          InternetSetOption(nil, INTERNET_OPTION_MAX_CONNS_PER_1_0_SERVER, @dwMaxHttp10, dwSize);
        end;

        dwSize := SizeOf(dwMaxHttp11);
        InternetQueryOption(nil, INTERNET_OPTION_MAX_CONNS_PER_SERVER, @dwMaxHttp11, dwSize);
        If (dwMaxHttp11<10) then begin
          dwMaxHttp11 := 10;
          InternetSetOption(nil, INTERNET_OPTION_MAX_CONNS_PER_SERVER, @dwMaxHttp11, dwSize);
        end;

Geändert von greenmile (20. Sep 2021 um 10:48 Uhr)
  Mit Zitat antworten Zitat