Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
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 |