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 !
++
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.