Code: Alles auswählen
For n = 1 To 10
; item lesen
r1 = OpcReadWord(*item1, @value1, @quality)
If r1
Debug GetErrorString(*Server, r1)
Else
;Debug "Item 1: " + Str(value1) + " Quality: " + PeekUnicode(OpcGetQualityText(quality))
SetGadgetText(#String_0, Str(value1) + " : " + Str(quality) + " - " + PeekUnicode(OpcGetQualityText(quality)))
EndIf
Delay(100)
Next n
Stoppe ich den 'Softing OPC Demo Client' werden die Werte in meinem Programm nicht mehr aktualisiert.