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

Web & réseau Delphi Discussion :

Voir l'état d'avancement du transfert Web avec une ProgressBar


Sujet :

Web & réseau Delphi

  1. #1
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Mai 2005
    Messages
    93
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2005
    Messages : 93
    Points : 35
    Points
    35
    Par défaut Voir l'état d'avancement du transfert Web avec une ProgressBar
    Salut,
    j'ai un problème avec la progressbar qui devrait suivre le transfert de mon téléchargement, rien ne se passe ...

    j'ai une procedure public qui telecharge une image

    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
     
    procedure Tform1.DownloadHTTP_IMG(const AUrl : string; out DestStream: TStream; const APort : integer = 80);
     
    begin
      with TIdHTTP.Create(Application) do 
      try
          Port := APort;
          Request.UserAgent:='agent';       
            try    
            Get(AUrl,DestStream);
            rep:=ResponseCode;    
          except
            On E: Exception do MessageDlg(Format('Erreur : %s',[E.Message]), mtInformation, [mbOK], 0);
          end;
      finally
       Free;
      end;
     
    end;
    et une procedure public qui suit le transfert


    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
     
    procedure TForm1.IdHTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Integer);
    begin
       if AWorkMode = wmRead then //uniquement quand le composant recoit des données
       begin
          form1.ProgressBar1.Max := AWorkCountMax; //Maximum = taille de l'élément
          form1.ProgressBar1.Position := 0; //Position à zéro
       end;
    end;
     
    procedure TForm1.IdHTTPWork(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    begin
       if AWorkMode=wmRead then //uniquement quand le composant recoit des données
         form1.ProgressBar1.Position := AWorkCount;
         end;
    end;
    pourquoi ca fonctionne pas, ma progress bar reste grise

  2. #2
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Mai 2005
    Messages
    93
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2005
    Messages : 93
    Points : 35
    Points
    35
    Par défaut
    Pourquoi si je place l'objet IDhttp sur ma feuille, ca fonctionne mais pas en faisant TIdHTTP.Create(Application) ?

  3. #3
    Membre du Club
    Inscrit en
    Novembre 2005
    Messages
    76
    Détails du profil
    Informations forums :
    Inscription : Novembre 2005
    Messages : 76
    Points : 67
    Points
    67
    Par défaut
    c'est peut être que tu n'as pas affecté l'événement IdHTTPWork à ton composant créé dynamiquement non ?

  4. #4
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Mai 2005
    Messages
    93
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2005
    Messages : 93
    Points : 35
    Points
    35
    Par défaut
    oui je crois que c'est cela tu l'affectes comment et à quel niveau ?

  5. #5
    Modérateur
    Avatar de Rayek
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mars 2005
    Messages
    5 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mars 2005
    Messages : 5 235
    Points : 8 504
    Points
    8 504
    Par défaut
    simplement :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    IdHttp.OnWorkBegin := IdHTTPWorkBegin;
    IdHtpp.onWork := IdHTTPWork;

  6. #6
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Mai 2005
    Messages
    93
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2005
    Messages : 93
    Points : 35
    Points
    35
    Par défaut
    merci

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

Discussions similaires

  1. piloter un site web avec une application serveur
    Par nightcyborg dans le forum Langage
    Réponses: 2
    Dernier message: 22/07/2008, 12h15
  2. Afficher une donnée sur la page web avec une fonction javascript
    Par Djaiffe dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 27/01/2008, 01h05
  3. site web avec une page principale et des icones ?
    Par ricault dans le forum Portails
    Réponses: 3
    Dernier message: 05/06/2007, 10h23
  4. [VBA-E] Exporter un fichier Web avec une macro
    Par Wilgard dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 22/05/2006, 13h25

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