Hilfe zu VB (Winsock-programmierung)

[Crying Man]

Ich suche Hilfe zu Visual Basic, ich beschäftige mich grad mit der Programmierung eines auf WinSock basierenden Webservers, das Grundgerüst steht auch schon, aber so richtig gut ist der noch lange nicht

Wenn ihr irgendwelche Resourcen kennt (insbesondere zur Winsock-Programmierung) wäre ich euch dankbar wenn ihr die mal posten könntet

Thx, Crying Man

 

[Fabian]

Also...

Hi!

(Zuerst mal hab ich das gefühl, dass das das falsche forum is... hätt ich bei allgemeines gepostet)

also:

zum connecten nimmst du den befehl:

Winsock1.Connect "Host", Port


zum senden:

Winsock1.SendData "Text" & Chr(10)


zum empfangen beim event "DataArrival":

Dim strdata As String
Winsock1.GetData strdata, vbString

in strdata is jetzt der zurückgekommene text


wenn sich jetzt jemand zu dir connecten will, musst du zuerst mal den port (Winsock1.LocalPort = 21234) festlegen und dann beim event "ConnectionRequest" das reinschreiben:

Winsock1.Accept



Ich hoff man verstehts einigermassen. ansonnsten frag halt nochmal

MfG
Fabian

 

[Crying Man]

Danke, aber das Problem hat sich mitlerweile von selbst gelöst.
Hast du vielleicht ein Sample in dem von einem Programm aus eine Anfrage gestartet wird, dann vom Client das Ergebnis verarbeitet wird, eine Antwort zurück geschickt wird und dann wieder eine Antwort vom Server kommt, oder kannst du mir erklären wie es im grunde gehen sollte?!

Ich hab immer das Gefühl, das manchmal was funktioniert und im nächsten Moment ist alles wieder kaputt ohne das ich was verändert hab

 

[Fabian]

...

mach n command (command1) und n text-field (text1) mit multiline.


Private Sub Command1_Click()
Text1.Text = ""
Winsock1.Connect "127.0.0.1 ", 12345 'kennste netbus
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
Winsock1.GetData strdata, vbString
Text1.Text = Text1.Text + strdata
End Sub


in text1.text steht jetzt der angekommene text...

MfG
Fabian

 

[Fabian]

ach ja...

text1.text = ""
text1.text = text1.text + strdata

...musste machen, weil wenn der angekommene text länger als ... zeichen ist oder mehr als ... linien hat (weiss nich so genau), wird der gesplittet. dann wird zuerst der erste teil 0.1 sekunden angezeigt und dann der 2. teil... und der bleibt dann...

wenn jetzt der angekommene text von dir halt genausoviele zeichen hat, wie die limit is, wird er schnell angezeigt und dann wieder gelöscht, wegen dem zweiten teil...

MfG
Fabian