Source code |
|
1 2 3 4 5 6 7 8 9 |
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 |
|
1 2 |
Dim MyWebServer As New com#mycompany#mavenproject1#Lanceur MyWebServer.Lance("aString") |
Hello, Pystache.My problem today is : wy with my "micro-server" test-sample, i cant see the image content and wy the link is not running ? (on the index page well loaded on localhost).
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 |
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 |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 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 |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
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 |
|
1 2 3 4 5 6 7 8 9 10 11 |
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 |