Puh jetzt wirds hart! bb -> PHP und zurück

Übersicht BlitzBasic Beginners-Corner

Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.

 

wutzili

Betreff: Puh jetzt wirds hart! bb -> PHP und zurück

 BeitragFr, Okt 19, 2007 16:55
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo mal so in die Runde!

Also ich versuche gerade mit folgendem Code:
Code: [AUSKLAPPEN]
Graphics 1024,768,32,2
SetBuffer BackBuffer()
Global host$
Global host_tmp
Global stream
Global nutzer$,passwort$,wert$
Global InputFile$="http://www.designer-poker.de/kontrolle.php"
;------------------------------- Den Host aus InputFile$ rausfiltern
host$=Right(inputfile$,Len(inputfile$)-7) ; <http://> rausschneiden
host_tmp=Instr(host$,"/")-1 ; Das erste Slash im String suchen und 1 abziehen
host$=Left(host$,host_tmp) ; Den Text bis zu dem ersten Slash-1 kürzen
;------------------------------ TCPStream zum Host öffnen

connect_mysql()

nutzer$=Input("Nutzer: ")
passwort$=Input("Passwort: ")

connect_mysql("Select * from spieler where nickname='"+nutzer$+"' Or mail='"+passwort$+"'")

If wert$="" Then
   Print"Is vorhanden"
Else
   Print "Kein Eintrag"
End If

WaitKey()
End
Function connect_mysql(abfrage$="")

      stream = OpenTCPStream(host$,80);-------- 80 = Port für HTML oder so
      WriteLine stream, "GET "+Inputfile$+ " HTTP/1.0"
      WriteLine stream, "Host: "+host$
      WriteLine stream, "Datenbank: Spieldaten"
      WriteLine stream, "Abfrage: "+abfrage$
      WriteLine stream, ""
      While Not Eof(stream)
      Wert$ = ReadLine$(stream)
         

Wend
CloseTCPStream stream
End Function

einen abgleich durch zu führen. Es harkt nur bei der ausgabe.
Es giebt auch keinerlei fehler nur das er Sporadisch mal
Print"Is vorhanden"
oder
Print "Kein Eintrag"
ausgiebt!

Die PHP ist richtig geschrieben.
Code: [AUSKLAPPEN]

<?PHP
$dbhost="db.xxxxx.de";  # mal ausge Xst   ;-)
$dbuser="xxxxxxx";
$dbpass="xxxxxxxxx";
$dbname="xxxxxxxx";


if (! @$cc=mysql_connect("$dbhost","$dbuser","$dbpass")) {
   echo "Die Verbindung zu ",$dbhost," konnte nicht hergestellt werden<br>";
   exit;
}
#mysql_select_db("$dbname")  or  die(    "Error  opening  database");
#$result = mysql_query( "SELECT * FROM spieler WHERE nickname = '$user' or email='$mail'" )OR die(mysql_error());
#$count=mysql_num_rows($result);
#echo  $count ;
 ?>


Ja was noch ein Problem darstellt ist den oberen Teil als eigenständige Function auf zu ruffen.
Hier bin ich total am ende. Vieleicht kann sich das ja mal wer anschauen und mir beistehen Wink

Hier mein versuch:

in meiner globalen.bb habe ich das stehen:
Code: [AUSKLAPPEN]

;------------------- Auszug aus den Globalen
Global host$
Global host_tmp
Global stream
Global nutzer$,passwort$,wert$
Global InputFile$="http://www.designer-poker.de/kontrolle.php"


Hier die eingabe.bb:

Code: [AUSKLAPPEN]

Function eingetragen()
   DrawImage anmbild, 0, 0
   rigister()
   startseite()
