Envoyer une class par internet

Soyez le premier à donner votre avis sur cette source.

Vue 3 665 fois - Téléchargée 279 fois

Description

Ce code permet d'envoyer un objet de type Record.

On peut le modifier comme ca ausi pour le fair "dériver":

Source / Exemple :


Type TSec = record
     Sec1: integer;
     Sec2: string[255];
     end;

Type TPaquet = Record
       Nom: string[255];
       ID: integer;
       Msg: string[255];
       Date: TDate;
       Sec: TSec;
     End;

et on l'utilise comme ca:
var
    Data: TData;
begin
       Data.msg1 := "Hello World !";
       Data.test.sec1 := 123456;

Tout est dans le Zip (7ko)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
39
Date d'inscription
jeudi 30 août 2001
Statut
Membre
Dernière intervention
23 janvier 2005

Tu met ton serveur dans une application et ton client dans une autre application et ca marche. Si tu avait pris la penne d'analyser le code tu aurrait vu ke c normal ke ca ne reste pas en écout par l'envoit est gérer sur l'événement OnConnect.
Encore un chose je confirme que ce n'ai pas un flux de donné mais une variable structuré qui est envoyée. Pour un flux j'aurrait utilisé TStream ou un de c descendant. non ?
Je viens de changer le ZIP pour pouvoir envoyer plusieurs data au serveur.

Cordiallement.
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
28
Le titre était prometteur "envoyer une class par internet".
En fait de "class", c'est un type structuré.
En fait d'envoi par internet, on envoie un flux d'informations entre un TClientSocket et un TServerSocket situés dans la même application. Le TSocketServer ne reste même pas en écoute.
As-tu essayé d'envoyer plusieurs messages sans relancer l'application ?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.