ich will hier eine Anbindung an eine Vorhandene Anwendung schreiben.
Die Verbindung steht wenn ich die Anwendungen regulär aufrufe.
Jetzt mein Problem
Code: Alles auswählen
*mem = AllocateMemory(1000)
If InitNetwork() = 0
MessageRequester("Error", "Can't initialize the network !", 0)
End
EndIf
zweite = OpenNetworkConnection("192.68.20.60",98,#PB_Network_UDP)
For i = 0 To 16
Read zelle.b
Debug zelle
PokeB(*mem+i , zelle)
Next I
While 1= 1
If Zweite
senden = SendNetworkData(zweite, *mem, 17)
Debug senden
Delay(200)
EndIf
Wend
End
DataSection
Data.b 138,132,96,156,158,138,236,136,142,106,154,160,162,97,63,229,126,0
[quote][/quote]
bekomme ich eine Verbindung auf dem Port 1339 nicht wie angegeben auf Port 98. Ich habe zum Test einen PB Server auf dem Gegenrechner laufen lassen. Der läuft laut Quelltext auf dem Port98.
Wenn ich aber den Port abfrage kommt hier auch der Port 1339
das gleiche meldet auch TCPview von Mircosoft
Hier die Empfänger Soft.
Code: Alles auswählen
*mem = AllocateMemory(1000)
If InitNetwork() = 0
MessageRequester("Error", "Can't initialize the network !", 0)
End
EndIf
zweite = OpenNetworkConnection("192.68.20.4",99,#PB_Network_UDP)
ConnectionID = CreateNetworkServer(0, 98,#PB_Network_UDP)
If ConnectionID
;MessageRequester("PureBasic - Client", "Client connected to server...", 0)
;Debug ConnectionID
While 1= 1
help =NetworkServerEvent()
If Help = #PB_NetworkEvent_Data
;Debug help
ClientID = EventClient()
IP = GetClientIP(Clientid)
Debug IPString(ip)
Port = GetClientPort(Clientid)
Debug port
;Debug ClientID
Ergebnis = ReceiveNetworkData(ClientID, *mem, 1000)
Debug ergebnis
For I = 0 To ergebnis
Debug PeekB(*mem+i) &255
;Debug Chr((PeekB(*mem+i) &255)/2)
Next i
;Debug zweite
;Debug ergebnis
;If Zweite =
;PokeB(*mem,PeekB(*mem)+2)
;senden = SendNetworkData(zweite, *mem, ergebnis)
;Debug senden
;Delay(200)
;CloseNetworkConnection(zweite)
;EndIf
EndIf
Wend
;SendNetworkString(ConnectionID, "An hello from a client !!! :-)")
MessageRequester("PureBasic - Client", "A string has been sent to the server, please check it before quit...", 0)
CloseNetworkConnection(ConnectionID)
Else
MessageRequester("PureBasic - Client", "Can't find the server (Is it launched ?).", 0)
EndIf
End