bonjour
je n'arrive pas à faire fonctionner "InternetSetOption" avec INTERNET_OPTION_CONNECT_TIMEOUT afin d'augmenter le timeout ...

voici ce que j'essaye :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
PConnexionInternet  : HInternet;
conntimeout         : integer;
resSetOption        : boolean;
................................
......................etc
 
conntimeout:=60000;// (en ms) ici j'ai fait divers essais pour augmenter ou diminuer rien n'y fait
 
resSetOption := InternetSetOption(PConnexionInternet,INTERNET_OPTION_CONNECT_TIMEOUT, pointer(@conntimeout), SizeOf(conntimeout));
//avec sizeof car taille en octets
 
//logs 
if resSetOption=true then
          Log('InternetOpenUrl; resSetOption : true');   //-1 = true et 0 = false ..??
if resSetOption=false then
          Log('InternetOpenUrl; resSetOption : false');
Log('InternetOpenUrl; resSetOption : '+BoolToStr(resSetOption));
Log('InternetOpenUrl; GetLastError() : '+inttostr(GetLastError()));
mon log n'indique pas d'erreur mais le time out n'est pas pris en compte

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
InternetOpenUrl; resSetOption : true
InternetOpenUrl; resSetOption : -1
 InternetOpenUrl; GetLastError() : 0
d'apres mes recherches il y avait un bug microsoft ? quelqu'un a une solution ?