Seite 1 von 1

Netzwerk Verbindung

Verfasst: 25.11.2008 18:27
von FosJonas
ich habe da eine frage:
wen ich ein Spiel über Lokales Netzwerk machen will ... brauche ich da nen port? ich dachte immer nein in den anderen games muss ich nie port angeben nur IP, aber bei PB finde ich nix was nur IP brauch.

wäre nett wen ihr mr weiterhelft. :)

Verfasst: 25.11.2008 18:40
von STARGÅTE
den Port kannst du doch auch selber in deinem Programm zB als Konstante Festlegen

Der PORT ist nu dafür das die Daten im Richtigen "Briefkasten" landen.

UNd die anderen Spiele legen in in irgendwelchen Configs fest ... da sie immer gleich gleiben ...

Du verwendest zB den PORT 7001 sowohl bei Server als auch Client und die IP beim Client kommt dann später rein... jenadem was gewält wurde

Verfasst: 26.11.2008 14:31
von FosJonas
danke für die schnelle antwort ich habe aber immer noch ein problem:
Wen ich das Programm auf meinen 2 pcs ausführe kommt wen ich was schreibe immer connection ID is NULL obwohl bei openNetworkconection Succes dransteht, warum?


Code: Alles auswählen

InitKeyboard()
InitNetwork()
OpenConsole()
*MemoryID= AllocateMemory(5000)
Dim eingab.w(1)
Dim eingabe.s(1)
If CreateNetworkServer(0,7852,#PB_Network_TCP)
Else
quit= 1
EndIf
Repeat
eingabe(0)= ""+ Input()
If eingabe(0)= "hostname"
PrintN(""+Hostname())
EndIf
If Mid(""+eingabe(0),1,4)= "Open"
PrintN("Open: "+Mid(""+eingabe(0),6,Len(""+eingabe(0))))
If OpenNetworkConnection("ftp."+Mid(""+eingabe(0),6,Len(""+eingabe(0)))+".net",7852,#PB_Network_TCP)
PrintN("Succes")
Network= 1
Else
PrintN("Fail")
Network= 0
EndIf
EndIf
If Mid(""+eingabe(0),1,4)= "open"
PrintN("open: "+Mid(""+eingabe(0),6,Len(""+eingabe(0))))
If OpenNetworkConnection(""+Mid(""+eingabe(0),6,Len(""+eingabe(0))),7852,#PB_Network_TCP)
PrintN("Succes")
Network= 1
Else
PrintN("Fail")
Network= 0
EndIf
EndIf
If Mid(""+eingabe(0),1,1)= ":" And Network= 1
SendNetworkString(0,""+Mid(""+eingabe(0),3,Len(""+eingabe(0))))
EndIf
If Network= 1 
If eingab(1)= ReceiveNetworkData(0,*MemoryID,5000)
PrintN(""+ Str(eingab(1)))
EndIf
EndIf
If Network= 1 
If eingab(1)= ReceiveNetworkData(0,*MemoryID,5000)
PrintN(""+ Str(eingab(1)))
EndIf
EndIf
Until quit= 1
CloseNetworkServer(0)

Verfasst: 30.11.2008 15:57
von FosJonas
kann mir nimand weiterhelfen? :cry:

Verfasst: 30.11.2008 16:01
von gnasen
das ganze vllt ein wenig strukturierter und auf den Punkt gebracht.
Wenn man das sieht, vergeht schon die Lust sich damit zu befassen.

Schreibs nochmal ordentlich, und es wird dir auch jemand helfen :allright:

Verfasst: 30.11.2008 16:03
von mk-soft
Schau dir mal die Beispiele bei Purebasic an. NetworkCon... hat nichts mit FTP zu tun.

FF :wink:

Verfasst: 07.05.2009 19:39
von FosJonas
sorry das ich mich so lange nicht gemeldet habe.
wollte mich erstmal mit anderen sachen beschäftigen da das netzwerk zeugs wohl irgendwie komplizierter ist als ich dachte.

Nun wollte ich aber mal fragen ob es vieleicht ein Tutorial dazu gibt?
Denn wenn ich versuche sowas aufzubauen funktionierts vorne und hinten nicht.

Verfasst: 08.05.2009 00:28
von Deluxe0321
Kenne jetzt kein Tutorial dafür

1. PB Hilfe
2. http://www.purearea.net/
3. Die Boardsuche einbeziehen bei fragen..
4. Codes lesen, probieren, probieren, probieren und nach und nach verstehen.

Marv

Verfasst: 09.05.2009 11:19
von FosJonas
okey werde ich machen, danke für die schnelle antwort.