You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
78 lines
2.7 KiB
78 lines
2.7 KiB
Imports Microsoft.VisualBasic.CommandLine.Reflection
|
|
Imports Microsoft.VisualBasic.ComputingServices.FileSystem
|
|
Imports Microsoft.VisualBasic.ComputingServices.TaskHost
|
|
Imports Microsoft.VisualBasic.LINQ.Extensions
|
|
|
|
''' <summary>
|
|
''' 我想要构建的是一个去中心化的网格计算框架
|
|
''' </summary>
|
|
Module ServicesProgram
|
|
|
|
Public Function Main() As Integer
|
|
|
|
Dim DIR As New FileSystemHost(1526)
|
|
Dim fs As New FileSystem(DIR.Portal)
|
|
|
|
Dim file As New IO.FileStream("Z:\1ST.MP3", System.IO.FileMode.Open, fs)
|
|
|
|
Dim buf As Byte() = New Byte(5 * 1024 * 100) {}
|
|
Call file.Read(buf, Scan0, buf.Length)
|
|
Call buf.FlushStream("x:\1....sdfgsdf.mp3")
|
|
|
|
Dim writeFile As New IO.FileStream("x:\2....dfgdfghf.mp3", System.IO.FileMode.OpenOrCreate, fs)
|
|
Call writeFile.Write(buf, Scan0, buf.Length)
|
|
|
|
Return GetType(ServicesProgram).RunCLI(App.CommandLine, AddressOf TestLocal)
|
|
End Function
|
|
|
|
Private Sub __testLinq()
|
|
Dim array = 20.Sequence
|
|
Dim source As New LinqProvider(array, GetType(Integer))
|
|
Call Threading.Thread.Sleep(100)
|
|
Dim reader As New ILinq(Of Integer)(source.Portal)
|
|
|
|
Dim xr = (From x In reader Where x > 10 Select x).ToArray
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Example of running on local machine
|
|
''' </summary>
|
|
''' <returns></returns>
|
|
Public Function TestLocal() As Integer
|
|
Call __testLinq()
|
|
|
|
Dim exe As String = App.ExecutablePath
|
|
Dim port As Integer = Microsoft.VisualBasic.Net.GetFirstAvailablePort
|
|
|
|
' Call Process.Start(exe, $"/remote /port {port}").Start() ' example test
|
|
' Call Threading.Thread.Sleep(1500)
|
|
Dim invoke As New TaskInvoke(port)
|
|
Dim remote As New TaskHost("127.0.0.1", port)
|
|
Dim msg As String = "Code execute on the remotes!"
|
|
Dim remoteFunc As Func(Of String, Integer) = AddressOf TestExample1 ' Gets the function pointer on the remote machine
|
|
|
|
Call remote.Invoke(Of Integer)(remoteFunc, msg).__DEBUG_ECHO ' gets the value that returns from the remote machine
|
|
|
|
End Function
|
|
|
|
Public Function TestExample1(msg As String) As Integer
|
|
Call MsgBox(msg, MsgBoxStyle.Information, App.Command) ' remotes have the commandline but the local is empty
|
|
Return 100000 * RandomDouble()
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Example of running on a remote machine.
|
|
''' </summary>
|
|
''' <returns></returns>
|
|
'''
|
|
<ExportAPI("/remote", Usage:="/remote [/port <port, default:=1234>]")>
|
|
Public Function TestRemote(args As CommandLine.CommandLine) As Integer
|
|
Dim port As Integer = args.GetValue("/port", 1234)
|
|
Dim invoke As New TaskInvoke(port)
|
|
|
|
Call Pause()
|
|
|
|
Return 0
|
|
End Function
|
|
End Module
|