Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [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

client.bas

Uploader:MitgliedThePuppetMaster
Datum/Zeit:26.12.2007 03:15:16

'##############################################################################################################
'TEST-CLIENT für TSNE Version 2
'##############################################################################################################



'##############################################################################################################
'   Die TCP Netzwerkbibliotek integrieren
#include "TSNE_V2.bi"



'##############################################################################################################
'   Eine Variable für den Client-Handel erstellen
Dim G_Client as UInteger



'##############################################################################################################
'   Deklarationen für die Empfänger Sub Routinen erstellen
Declare Sub TSNE_Disconnected   (ByVal V_TSNEID as UInteger)
Declare Sub TSNE_Connected      (ByVal V_TSNEID as UInteger)
Declare Sub TSNE_NewData        (ByVal V_TSNEID as UInteger, ByRef V_Data as String)



'##############################################################################################################
'   Programm beginnen
Print "[INIT] Client..."
'   Variable für Statusrückgabe erstellen
Dim BV as Long
'   Client Verbindung etablieren, Pointer der Empfänger Sub Routinen mit übergeben.
BV = TSNE_Create_Client(G_Client, "192.168.0.1", 80, @TSNE_Disconnected, @TSNE_Connected, @TSNE_NewData)
'   Statusrückgabe auswerten
If BV = 0 Then
    Print "[OK]"
Else: Print "[FEHLER] " & TSNE_GetGURUCode(BV)
End if
Print "[WAIT] ..."
'   Warte auf das ende der Verbindung (Disconnect)
TSNE_WaitClose(G_Client)
Print "[WAIT] OK"
Print "[END]"
'   Programm beenden
End



'##############################################################################################################
'   Empfänger für das Disconnect Signal (Verbindung beendet)
Sub TSNE_Disconnected(ByVal V_TSNEID as UInteger)
Print "[DIS]"
End Sub



'##############################################################################################################
'   Empfänger für das Connect Signal (Verbindung besteht)
Sub TSNE_Connected(ByVal V_TSNEID as UInteger)
Print "[CON]"
'   Daten zum senden vorbereiten (HTTP Protokoll Anfrage)
Dim D as String
Dim CRLF as String
CRLF = Chr(13) & Chr(10)
D = D & "GET / HTTP/1.1" & CRLF
D = D & "Host: 192.168.0.1" & CRLF
D = D & "connection: close" & CRLF
D = D & CRLF
Print "[SEND] ..."
'   Daten an die Verbindung senden
TSNE_Data_Send(V_TSNEID, D)
Print "[SEND] OK"
End Sub



'##############################################################################################################
'   Empfänger für neue Daten
Sub TSNE_NewData (ByVal V_TSNEID as UInteger, ByRef V_Data as String)
Print "[NDA]: >" & V_Data & "<"
End Sub