End Function
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Function rigister()
   reginfo = 1
   erfolg=ShareScore("www.designer-poker.de","spieler.php","?anre="+anre$+"&geschl="+geschl$+"&name="+namea$+"&vorname="+vorname$+"&nick="+nick$+"&pass="+pass$+"&mail="+mail$+"&stra="+stra$+"&plz="+plz$+"&ort="+ort$+"&pp="+pp$+"&gebo="+gebo$+"&versich="+versich$+"&betrag="+autbetrag$+"")

End Function
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Function ShareScore(url$,script$,par$,port=80)
   is_online=OpenTCPStream(url$,port)
   If is_online
      req$=script$+par$
      ; Request an das Serverscript schicken
      WriteLine is_online,"GET /"+req$+" HTTP/1.1"
      WriteLine is_online,"Host: "+url$
      WriteLine is_online,"User-Agent: score"
      WriteLine is_online,"Accept: */*"
      WriteLine is_online,"" 
      CloseTCPStream is_online
      Return 1
   Else
      Return 0
   EndIf
End Function
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||


Nun meine main.bb:

Code: [AUSKLAPPEN]

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||| Texas Hold'em Poker
;||||| Powered by Severin Bandak
;||||| www.designer-poker.de
;||||| (c) 2007
;||||| Support: 04126 393393
;||||| Mail: webmaster@designer-poker.de
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||| Mainloop
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Global xmax=1024,ymax=768 : Graphics xmax,ymax,32,1
SetBuffer BackBuffer()
SeedRnd MilliSecs()
ClsColor 0,53,0   
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||| Include für alle ebenen
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Include "vdp\globale.bb"
Include "vdp\maus.bb"
Include "vdp\menu.bb"
Include "vdp\hilfe.bb"
Include "vdp\schalten.bb"
Include "vdp\ende.bb"
Include "vdp\registrierung.bb"
Include "vdp\datenbank.bb"
Include "vdp\eintragen.bb"
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||| Die Mainloop
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Repeat
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 0
If gamezustand = 0 Then
   While gamezustand = 0
   Cls
       start_monitor()               ; Startmenü
   Flip
Wend
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 1
ElseIf gamezustand = 1 Then
   While  gamezustand = 1
   Cls
       ;online_monitor()            ; Das Onlinespiel
   Flip
Wend
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 2
ElseIf gamezustand = 2 Then
   While  gamezustand = 2
   Cls
       hilfe_monitor()               ; Die Hilfeseite
   Flip
Wend
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 3
ElseIf gamezustand = 3 Then
   While  gamezustand = 3
   Cls
      ;offline_monitor()            ; Das Offlinespiel
   Flip
Wend
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 4
ElseIf gamezustand = 4 Then
   While  gamezustand = 4
   Cls
      register_monitor()          ; Die Registrieroberfläche
   Flip
Wend   
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 5
ElseIf gamezustand = 5 Then
   While  gamezustand = 5
   Cls
      ;login_monitor()            ; Loginbereich
   Flip
Wend
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 6
ElseIf gamezustand = 6 Then
   While  gamezustand = 6
   Cls
      ;hole_cards_monitor()         ; Vergabe der Hole Cards
   Flip
Wend
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 7
ElseIf gamezustand = 7 Then
   While  gamezustand = 7
   Cls
      ;flop_monitor()               ; Vergabe des Flops
   Flip
Wend
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 8
ElseIf gamezustand = 8 Then
   While  gamezustand = 8
   Cls
      ;turn_monitor()               ; Vergabe der Turn Card
   Flip
Wend
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 9
ElseIf gamezustand = 9 Then
   While  gamezustand = 9
   Cls
      ;river_monitor()            ; Vergabe der River Card
   Flip
Wend   
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 10
Else If gamezustand = 10 Then
   While  gamezustand = 10
   Cls
      ;warten()                  ; KI der PC-Spieler
   Flip
Wend
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 11
Else If gamezustand = 11 Then
   While  gamezustand = 11
   Cls
      checkid()                  ; Kontrolle ob der User vorhanden ist
   Flip
Wend
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 12
Else If gamezustand = 12 Then
   While  gamezustand = 12
   Cls
      eingetragen()               ; In die db eintragen
   Flip
