Sub SeekWithNoTolerance (Position As Int)
Dim controller As NativeObject = VideoPlayer1
controller = controller.GetField("controller")
Dim no As NativeObject = Me
no.RunMethod("SeekWithNoTolerance::", Array(controller, Position))
End Sub
#if OBJC
- (void)SeekWithNoTolerance:(AVPlayerViewController*)controller :(int)Position {
int32_t timeScale = controller.player.currentItem.asset.duration.timescale;
CMTime time = CMTimeMakeWithSeconds(Position / 1000.0, timeScale);
[controller.player.currentItem seekToTime:time toleranceBefore:kCMTimeZero toleranceAfter:kCMTimeZero];
}
#End If