Discussion :

[GRAF]

J'utilise un Tclisentdataset pour placer des images et autres BLOB dans une base de données distante.
Les temps de téléchargement étant souvent de l'ordre de quelques minutes, je voudrais indiquer à l'utilisateur du programme le niveau d'avancement des opérations.
Où puis-je trouver le nombre d'octets déjà tansférés au cours de l'opération ?
MERCI
GRAF

[Giovanny Temgoua]

Salut!

Je doute que la façon par laquelle tu procèdes te permette d'obtenir le nombre d'octets transférés parce que probablement la fiche est figée au moment de la réception de ceux-ci; c'est le cas ?

Je proposerai que tu utilises ton propre système d'envoi/reception de paquets (en utilisant des composants Indy par exemple), tu recupère les enregistrement ligne par ligne et une à chaque moment tu pourras savoir le nombre d'octets tranférés et afficher un Progress Bar par exemple pour montrer comment l'opération évolue. Une fois la ligne chargée, tu utilises des composants déconnectés (TEdit simple, Image etc...) pour afficher ce que tu as recupéré.
Afin, c'est la première idée qui me vient à l'esprit.

A+

[GRAF]

Salut, King, et merci de ta réponse.
En fait mon tclientdataset est relié à un TWebConnection (ou un TSoapConnection selon la configuration du serveur d'application).
Il n'est pas reliée à un compsant DBVisuel.

L'ouverture du tclientdataset se fait dans un thread (en tâche de fond) et ne lit à chaque fois qu'un seul enregistrement de la base de données.
Il est fréquent que le traitement "visuel" qui occupe l'utilisateur soit terminé avant le téléchargement en tâche de fond, et l'utilisateur ne sait pas combien de temps il devra attendre pour avoir la suite, ce qui est assez frustrant (le programe est un outil de formation à distance).
Que faire ?
Merci !
GRAF

[Chaps]

Bonjour,

Tu peux passer par la propriété "recordcount" pour indexer la barre de progression et par la méthode "GetNextPacket" pour l'itération.

Chaps

[GRAF]

Chaps,
impossible, hélas, de passer par recordcount car je ne descends qu'un seul enregistrement à chaque fois.
Merci !

[Chaps]

Re,

Tu dis : "je ne descends qu'un seul enregistrement à chaque fois"

la valeur de PacketRecords=1 ? Tu veux montrer la progression de quoi ? La progression pour le téléchargement d'un enregistrement ?

A+

[GRAF]

oui, la progression pour le téléchargement d'un seul gros enregistrement...

[Chaps]

1- avec une TSoapConnection c'est possible via les événements :

* TBeforePostEvent = procedure(const HTTPReqResp: THTTPReqResp; Data: Pointer) of object;

* TPostingDataEvent= procedure(Sent: Integer; Total: Integer) of object;

Voici l'aide qui décrit ce que je propose :

"New events on THTTPReqResp let you to intercept the HTTP message before it is sent, and to monitor progress while sending or receiving long
messages."

2- Pour WebConnection : il faut "regarder dedans" et vérifier s'il n'existe pas l'équivalent. A priori il n'y a pas d'événement durant le transfert. L'unique solution est donc probablement d'utiliser un autre composant (wininet, indy..)

[GRAF]

salut Caps,
merci de cette réponse détaillée.
J'utilise D7 entreprise.
TSoapConnection ne connait pas l'événement dont tu parles.
De quelle version de Delphi disposes-tu ?

[Chaps]

re,

C'est du coté cllient : dans HttpRIO.HTTPWebNode ?

--
ps: Mon pseudo est "Chaps"