Wend
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||| ENDE
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Else
   End
End If
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Flip
Until KeyHit(1)
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||


Hier die Functionen die den Gamezustand schalten "schalten.bb"

Code: [AUSKLAPPEN]

Function startseite()
gamezustand = 0
gamezustand = 0
End Function
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 1
Function onlinean()
gamezustand = 0
gamezustand = 1
End Function
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 2
Function hilfean()
gamezustand = 0
gamezustand = 2
End Function
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 3
Function offlinean()
gamezustand = 0
gamezustand = 3
End Function
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 4
Function registan()
autbetrag$ = Rand(1,99)
fehler$ = 0
gamezustand = 0
gamezustand = 4
End Function
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 5
Function loginan()
gamezustand = 0
gamezustand = 5
End Function
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||| Das speil an sich
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 6
Function karten_01()
gamezustand = 0
gamezustand = 6
End Function
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 7
Function karten_02()
gamezustand = 0
gamezustand = 7
End Function
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 8
Function karten_03()
gamezustand = 0
gamezustand = 8
End Function
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 9
Function karten_04()
gamezustand = 0
gamezustand = 9
End Function
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 10
Function warte()
gamezustand = 0
gamezustand = 10
End Function
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 11
Function pruefen()
gamezustand = 0
gamezustand = 11
End Function
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 12
Function pruefenok()
gamezustand = 0
gamezustand = 12
End Function
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||



Das hier ist die db eintragen Function:

Code: [AUSKLAPPEN]
Function checkid()

host$=Right(Inputfile$,Len(Inputfile$)-7) ; <http://> rausschneiden
host_tmp=Instr(host$,"/")-1 ; Das erste Slash im String suchen und 1 abziehen
host$=Left(host$,host_tmp) ; Den Text bis zu dem ersten Slash-1 kürzen
;------------------------------ TCPStream zum Host öffnen

connect_mysql()

connect_mysql("SELECT * FROM spieler WHERE nickname='"+nick$+"'")

If wert$ <> 0 Then
   fehler$ = 1
   startseite()
Else
   pruefenok()
End If

End Function
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Function connect_mysql(abfrage$="")

      stream = OpenTCPStream(host$,80);-------- 80 = Port für HTML oder so
      WriteLine stream, "GET "+Inputfile$+ " HTTP/1.1"
        WriteLine stream, "Host: "+host$
       WriteLine stream, "Datenbank: spieler"
        WriteLine stream, "Abfrage: "+abfrage$
      WriteLine stream, ""
      While Not Eof(stream)
        Wert$ = ReadLine$(stream)
Print wert$
Wend
CloseTCPStream stream

End Function


Und zu guter letzt der Game_Monitor der die eingabe der Variablen ermöglicht registrierung.bb

Code: [AUSKLAPPEN]

Function register_monitor()

      DrawImage anmbild, 0, 0 ;<-- Geht das Img. nicht wegen den Inputfeldern?
      DrawImage einverstanden, 170, 500
      Text 100,550, "Betrag: 0,"+autbetrag$+" Euro"
      mausklick = MouseHit(1)
         If mausklick And Maus_Kollision(208,520,einverstanden,1,1) Then dateneingabe()

   If KeyHit (1) Then 
      startseite()
   EndIf
maus_zeichnen()


End Function
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Function dateneingabe()

       DrawImage anmbild, 0, 0 ;<-- Geht das Img. nicht wegen den Inputfeldern?
      anre$ = Input("Anrede:")
      geschl$ = Input("Geschlecht:")
      namea$ = Input("Name:")
      vorname$ = Input("Vorname:")
      nick$ = Input("Nickname:")
      pass$ = Input("Passwort:")
      pass1$ = Input("Passwort bestätigen:")
      mail$ = Input("E-Mail:")
      stra$ = Input("Strasse Nr.:")
      plz$ = Input("PLZ:")
      ort$ = Input("Ort:")
      pp$ = Input("PayPal E-Mail:")
      gebo$ = Input("Geboren am:")
      versich$ = Input("Ich habe die Bestimmungen und AGB verstanden und nehme diese an:")
      
      pruefen()
      
