【文章內(nèi)容簡介】 te=$00。 INTH:Byte=$00。 DPI。 RETL:byte=$00。 RETH:byte=$00。SIN) Else 緩沖區(qū)已滿 then 將上面的幀的 C 由 $28 改為 $38 即可 ； End ； 發(fā)送ASDU2 begin Stime:=時標； Sin:=這次總查詢命令 ASDU7 的 SCN。 If 緩沖區(qū)未滿 then ManageBianChangZhen0(var BianChangZh:TBianChangZh。 2, A,$00, InfNum。 LTime:TLTime。 STime, NGD:TNGD。 NDE:TNDE。 Tongyongid:TTongyongid。 TongYongData:TTongYongData。 DEL:TDEL。 GIN:TGIN。 RaoDongDataId:TRaoDongDataid。 RaoDongData:TRaoDongData。 BeiCeZhi1:TBeiCeZhi1。 TongDao:TTongDao。 FactoryName:TFactoryName。 StateChange:TStateChange。 SDV:TSDV。 $28。 $01, FunType。 FANL:byte=$00。 FANH:byte=$00。 TOV:byte=$00。 SCN:byte=$00。 ACC:byte=$00。 NOEL:byte=$00。 NOEH:byte=$00。 NOC:byte=$00。 INTL:byte=$00。 INTH:Byte=$00。 DPI, RETL:byte=$00。 RETH:byte=$00。 Sin=SCN) else 緩沖區(qū)已滿 then 把上面幀的 C 由 $28 改為 $38 即可； End。 發(fā)送ASDU4 begin Stime:=時標； Fan:=Fan+1； SCL:=用相對一次值的故障電抗來表示，單位為歐姆； RET:=保護設備從啟動 /檢出故障到現(xiàn)在的時間，用毫 秒表示 ； If 緩沖區(qū)未滿 then ManageBianChangZhen0(var BianChangZh:TBianChangZh。4, A, $00。 $73, LTime:TLTime。 STime。 NGD:TNGD。 NDE:TNDE。 Tongyongid:TTongyongid。 TongYongData:TTongYongData。 DEL:TDEL。 GIN:TGIN。 RaoDongDataId:TRaoDongDataid。 RaoDongData:TRaoDongData。 BeiCeZhi1:TBeiCeZhi1。 TongDao:TTongDao。 FactoryName:TFactoryName。 StateChange:TStateChange。 SDV:TSDV。 $28, $01, FunType, FANL, FANH, TOV:byte=$00。 SCN:byte=$00。 ACC:byte=$00。 NOEL:byte=$00。 NOEH:byte=$00。 NOC:byte=$00。 INTL:byte=$00。 INTH:Byte=$00。 DPI:byte=$00。 RETL, RETH, Sin:byte=$00。 Too:byte=$00。 NOFL:byte=$00。 NOFH:byte=$00 。NumOT:byte=$00。 TAPL:byte=$00。 TAPH:byte=$00。 NDV:byte=$00。 NFEL:byte=$00。 NFEH:byte=$00。 SCL0。SCL1。SCL2。SCL3) Else if 緩沖區(qū)已滿 then 把上面這幀的 C 由 $28 改為 $38 即可； End； 發(fā)送ASDU6 begin LTime:=控制方向傳輸過去的時間加以修正的結果； if 緩沖區(qū)未滿 then ManageBianChangZhen0(var BianChangZh:TBianChangZh。 6 ,A, $00, $00。 LTime:TLTime。 STime:TSTime。 NGD:TNGD。 NDE:TNDE。 Tongyongid:TTongyongid。 TongYongData:TTongYongData。 DEL:TDEL。 GIN:TGIN。 RaoDongDataId:TRaoDongDataid。 RaoDongData:TRaoDongData。 BeiCeZhi1:TBeiCeZhi1。 TongDao:TTongDao。 FactoryName:TFactoryName。StateChange:TStateChange。 SDV:TSDV。 $28 , $08 , $FF) Else if 緩沖區(qū)已滿 then 把上一幀的 C 由 $28 改為 $38； end。 保存發(fā)過來幀的 FCB； end。 //注：保護設備的突發(fā)報文可以理解，但是對于子站而言，子站的突發(fā)報文是什么呢？它是直接把保護設備的突發(fā)報文進行分析，修改子站相關內(nèi)容，然后在轉(zhuǎn)發(fā) 給 主 站嗎？ 然而這里應該考慮到，如果子站上進行了報文的分析，更新子站內(nèi)容之后，在轉(zhuǎn)發(fā)給主站，由于子站和主站是利用 103進行通信的，那么 通知主站更新的內(nèi)容要通過轉(zhuǎn)發(fā)原報文，主站再進行分析的方法，那么子站和主站就都必須有報文分析模塊，是否累贅？如果子站還有自己新定義的突發(fā)報文，那應該如何定義呢？ 召喚事件 判斷 DFC 是否為 1，如果為 1，那就復位清空 繼續(xù)請求一級用戶數(shù)據(jù)，同上，但是 FCB 位要隨之取反 判斷 FCB是否 與保存的 FCB相同，如果相同則重發(fā)響應幀 Else 繼續(xù)傳送總召喚表，保存發(fā)過來幀的 FCB； 。 。 。 。 。 。 直到總召喚報文傳送完畢，其間可能會夾雜不少自發(fā) 報文，過程同上 ，此時發(fā)送總查詢結束幀 ASDU8 判斷 FCB是否與保存的 FCB相同，如果相同則重發(fā)響應幀 else 發(fā)送ASDU8 if 緩沖區(qū)未滿 then SCN:=這一次總召喚命令幀的 SCN； ManageBianChangZhen0(var BianChangZh:TBianChangZh,8, A, $00, $00, LTime:TLTime。 STime:TSTime。 NGD:TNGD。 NDE:TNDE。 Tongyongid:TTongyongid。 TongYongData:TTongYongData。 DEL:TDEL。 GIN:TGIN。 RaoDongDataId:TRaoDongDataid。 RaoDongData:TRaoDongData。 BeiCeZhi1:TBeiCeZhi1。 TongDao:TTongDao。 FactoryName:TFactoryName。 StateChange:TStateChange。 SDV:TSDV。 $28, $0A, $FF, FANL:byte=$00。 FANH:byte=$00。 TOV:byte=$00。 SCN) Else 把上一幀的 C由 $08 改為$18 發(fā)送即可； 保存發(fā)過 來 幀 的FCB 位； 請求或者召喚； 命令傳輸?shù)倪^程 發(fā)送 ASDU20 A:=設備地址； R:=隨意賦值，但是不可重復； InfNum:=見 P542 表 17； FunType:=見 P542 表 17； DCO:=見 P542 表 17； ManageBianChangZhen1(var BianChangZh:TBianChangZh。 LTime:TLTime。 NGD:TNGD。 20, A, R, Tongyongid:TTongyongid。 TongYongData:TTongYongData。 RaoDongDataId:TRaoDongDataid。 $53, InfNum, FunType, SCN:byte=$00。 NOG:Byte=$00。 DCO)。 確認 發(fā)送確認幀或者發(fā)送單個字符$E5 發(fā)送確認幀，有一級數(shù)據(jù) if 接受緩沖區(qū)仍然能接受數(shù)據(jù) then ManageGuDingZhen(var GuDingzh:TGuDingzh,0,A,$20) Else if 接受緩沖區(qū)已經(jīng)滿 ManageGuDingZhen(var GuDingzh:TGuDingzh,0,A,$30)。 保存發(fā)過來幀的 FCB 位； 召喚事件 if 收到的幀不正確（例如校驗不正確 ，再次受到上一幀響應 等等）或者超過 50~100ms 沒有收到 then Begin 重傳上一幀， FCB不變反為 0； End else If 超過 Twz仍然接受不正確或者沒有收到 then Begin 進行復位； End else If 正確接受 then If 響應幀的 DFV位為 1 then 發(fā)送復位通信單元，清空緩沖區(qū)，進行復位 else if 響應幀的 DFV 位為 0 then begin 請求 1 級數(shù)據(jù)，地址為某一個具體設備的地址 A ManageGuDingZhen(var GuDingzh:TGuDingzh,11,A,$7A)。 End。 響應 判斷 FCB是否與保存的 FCB相同，如果相同則重發(fā)響應幀 else if FCB 不相同 then begin 發(fā)送ASDU1 STime:=時標； Sin:= 這次命令 ASDU20 的 RII。 DPI 無關； If 命令的肯定認可 then Cause:=$14 Else if 命令的否定認可 then Cause:=$15； If 緩沖區(qū)未滿 then ManageBianChangZhen0(var BianChangZh:TBianChangZh。 1, A, $00, InfNum, LTime:TLTime。 STime, NGD:TNGD。 NDE:TNDE。 Tongyongid:TTongyongid。 TongYongData:TTongYongData。 DEL:TDEL。 GIN:TGIN。 RaoDongDataId:TRaoDongDataid。 RaoDongData:TRaoDongData。 BeiCeZhi1:TBeiCeZhi1。 TongDao:TTongDao。 FactoryName:TFactoryName。 StateChange:TStateChange。 SDV:TSDV。 $28。 Cause。 FunType。 FANL:byte=$00。 FANH:byte=$00。 TOV:byte=$00。 SCN:byte=$00。 ACC:byte=$00。 NOEL:byte=$00。 NOEH:byte=$00。 NOC:byte=$00。 INTL:byte=$00。 INTH:Byte=$00。 DPI。 RETL:byte=$00。 RETH:byte=$00。SIN) Else 緩沖區(qū)已滿 then 將上面的幀的 C 由 $28 改為 $38 即可； end。 召喚事件 if 收到的幀不正確（例如校驗不正確 ，再次受到上