Network UDP Problem
Verfasst: 27.04.2009 01:21
				
				Hallo zusammen,
ich will hier eine Anbindung an eine Vorhandene Anwendung schreiben.
Die Verbindung steht wenn ich die Anwendungen regulär aufrufe.
Jetzt mein Problem
Wenn ich diese hier starte  PB4.2 
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.
Was geht da schief ????  Weil bei der Anwendung auf Port 98 komme ich nicht an ....
			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