Source code

public class Lanceur { 
 public void Lance(String word) 
{         try {            Server server = new Server(8080); 
 server.setHandler(new HelloHandler(word)); 
 server.start(); 
 server.join();
 }
 }
} 

Jabaco Source

Dim MyWebServer As New com#mycompany#mavenproject1#Lanceur
MyWebServer.Lance("aString")

Jabaco Source

Private Sub Winsock1_SendComplete()
'------------------------------------------------------ 
Winsock1.Close 
Winsock1.LocalPort = 80 
For i = 1 To 100000 
Next 
List1.AddItem("Here We are")  '--form1
On Error GoTo err3: 
Winsock1.Listen

Exit Sub

Jabaco Source

'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Private Sub Winsock1_SendComplete()
'------------------------------------------------------ 
Winsock1.Close 
Winsock1.LocalPort = 80
End Sub

Public Sub Winsock1_Close()

On Error GoTo err3: 
Winsock1.Listen

Exit Sub
'---------------------------------------------------------
err3: 
MsgBox "Port 80 already occupied.    ", vbCritical   '--browser 
End Sub

Jabaco Source

Dim ErrString As String = "Error data, Error 404" & vbNewLine & "unknown file"
Dim MyFile As java#io#File 
MyFile = New File(App.Path & "\root" & lefich) 'Reading data 
Dim FChnl As java#io#FileInputStream 
Dim FGet As java#io#DataInputStream 
Dim Text() As Byte 
FChnl = New FileInputStream(MyFile) 
FGet = New DataInputStream(FChnl) 
Redim Text(0 To MyFile.length-1) 
List1.AddItem("- Taille du fichier = " & MyFile.length)  '--form1 
FGet.readFully(Text) 
List1.AddItem("- Taille du fichier = " & MyFile.length)  '--form1
On Error Goto Err2 
 Winsock1.SendData(Text) '--browser 
 FChnl.close 
 Exit Sub
'-----------------------------------------------------------
Err2: 
 Winsock1.SendData(ErrString) 
'--browserEnd 
Sub

Jabaco Source

Dim ErrString As String = "Error data, Error 404" & vbNewLine & "unknown file"
Dim MyFile As java#io#File 
MyFile = New File(App.Path & "\root" & lefich)
Dim Text() As Byte
Redim Text(0 To MyFile.length-1)
Text = org#apache#commons#io#FileUtils.readFileToByteArray(MyFile)
List1.AddItem("- Taille du fichier = " & MyFile.length) '--form1 
On Error Goto Err2 
Winsock1.SendData(Text) 
'--browser 
Exit Sub