Table des Matières
Publicité
reset
La méthode
reset()
port série.
i2cSendAndReceiveArray
La méthode
i2cSendAndReceiveArray()
sur le bus I2C à l'adresse spécifiée, et lit en retour le nombre d'octets spécifié du même
périphérique.
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_i2cport;
procedure
usage();
var
execname:string;
begin
execname := ExtractFileName(paramstr(0));
WriteLn('Usage:');
WriteLn(execname +
WriteLn(execname +
WriteLn(execname +
//sleep(2500);
halt;
end;
var
errmsg,target : string;
m : TYModule;
i2cPort : TYI2cPort;
toSend : TLongIntArray;
received : TLongIntArray;
tempReg : integer;
begin
if (paramcount<1) then
target := UpperCase(paramstr(1));
if
(YRegisterHub('usb',
begin
writeln('RegisterHub error: '
halt;
end;
if (target='ANY') then
begin
i2cPort := YFirstI2cPort();
if
(i2cPort =
begin
writeln('No module connected (check USB
halt;
end;
m := i2cPort.get_module();
target := m.get_serialNumber();
end;
Writeln('using '
i2cPort := YFindI2cPort(target + '.i2cPort');
if (i2cPort.isOnline()) then
begin
www.yoctopuce.com
de l'objet returné par
'
<serial_number>');
' <logical_name>
' any
(use any discovered
usage();
errmsg)
<>
YAPI_SUCCESS)
+ errmsg);
nil) then
+ target);
YI2cPort.FindI2cPort
envoie une commande faite d'un ou plusieurs octets
');
device)');
then
cable)');
19. Utilisation du Yocto-I2C en Delphi
vide tous les tampons du
155
Publicité
Table des Matières
