Lecture ecriture port com

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_Cyrille2)