Http server VB6

Thread View: be.comp.programming

5 messages

[T] Back to Threads [V] Tree View [G] Group Articles

5 total messages Started by ThomasL Sun, 11 Aug 2002 15:50

#7750

Author: ThomasL
Date: Sun, 11 Aug 2002 15:50

54 lines
2346 bytes

Hey
Ik ben in vb6 met winsock aan het experimenteren.  Voor de lol heb ik een
HTTP servertje ineengebokst,  het is gewoon een winsock server op poort 80
die als er data wordt ontvangen op de poort, een string terugstuurt.  Het
heeft gewerkt, maar momenteel werkt het niet meer, heeft iemand een idee van
wat er mis is?

benodigd:
leeg form met winsock control met naam "WinS"
code:

Option Explicit
Dim Tekst, Temp As String
Dim nfile As Single

Private Sub Form_Load()
nfile = FreeFile

Open "c:\thomas\home.html" For Input As nfile
Temp = Input(LOF(nfile), nfile)
Tekst = "HTTP/1.1 200 OK" & vbCrLf & "Connection: Close" & vbCrLf &
"Content-Type: text/html" & vbCrLf & "Content-Lenght: " & Len(Temp) & Temp
Close nfile

WinS.LocalPort = 80
WinS.Listen

End Sub

Private Sub WinS_ConnectionRequest(ByVal requestID As Long)
If WinS.State <> sckClosed Then
    WinS.Close
End If
WinS.Accept requestID
End Sub


Private Sub WinS_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
WinS.GetData Data
WinS.SendData Tekst
Debug.Print Data
Debug.Print Tekst
WinS.Close
WinS.Listen
End Sub

bvbd. thomas

--
=-==========|Thomas Langewouters|===============-=
------> Hobyist & Student Electronics <-----------
-------> Lives in Herentals, Belgium <------------
> WEBSITE: http://home.pi.be/~p4u09003/home.html <

Re: Http server VB6

#7751

Author: Nicolas Barbier
Date: Mon, 12 Aug 2002 10:40

11 lines
1437 bytes

ThomasL <thomas.langewouters@nospam.pi.be> wrote:
> Tekst = "HTTP/1.1 200 OK" & vbCrLf & "Connection: Close" & vbCrLf &
> "Content-Type: text/html" & vbCrLf & "Content-Lenght: " & Len(Temp) & Temp

Een extra "vbCrLf" tussen "Len(Temp)" en "Temp" om het einde van de
headers af te sluiten? (Kan totaal verkeerd zijn hoor ;-)

-- 
Nicolas Barbier
PROFILE:      http://users.pandora.be/HATE/profiles/itsme/
HOW_TO_QUOTE: http://www.houghi.org/quote/    /* dutch */

Re: Http server VB6

#7629

Author: degrande jeffrey
Date: Mon, 12 Aug 2002 17:56

18 lines
1530 bytes

ThomasL wrote:

> Hey
> Ik ben in vb6 met winsock aan het experimenteren.  Voor de lol heb ik een
> HTTP servertje ineengebokst,  het is gewoon een winsock server op poort 80
> die als er data wordt ontvangen op de poort, een string terugstuurt.  Het
> heeft gewerkt, maar momenteel werkt het niet meer, heeft iemand een idee
> van wat er mis is?
> 
> Tekst = "HTTP/1.1 200 OK" & vbCrLf & "Connection: Close" & vbCrLf &
> "Content-Type: text/html" & vbCrLf & "Content-Lenght: " & Len(Temp) & Temp

Content-Length:

Wat precies lukt er niet ? 

mvg,
Degrande Jeffrey

Re: Http server VB6

#7646

Author: ThomasL
Date: Mon, 12 Aug 2002 18:07

31 lines
2047 bytes

Ik krijg in internet explorer de foutmelding dat de server niet kan worden
gevonden.
Heeft iemand ervaring met dit protocol?

thnx
Thomas

degrande jeffrey <degrande.jeffrey@skynet.be> schreef in berichtnieuws
3d57f835$0$286$ba620e4c@news.skynet.be...
| ThomasL wrote:
|
| > Hey
| > Ik ben in vb6 met winsock aan het experimenteren.  Voor de lol heb ik
een
| > HTTP servertje ineengebokst,  het is gewoon een winsock server op poort
80
| > die als er data wordt ontvangen op de poort, een string terugstuurt.
Het
| > heeft gewerkt, maar momenteel werkt het niet meer, heeft iemand een idee
| > van wat er mis is?
| >
| > Tekst = "HTTP/1.1 200 OK" & vbCrLf & "Connection: Close" & vbCrLf &
| > "Content-Type: text/html" & vbCrLf & "Content-Lenght: " & Len(Temp) &
Temp
|
| Content-Length:
|
| Wat precies lukt er niet ?
|
| mvg,
| Degrande Jeffrey

Re: Http server VB6

#7647

Author: Philip Paeps
Date: Tue, 13 Aug 2002 18:39

18 lines
1744 bytes

ThomasL <thomas.langewouters@nospam.pi.be> wrote:
> Ik krijg in internet explorer de foutmelding dat de server niet kan worden
> gevonden.
> Heeft iemand ervaring met dit protocol?

Met HTTP redelijk veel ervaring.  Met VB weinig (en ik hou dat graag zo).
Browse anders eens met Telnet naar je webserver en plak de output hier, da's
makkelijker te debuggen dan VB.

Het is overiggens de gewoonte dat je *onderaan* bijschrijft op Usenet en in
e-mails.  Die bewaart de <preek preek, just do it!>.

 - Philip

-- 
Philip Paeps                                                   philip@paeps.cx

  Friends come and go, but enemies accumulate.

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads