Yoctopuce Yocto-RangeFinder, Руководство пользователя, Страница: 95 / 497

exit ;
end ;
module := yFindModule ( serial ) ;
if (not( module. isOnline )) then
begin
writeln ( 'Module not connected (check identification and USB cable)' ) ;
exit ;
end ;
Writeln ( 'Current logical name : ' +module. get_logicalName ()) ;
Write ( 'Enter new name : ' ) ;
Readln ( newname ) ;
if (not( yCheckLogicalName ( newname ))) then
begin
Writeln ( 'invalid logical name' ) ;
exit ;
end ;
module. set_logicalName ( newname ) ;
module. saveToFlash () ;
yFreeAPI () ;
Writeln ( 'logical name is now : ' +module. get_logicalName ()) ;
end .
Warning: the number of write cycles of the nonvolatile memory of the module is limited. When this
limit is reached, nothing guaranties that the saving process is performed correctly. This limit, linked to
the technology employed by the module micro-processor, is located at about 100000 cycles. In short,
you can use the
saveToFlash()
function only 100000 times in the life of the module. Make sure
you do not call this function within a loop.
Listing the modules
Obtaining the list of the connected modules is performed with the
yFirstModule()
function which
returns the first module found. Then, you only need to call the
nextModule()
function of this
object to find the following modules, and this as long as the returned value is not
nil
. Below a short
example listing the connected modules.
program inventory;
{$APPTYPE CONSOLE}
uses
SysUtils,
yocto_api;
var
module : TYModule;
errmsg :
string ;
begin
// Setup the API to use local USB devices
if yRegisterHub ( 'usb' , errmsg ) <>YAPI_SUCCESS then
begin
Write ( 'RegisterHub error: ' +errmsg ) ;
exit ;
end ;
Writeln ( 'Device list' ) ;
module := yFirstModule () ;
while module<> nil do
begin
Writeln ( module. get_serialNumber () + ' (' +module. get_productName () + ')' ) ;
module := module. nextModule () ;
end ;
yFreeAPI () ;
end .
14. Using Yocto-RangeFinder with Delphi
www.yoctopuce.com 89