From e2567b0435230ffd067adffb03095dad2bf24560 Mon Sep 17 00:00:00 2001
From: Nikita Kozhuro <n.kozhuro@a.riftek.com>
Date: Mon, 22 Mar 2021 13:54:53 +0300
Subject: [PATCH] Create rf60X_measure_udp.pas

---
 .../RF60X_UDP_Measure/rf60X_measure_udp.pas   | 53 +++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 example/Delphi/RF60X_UDP_Measure/rf60X_measure_udp.pas

diff --git a/example/Delphi/RF60X_UDP_Measure/rf60X_measure_udp.pas b/example/Delphi/RF60X_UDP_Measure/rf60X_measure_udp.pas
new file mode 100644
index 0000000..0a47ed9
--- /dev/null
+++ b/example/Delphi/RF60X_UDP_Measure/rf60X_measure_udp.pas
@@ -0,0 +1,53 @@
+program rf60X_measure_udp;
+
+
+{$APPTYPE CONSOLE}
+{$ IFDEF UNICODE}
+
+uses
+  SysUtils,rf60xunittypes in 'rf60xunits/rf60xunittypes.pas',
+
+
+var
+  Name: string;
+  i: integer;
+
+  measure: rf60x_udp_measure_t;
+  config: config_base_information_rf60x_t;
+
+  rf60x: THandle;
+
+begin
+
+  WriteLn('init :', init);
+
+  WriteLn('version : ', version());
+
+  config.SCANNER_TYPE := TScanner_types.kRF60x;
+  config.recv_ip_addrs := '192.168.1.2';
+  config.protocol := TProtocol_types.kRIFTEK_BIN_PROTOCOL;
+  config.network_address := 1;
+
+  rf60x := create_rf60x(config);
+
+  WriteLn('connect :', connect(rf60x));
+
+  for i := 0 to 10 do
+  begin
+
+    if True = get_measure_udp(rf60x, @measure) then
+      WriteLn('deviceSerial : ', measure.deviceSerial, ' measure ',FormatFloat('0.####',  measure.rf60xValArray[0].Value*measure.deviceMeasureRange/16384), ' mm');
+  end;
+
+  WriteLn('disconnect :', disconnect(rf60x));
+
+  cleanup();
+
+  readln(Name);
+
+end.
+
+
+
+
+
-- 
GitLab