TWeighingScale - Exemples

TWeighingScale = class (TObject)Interface de TWeighingScaleExemples de TWeighingScale
uses Weighing.Scale, Weighing.Driver.Core, Weighing.Driver.Mettler;

var ws := TWeighingScale.Create('SICS'); // use SICS driver
ws.Address := '172.15.14.54:5900'; // TCP/IP address of the weighing scale
var scaleResult := ws.ReadStableWeight(1000); // wait 1s max
if (scaleResult.DataType = TWeighingResultType.StableWeight) then
   PrintLn('Poids = ' + scaleResult.ScaleWeight.ToString)
else
   PrintLn('Unable to read weight : ' + scaleResult.DataType.Name);