Table des Matières
Publicité
writeLine
La méthode
writeLine()
(CR/LF).
Un exemple réel
Lancez votre environnement Delphi, copiez la DLL yapi.dll dans un répertoire et créez une nouvelle
application console dans ce même répertoire, et copiez-coller le code ci dessous.
Vous reconnaîtrez dans cet exemple l'utilisation des fonctions expliquées ci-dessus, cette fois
utilisées avec le décorum nécessaire à en faire un petit programme d'exemple concret.
program
helloworld;
{$APPTYPE CONSOLE}
uses
SysUtils,
yocto_api,
yocto_serialport;
var
errmsg,target,channel:string;
serialport:TYserialport;
line:string;
begin
if
(YRegisterHub('usb',
begin
writeln('RegisterHub error: '
halt;
end;
if (paramcount>1) then
begin
target := paramstr(1);
serialport := YFindSerialPort(target + '.serialPort');
end
else
begin
serialport := YFirstSerialPort();
if
(serialport =
begin
writeln('No module connected (check USB
halt;
end;
end;
writeln('****************************');
writeln('* make sure voltage levels
writeln('* are properly configured
writeln('****************************');
serialport.set_serialMode('9600,8N1');
serialPort.set_protocol('Line');
serialPort.reset();
repeat
ySleep(500, errmsg);
repeat
line := serialPort.readLine();
if
(line <>
begin
writeln('Received: '
end;
until
(line = '');
writeln('Type line to send, or Ctrl-C to exit:
readLn(line);
serialPort.writeLine(line);
until
(line = '');
yFreeAPI();
end.
www.yoctopuce.com
transmet la chaîne spécifiée sur le port série, suivie par un saut de ligne
errmsg)
<>
YAPI_SUCCESS)
+ errmsg);
nil) then
*');
*');
'') then
+ line);
16. Utilisation du Yocto-Serial en Delphi
then
cable)');
');
115
Publicité
Table des Matières