End Function
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||


Habe schon dieverses versucht, ja versucht weil ich es einfach nicht checke.
Vielen Dank schon mal an den der sich das durcheinander anschaut und mir hilft.

Mit freundlichem Gruß
 

wutzili

Betreff: Habe mal alles in eine Datei geschrieben!

 BeitragSa, Okt 20, 2007 0:55
Antworten mit Zitat
Benutzer-Profile anzeigen
Code: [AUSKLAPPEN]
Function register_monitor()

      DrawImage anmbild, 0, 0 ;<-- Geht das Img. nicht wegen den Inputfeldern?
      DrawImage einverstanden, 170, 500
      Text 100,550, "Betrag: 0,"+autbetrag$+" Euro"
      mausklick = MouseHit(1)
         If mausklick And Maus_Kollision(208,520,einverstanden,1,1) Then dateneingabe()

   If KeyHit (1) Then 
      startseite()
   EndIf
maus_zeichnen()


End Function
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Function dateneingabe()

host$=Right(Inputfile$,Len(Inputfile$)-7) ; <http://> rausschneiden
host_tmp=Instr(host$,"/")-1 ; Das erste Slash im String suchen und 1 abziehen
host$=Left(host$,host_tmp) ; Den Text bis zu dem ersten Slash-1 kürzen
;------------------------------ TCPStream zum Host öffnen

connect_mysql()

       DrawImage anmbild, 0, 0 ;<-- Geht das Img. nicht wegen den Inputfeldern?
      anre$ = Input("Anrede:")
      geschl$ = Input("Geschlecht:")
      namea$ = Input("Name:")
      vorname$ = Input("Vorname:")
      nick$ = Input("Nickname:")
      pass$ = Input("Passwort:")
      pass1$ = Input("Passwort bestätigen:")
      mail$ = Input("E-Mail:")
      stra$ = Input("Strasse Nr.:")
      plz$ = Input("PLZ:")
      ort$ = Input("Ort:")
      pp$ = Input("PayPal E-Mail:")
      gebo$ = Input("Geboren am:")
      versich$ = Input("Ich habe die Bestimmungen und AGB verstanden und nehme diese an:")
      
connect_mysql("SELECT * FROM spieler WHERE nickname='"+nick$+"'")

If wert$ ="" Then
   fehler$ = 1
   startseite()
Else
   pruefenok()
End If

End Function       
      ;pruefen()

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Function connect_mysql(abfrage$="")

      stream = OpenTCPStream(host$,80);-------- 80 = Port für HTML oder so
      WriteLine stream, "GET "+Inputfile$+ " HTTP/1.1"
        WriteLine stream, "Host: "+host$
       WriteLine stream, "Datenbank: spieler"
        WriteLine stream, "Abfrage: "+abfrage$
      WriteLine stream, ""
      While Not Eof(stream)
        Wert$ = ReadLine$(stream)
Print wert$
Wend
CloseTCPStream stream

End Function


Giebt nicht die werte aus die es soll.
mal ists
1
0
3

0

oder

3
0
1

0

oder

1
0

0

Ja wie bekomme ich es hin das bei übereinstimmung eine 1
und wenn halt nicht vorhanden eine 0 zurückgeliefert bekome?

Währe suppi wenn da jeman Ahnung hätte Smile

BladeRunner

Moderator

BeitragSa, Okt 20, 2007 1:23
Antworten mit Zitat
Benutzer-Profile anzeigen
Du lernst es nicht, oder ?
Keine Doppelpostings.
~GESCHLOSSEN~


Der nächste Double wird ne Verwarnung.
Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.


Übersicht BlitzBasic Beginners-Corner

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group