Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 119 fois - Téléchargée 18 fois
unit SerImpTest1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer, Menus; type TfServImpTest = class(TForm) IdTCPServer1: TIdTCPServer; stEtat: TStaticText; Memo1: TMemo; procedure IdTCPServer1Execute(AThread: TIdPeerThread); private { Déclarations privées } public { Déclarations publiques } end; var fServImpTest: TfServImpTest; implementation {$R *.dfm} // Procédure de gestion de la connexion TCP et création // d'un processus de gestion procedure TfServImpTest.IdTCPServer1Execute(AThread: TIdPeerThread); var // Variable pour stocker les lignes récupérer stBuffer : string; begin // Vérification d'une connexion stEtat.Caption := 'Connexion sur le port'; // Boucle de vidage du flux d'impression while AThread.Connection.Connected do begin // Gestion s'il y a une erreur // Pas de probléme try // Stockage de la ligne dans la variable StBuffer stBuffer := AThread.Connection.ReadLn; // Création d'une nouvelle ligne dans le mémo // avec l'information de la variable Memo1.Lines.Add(stBuffer); // IF Erreur Level except // Déconnexion du lien TCP AThread.Connection.Disconnect; end; end; end; end.
27 sept. 2016 à 10:00
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.