Discussion :

[davels]

Bonjour, vous parait il possible d'envoyer un record contenant des Stream ou un objet via IdTcpClient vers IdTcpServer?

Voici un lien de mon ancien post demandant +- la même chose, aujourd'hui j'aimerais simplifer la procédure d'envoi de message et envoyer un reocrd complet ou un objet.

[Clorish]

Le seul souci c'est que si on joue avec des pointeur (ie objets, classes) on ne copie via le record que les adresses et non les contenus.

On est de toute maniere obligé de copier "a la main" les property des classes, les contenu des streams, les valeurs de strings ......

[PpPool]

Dans la FAQ, tu as un excellent exemple de passage de record avec les composants Indy rédigé par notre ami Reisubar

http://delphi.developpez.com/faq/?pa...0envoyerstruct

[davels]

Le seul souci c'est que si on joue avec des pointeur (ie objets, classes) on ne copie via le record que les adresses et non les contenus.

On est de toute maniere obligé de copier "a la main" les property des classes, les contenu des streams, les valeurs de strings ......

Aie, en effet, les pointeurs ne sont pas les bienvnus dans l'envoi d'informations

Dans la FAQ, tu as un excellent exemple de passage de record avec les composants Indy rédigé par notre ami Reisubar

Oui, je l'utilise pour le moment mais le problème c'est que j'envoi plusieurs fichiers et j'aimerais ne faire qu'un seul envoie afin de faciliter la compréhension.

Comment pourrais je inclure des stream dans le record?

[Clorish]

Rien t'empeche de creer un TMemoryStream que tu remplie avec l'enemble des donnes a envoyer, puis envoyer en bloc le stream memoire.

[davels]

L'idée me parait excellente!

Je vais essayer de mettre cela en musique mais j'avoue avoir un peu de mal avec les stream, enfin surtout avec le compréhension au tour du sujet

[Clorish]

Bha les stream c'ets pas compliqué en fait.
Imagine ca comme un simple tableau d'octets (byte) dynamqiue.

Tu as un integer (4 octets) ? ben copier ton integer dans ce "tableaux" a partir de l'indice "10" reviens a occupper les indiche 10, 11, 12, et 13 avec le contenu de l'integer.

Un autre entier suivant celui ci sera donc stocké des indices 14 a 17.

Sinon pour manipuler un TStream (il en exite plusieurs sorte : TMemoryStream, TFileStream, TStringStream) i lfaut connaitre peu de choses :

Position : indice courrant dasn le "tableau" c'est a partir de cet indice que sera ecrit les prochaines donnees (quitte a ecraser des donnees)
Size : Taille du "tableau". Elle augmente au fure et a mesure qu'on ecrit, en fonction de ce qu'on ecrit. LA reduire, supprime des donner qui depasse, l'augementer permet de "pre-alouer" de l'espace memoire rempli avec du vide.
Write/Read : ecrit/lit une donnée. le parametre size permet de savoir combent on lit/ecrit d'octets. Exemple : Read(IntValue, SizeOf(Integer))
Seek : permet de se deplacer dans le fichier. Equivalent a une affectation de position. le 2e parametre permet de se deplacer du debut, de la fin ou de la position courrante ...
CopyFromStream : Permet de copier N bits d'un stream dans un autre a aprtir de Position (dans les 2 stream). S'assurer de la bonne valeur de "position".

Pour plus d'infos, ... n'hesite pas