Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe
Liste
Übersicht / Liste
Neu
Datei hochladen
Suche
Quellcode suchen
Download
Dateidownload

15.2: Einfacher Netzwerk-Client

Uploader:Redakteurnemored
Datum/Zeit:29.10.2011 01:15:51
Hinweis: Dieser Quelltext ist Bestandteil des Projekts OpenBook: 2D-Spieleprogrammierung, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.

' *** CODE 15.2: Einfacher Netzwerk-Client

#INCLUDE "TSNE_V3.bi"

SUB Verbunden(BYVAL id AS UINTEGER)
  PRINT "Die Verbindung wurde hergestellt."
END SUB
SUB Getrennt(BYVAL id AS UINTEGER)
  PRINT "Die Verbindung wurde getrennt."
END SUB
SUB NeueDaten(BYVAL id AS UINTEGER, BYREF daten AS STRING)
  PRINT "Neue Daten von Client " & id & ": " & daten
END SUB

' Client erstellen
DIM bv as INTEGER, Client AS UINTEGER, host AS STRING = "127.0.0.1"
bv = TSNE_Create_Client(Client, host, 1100, @Getrennt, @Verbunden, @NeueDaten)
IF bv <> TSNE_Const_NoError THEN PRINT "Server-Fehler: " & BV : END
bv = TSNE_WaitConnected(Client)           ' auf Verbindung warten
IF bv <> TSNE_Const_NoError THEN PRINT "Fehler: " & TSNE_GetGURUCode(BV) : END
TSNE_Data_Send 1, "Hallo Server!"         ' Daten senden
TSNE_Disconnect(Client)                   ' Client beenden
TSNE_WaitClose(Client)                    ' warten bis Client beendet ist