Lecture ecriture port com

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 445 fois - Téléchargée 36 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

Messages postés
1
Date d'inscription
mercredi 8 juin 2011
Statut
Membre
Dernière intervention
9 juin 2011

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.
Messages postés
122
Date d'inscription
mercredi 25 février 2004
Statut
Membre
Dernière intervention
2 juillet 2014

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.
Messages postés
2
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
27 mars 2007

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.
Messages postés
954
Date d'inscription
mardi 11 mai 2004
Statut
Membre
Dernière intervention
11 novembre 2008
2
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??
Messages postés
113
Date d'inscription
vendredi 16 août 2002
Statut
Modérateur
Dernière intervention
15 mai 2005

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.