IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Delphi Discussion :

InternetSetOption avec INTERNET_OPTION_CONNECT_TIMEOUT


Sujet :

Langage Delphi

  1. #1
    Membre du Club
    Femme Profil pro
    Inscrit en
    Avril 2004
    Messages
    75
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 75
    Points : 59
    Points
    59
    Par défaut InternetSetOption avec INTERNET_OPTION_CONNECT_TIMEOUT
    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 ?

  2. #2
    Expert éminent sénior
    Avatar de Jipété
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    10 972
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : Juillet 2006
    Messages : 10 972
    Points : 15 440
    Points
    15 440
    Par défaut
    Salut,

    Ch'suis pas spécialiste des pointeurs, mais j'ai utilisé avec succès il y a qq temps une fonction qui utilise un peu les mêmes paramètres que ta fonction, et moi je l'utilise comme ça :
    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
    19
    type
      INTERNET_VERSION_INFO = record
        dwMajorVersion: DWORD;
        dwMinorVersion: DWORD;
      end;
     
    const
      INTERNET_OPTION_VERSION  = 40;
     
    function InternetQueryOption(hInternet: Integer; dwOption: Integer; lpBuffer: Pointer; lpdwBufferLength: Pointer): boolean; stdcall; external 'wininet.dll' name 'InternetQueryOptionA';
     
    procedure TForm1.FormCreate(Sender: TObject);
    var
      StructureSize: longint;
      VersionStruct: INTERNET_VERSION_INFO;
    begin
      StructureSize := SizeOf(VersionStruct);
      InternetQueryOption(0, INTERNET_OPTION_VERSION, @VersionStruct, @StructureSize);
    end;
    C'est ton "pointer(@conntimeout)" qui m'intrigue. Pourquoi pas juste "@conntimeout" ? En tout cas, ça compile.
    À tester !

  3. #3
    Membre du Club
    Femme Profil pro
    Inscrit en
    Avril 2004
    Messages
    75
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 75
    Points : 59
    Points
    59
    Par défaut
    merci pour la réponse et finalement avec ça j'y arrive :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
            resSetOption := InternetSetOption(PConnexionInternet,INTERNET_OPTION_CONNECT_TIMEOUT, @conntimeout, SizeOf(conntimeout));
            resSetOption := InternetSetOption(PConnexionInternet,INTERNET_OPTION_DATA_RECEIVE_TIMEOUT, @conntimeout, SizeOf(conntimeout));
            resSetOption := InternetSetOption(PConnexionInternet,INTERNET_OPTION_DATA_SEND_TIMEOUT, @conntimeout, SizeOf(conntimeout));
            resSetOption := InternetSetOption(PConnexionInternet,INTERNET_OPTION_SEND_TIMEOUT, @conntimeout, SizeOf(conntimeout));
            resSetOption := InternetSetOption(PConnexionInternet,INTERNET_OPTION_RECEIVE_TIMEOUT, @conntimeout, SizeOf(conntimeout));
            resSetOption := InternetSetOption(PConnexionInternet,INTERNET_OPTION_CONNECT_RETRIES, @conntimeout, SizeOf(conntimeout));

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. requete avec OBCD et visual c++
    Par Anonymous dans le forum MFC
    Réponses: 12
    Dernier message: 18/11/2004, 17h15
  2. [langage] Comparer Perl avec d'autres langages comme C ?
    Par Anonymous dans le forum Langage
    Réponses: 3
    Dernier message: 11/08/2002, 00h52
  3. Problème avec la mémoire virtuelle
    Par Anonymous dans le forum CORBA
    Réponses: 13
    Dernier message: 16/04/2002, 17h10
  4. [Kylix] Runtime error 230 avec INDY
    Par Anonymous dans le forum EDI
    Réponses: 2
    Dernier message: 23/03/2002, 12h51
  5. Réponses: 2
    Dernier message: 21/03/2002, 00h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo