[r892]: / branches / develop / mqttsparkplug / mqttsparkplug-example / Scenario / svnobj  Maximize  Restore  History

Download this file

5 lines (5 with data), 6.6 kB

Gx_l░!0Еj№o?╬НЮ╢I°пЛMSystem.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument	L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}
TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id
longTagTextscenario();InterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94} PROGRAM ScenarioVAR_INPUT0    TestScenario : UINT;END_VARVAR_OUTPUT.    ServerUrl : STRING;,    ServerPort : UINT;*    KeepAlive : UINT;B    CleanSession : BOOL := FALSE;:    Username : WSTRING := "";:    Password : WSTRING := "";6    UseTLS : BOOL := FALSE;Ь    hCert : SysTypes.RTS_IEC_HANDLE := SysTypes.RTS_INVALID_HANDLE; // Handle to the client certificate (optional) only used if UseTLS is TRUE О    publishPeriod : UINT := 500; //  milliseconds interval so 1000 = 1s!V    wsCSRorClientCertOut : WSTRING( 2048 );"VAR#м    //Encapsulates all the data neccessaray to handle/check  encrypted tcp connections$И    //Static initialization, as shown in the following code snippet;%&    //VAR'V    //    commonName : STRING := 'MyRasPi';(╕    //    ciCertInfo : NBS.CERT_INFO := (psInfo:=ADR(commonName), udiSize:=LEN(commonName));)X    //    myTLSContext : NBS.TLSContext := (*`    //        ePurpose:=NBS.PURPOSE.CLIENT_SIDE,+L    //        sUseCaseName:='NBSTest',,B    //        sTLSVersion:='1.3',-J    //        ciCertInfo:=ciCertInfo,.H    //        udiVerificationMode:=2/    //    );0    //END_VAR1J    commonName : STRING := 'MyRasPi';2Є    ciCertInfo : Sparkplug.MQTT.NBS.CERT_INFO := (psInfo := ADR( commonName ), udiSize := TO_UDINT( LEN( commonName ) ));34    sUseCaseName : STRING;4T    ePurpose : Sparkplug.MQTT.NBS.PURPOSE;5X    sHostname : Sparkplug.MQTT.NBS.HOSTNAME;6@    udiVerificationMode : UDINT;7Ш    myTLS : Sparkplug.MQTT.NBS.TLSContext := ( sUseCaseName := sUseCaseName,8К                                                ePurpose := ePurpose,9О                                                sHostname := sHostname,:║                                                udiVerificationMode := udiVerificationMode );;f    ItfTLSContext : Sparkplug.MQTT.NBS.ITLSContext;<   =М    //These are specific for registering certificates at test.mqtt.org>X    getClientCert : Sparkplug.GetClientCert;?N    RegisterCSR : Web_Client.WebClient;@4    countClientCert : INT;A>    httpPost : WSTRING( 2048 );BR    StillGettingClientCertificate : BOOL;Cr    WaitForTheServerToRegisterCert : TON := (PT := T#1S);D E"UniqueIdGeneratorF90GPOULevelHL{8e575c5b-1d37-49c6-941b-5c0ec7874787}IStandardJ ChildObjectGuidsK8System.Collections.ArrayListL,AddAttributeSubsequentMbool╨╨-╨╨	E
╨╨
н	┌╨-╨╨	E
5╨╨
н┌╨-╨╨
нW┌╨-╨╨
нX┌╨-╨╨
нY┌╨-╨╨
н┌╨-╨╨
н:┌╨-╨╨
н;┌╨-╨╨
н<┌╨-╨╨
н=┌╨-╨╨
н>┌╨-╨╨
н?┌╨-╨╨
н3┌╨-╨╨
нA┌╨-╨╨
н@┌╨- ╨╨
нV┌╨-!╨╨
нT┌╨-╨╨
н┌╨-"╨╨
н┌╨-#╨╨
н┌╨-$╨╨
н┌╨-%╨╨
н┌╨-&╨╨
н┌╨-'╨╨
н┌╨-(╨╨
н┌╨-)╨╨
н┌╨-*╨╨
н┌╨-+╨╨
н┌╨-,╨╨
н┌╨--╨╨
н┌╨-.╨╨
н ┌╨-/╨╨
н!┌╨-0╨╨
н"┌╨-1╨╨
н#┌╨-2╨╨
н$┌╨-3╨╨
н%┌╨-4╨╨
н&┌╨-5╨╨
н'┌╨-6╨╨
н(┌╨-7╨╨
н)┌╨-8╨╨
н*┌╨-9╨╨
н+┌╨-:╨╨
н
┌╨-;╨╨
н0┌╨-%╨╨
нC┌╨-<╨╨
нD┌╨-=╨╨
нN┌╨->╨╨
нO┌╨-?╨╨
нP┌╨-@╨╨
нQ┌╨-A╨╨
нR┌╨-B╨╨
нS┌╨-C╨╨
нB┌╨-D╨╨
н┌╨-╨E-F╨GH-IJK╨LMн