function   OnClose ()
   if  mode  =  =   1   then 
     r  =  ffi. C.ReadFile (handle, readBuffer,  4  *  1024 , bytesRead,  nil );
   end              
  mode  =   0 
  disconnectAndReconnect( false )
 end 

 function   OnDisconnected ()
  On Close ()
 end 
 function   disconnectAndReconnect (doConnect)
  ffi. C.FlushFileBuffers (handle)
  ffi. C.DisconnectNamedPipe (handle)
   if  doConnect  then 
    assert(ffi. C.ConnectNamedPipe (handle, poverlapped),  "Соединение установить не удалось" )
   end 
 end 
  

function OnClose()
  if mode == 1 then
     r = ffi.C.ReadFile(handle, readBuffer, 4*1024, bytesRead, nil);
  end             
  mode = 0
  disconnectAndReconnect(false)
end

function OnDisconnected()
  OnClose()
end
function disconnectAndReconnect(doConnect)
  ffi.C.FlushFileBuffers(handle)
  ffi.C.DisconnectNamedPipe(handle)
  if doConnect then
    assert(ffi.C.ConnectNamedPipe(handle, poverlapped), "Соединение установить не удалось")
  end
end