Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
TSNEX_HTTP_Get.bas
| Uploader: |  ThePuppetMaster |
| Datum/Zeit: | 21.01.2008 21:24:41 |
'##############################################################################################################
' HTTP_Get mit TSNE Version 2 (Extensions)
'##############################################################################################################
'##############################################################################################################
'Das Programm wird mit einer Kommandozeile aufgerufen
'z.B. "TSXNEX_HTTP_Get http://www.google.de"
'##############################################################################################################
'##############################################################################################################
' Die Erweiterungsdatei von TSNE_V2 einbinden
#include once "TSNEX_HTTP.bi"
'##############################################################################################################
' Programm beginnen
Print "Führe Anfrage aus..."
' Variable für Statusrückgabe erstellen
Dim T as String
Dim BV as Long
Dim XReturnData as String
Dim XReturnCode as Long
T = Command
' Aufruf ausführen
Print "Anfrage an: " & T & "...";
BV = TSNEX_HTTP_Get(T, XReturnData, XReturnCode)
If BV = 0 Then
Print "[OK]"
Print "RückgabeCode: " & Str(XReturnCode)
Print "== Es folgen die Daten! =="
Print XReturnData
Else
Print "[FEHLER]"
Print "Fehler-Beschreibung: " & TSNEX_Get_GURUCode(BV)
End If
' Programm beenden
End