Ich hab mal wieder ein Problem... Also... Ich hab einen
Client:
Code: Alles auswählen
;__________________________________________
;
; Client
;
;__________________________________________
OpenFile(0,"Sendung.txt")
WriteString(0,"Alles hat großartig funktioniert!")
CloseFile(0)
If InitNetwork() = 0
MessageRequester("Error", "Netzwerk konnt nicht initialisiert werden!", 0)
End
EndIf
Port = 6832
versenden$ = "Sendung.txt"
If versenden$
ConnectionID = OpenNetworkConnection(MeineIP, Port)
If ConnectionID
If SendNetworkFile(ConnectionID, versenden$)
MessageRequester("PureBasic - Server", "Es wurde eine Datei versendet!", 0)
DeleteFile("Sendung.txt")
Else
MessageRequester("PureBasic - Server", "Es wurde leider keine Datei versendet!", 0)
DeleteFile("Sendung.txt")
EndIf
CloseNetworkConnection(ConnectionID)
Else
MessageRequester("PureBasic - Client", "Server konnte nicht gefunden werden!", 0)
EndIf
EndIf
End
Server:
Code: Alles auswählen
;__________________________________________
;
; Server
;
;__________________________________________
If InitNetwork() = 0
MessageRequester("Error", "Netzwerk konnt nicht initialisiert werden!", 0)
End
EndIf
Port = 6832
empfangen$ = "Sendung.txt"
If CreateNetworkServer(0, Port)
MessageRequester("PureBasic - Server", "Server erstellt (Port "+Str(Port)+").", 0)
Repeat
Delay(10)
SEvent = NetworkServerEvent()
If SEvent
ClientID = EventClient()
If ReceiveNetworkFile(ClientID, empfangen$)
MessageRequester("PureBasic - Server", "Es wurde eine Datei empfangen!", 0)
Else
MessageRequester("PureBasic - Server", "Es wurde leider keine Datei empfangen!", 0)
EndIf
Quit = 1
EndIf
Until Quit = 1
MessageRequester("PureBasic - Server", "Klicke auf 'OK', um die Verbindung zum Server zu beenden.", 0)
CloseNetworkServer(0)
Else
MessageRequester("Error", "Server konnte nicht erstellt werden!", 0)
EndIf
End
Dann habe ich erst den Server und danach den Clienten gestartet
Ergebnis: hat nich funktioniert
danach habe ich mit hilfe von PB eine verfügbare IP-Adresse ermitteln lassen
IP-Adresse ermitteln:
Code: Alles auswählen
InitNetwork()
ExamineIPAddresses()
ip=NextIPAddress()
ipstring$=IPString(ip)
Debug ipstring$
Danch habe ich wieder erst den Server und dann den Clienten gestertet
Ergebniss: hat einwandfrei funktioniert
Aber als ich den Server auf meinem Rechner gestartet hab und ein bekannter den Clienten auf seinem Rechner, hat der Client den Server nicht gefunden (ich habs mit beiden IP-Adressen ausprobiert, sowohl die mit PHP als auch die mit PB ermittelte)
Jetzt kommt endlich meine eigentliche Frage:
Woran liegt es das der Client von einem anderen Rechner aus den Server auf meinem Rechner nicht findet???
Liegt das an der angegebenen IP-Adresse oder hat das einen anderen Grund???
