Различия

Здесь показаны различия между двумя версиями данной страницы.

--- doc:rpsvrtcp:irregular [2013/09/09 13:32]
denis [Irregular tags]
+++ doc:rpsvrtcp:irregular [2013/09/09 13:46] (текущий)
denis [Подводный камень]
@@ Строка 42: / Строка 42: @@
-После этого в самом ближайшем будущем этот флаг будет модулем, отвечающем за связь с rpsvrtcp, и передан серверу при помощи команды SETFLAG:
+После этого в самом ближайшем будущем этот флаг будет прочитан модулем, отвечающем за связь с rpsvrtcp, и передан серверу при помощи команды SETFLAG:
 <code delphi>
@@ Строка 164: / Строка 164: @@
       end;
 </code>
+При установке значеня тега в ПЛК модуль robo также уделяет irr-тегам немного больше внимания, чем другим: после каждой записи robo сам устанавливает тегу флаг ''tfInUse'', чтобы новое значение обновилось:
 <code delphi>
+// D:\promauto-src\Work_shd\rpsvrtcp\sources\Robo.pas
+    // Передача тэгов
+    // writing all tags (per, req, irr)
+    for i:=0 to TagCount-1 do
+    begin
+      // Передача тега
+      if Tags[i].GotOut then begin
+        if Tags[i].ValOut > $FFFF then
+          TransStr := '^'
+        else
+          TransStr := '@';
+        TransStr := TransStr + Tags[i].Address + DecHexW(Tags[i].ValOut and $FFFF);
+        w:=0;
+        if UseCRC8 then
+          w := GetCRC8(TransStr)
+        else
+          for k:=1 to 11 do w :=w + ord(TransStr[k]);
+        TransStr := TransStr + DecHexB(w and $FF) + #13;
+        Tags[i].GotOut := false;
+        Attemp := 0;
+        repeat
+          sio_sendstring( PortHolder_Port, TransStr);
+          flag := sio_getstring( PortHolder_Port, s);
+          if (Tags[i].TagProp = tpIrregular) then
+            Tags[i].TagFlag := tfInUse;
+          if UseLogging then
+            LoggerSaveDayMessage(
+                  inttostr(Attemp) + ': ' +
+                  copy(TransStr,1,13) + '|' + s + ' ' +
+                  iif(copy(TransStr,1,13) = copy(s,2,13), 'ok', 'TAG_WRITE_ERROR') );
+          if (flag) and (copy(s,1,1) = '!') then
+            break;
+          sleep(50);
+          sio_flush( PortHolder_Port, 2 );
+          inc(Attemp);
+          if Attemp > AttempMax then err := true;
+        until Attemp > AttempMax;
+      end;
+    end;
 </code>
+==== Подводный камень ====
+Очень редко случается доселе не локализованный баг - после записи в irr-теги ПЛК значения не обновляются в rpsvrtcp, но сами значения уходят в ПЛК нормально. Помогает перезапуск rpsvrtcp.