
Case of 
	: (FORM Event:C1606.code=On Load:K2:1)
		
		$Err:=UDP_New(0; $udpID)
		Form:C1466.udpID:=$udpID
		
		Form:C1466.list:=New collection:C1472
		
		SET TIMER:C645(6)
		
	: (FORM Event:C1606.code=On Unload:K2:2)
		
		SET TIMER:C645(0)
		$Err:=UDP_Delete(Form:C1466.udpID)
		
	: (FORM Event:C1606.code=On Timer:K2:25)
		
		
		SET TIMER:C645(0)
		
		SET BLOB SIZE:C606($Blob; 0; 0)
		$Err:=UDP_ReceiveBLOBFrom(Form:C1466.udpID; $PeerAddr; $Port; $Blob)
		
		If (BLOB size:C605($Blob)>0)
			
			$Offset:=0
			$Host:=BLOB to text:C555($Blob; Mac C string:K22:7; $Offset; 32)
			$Offset:=32
			$Service:=BLOB to text:C555($Blob; Mac C string:K22:7; $Offset; 32)
			$Offset:=64
			$DBName:=BLOB to text:C555($Blob; Mac C string:K22:7; $Offset; 32)
			
			//リストに追加
			//If (Form.list.query("machine = :1"; $Host).length=0)  //リストに登録されていないかをチェック
			Form:C1466.list.push(New shared object:C1526("host"; $PeerAddr; "machine"; $Host; "service"; $Service; "name"; $DBName))  //追加
			Form:C1466.list:=Form:C1466.list  //追加した内容で再描画
			//End if 
			
		End if 
		
		SET TIMER:C645(6)
		
		
End case 
