Lecture ecriture port com

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 183 fois - Téléchargée 38 fois

Contenu du snippet

Comme il arrive tjs un jour ou l'on se pose la question "mais comment je v utiliser le port COM" bon voila la réponse sans composant ... c tout simple a vrai dire mais au lieu de chercher ca sera la !

Source / Exemple :


var Params : Array of String;
    I : integer;
    Serial : TFileStream;
    Recept : TFileStream;
    Buff : array[1..50] of Byte;

begin
    try
        I := 0;

        Serial := TFileStream.Create('COM2',fmOpenRead);
        Recept := TFileStream.Create('c:\report.txt',fmCreate);
        Recept.Size := 50000;

        try
            while (I < Recept.Size) do
            begin
                Serial.Read(Buff,sizeof(Buff));
                Recept.Write(Buff,sizeof(Buff));
                I := I + sizeof(Buff);
            end;
        finally
            Recept.Free;
            Serial.free;
        end;
    except
    end;
end;

Conclusion :


Evidemment, pour ecrire, c write !
++

A voir également

Ajouter un commentaire Commentaires
tabloides Messages postés 1 Date d'inscription mercredi 8 juin 2011 Statut Membre Dernière intervention 9 juin 2011
9 juin 2011 à 12:19
Salut. comment s'immatriculer en .com a partir des pages perso de mon sfr ? Je désire une seule page d'accueil pour rediriger mes url qui s'écrivent http://les.......perso.sfr.fr.
Mais je veux pas de pubs intempestives.
Huugooo Messages postés 122 Date d'inscription mercredi 25 février 2004 Statut Membre Dernière intervention 2 juillet 2014
3 sept. 2007 à 23:13
e suis curieux de savoir comment tu as fait pour lire sur usb. Tu n'as quand même pas remplacé COM2 par USB1 ?? Merci d'avance.
graccus Messages postés 2 Date d'inscription mardi 27 mars 2007 Statut Membre Dernière intervention 27 mars 2007
27 mars 2007 à 22:21
Bonjour,
je me suis battu toute la journée pour essayer de lire les données d'un récepteur gps relié à mon ordi par un port usb bluetooth presque en vain (j'ai essayé des procédures compliquées) jusqu'à ce que je trouve puis essaye la procédure ci-dessus et ça marche du premier coup.
Félicitation pour cette astuce très simple.
ImmortalPC Messages postés 954 Date d'inscription mardi 11 mai 2004 Statut Membre Dernière intervention 11 novembre 2008 2
24 nov. 2004 à 16:46
Salut,
j'aimerai envoyer des donnée sur une carte relais avec 8 entrée et 8 sorties dont le nom du port en hexidécimal est xxxxxxx ( pour l'ex)
Comment faire??
cs_Cyrille2 Messages postés 113 Date d'inscription vendredi 16 août 2002 Statut Membre Dernière intervention 15 mai 2005
26 avril 2003 à 21:42
p-e mais en tt cas le port com est bien fermé, free un TFileStream revient a le fermer ... TFileStream.Close (ou qqch d'autre du genre) n'existe pas... En tt cas, mon code n'est qu'une base et ne prétend pas tt gérer. D'autre part, j'evite les api qd je peux ... mais c un choix perso!
Afficher les 6 commentaires

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.