PureBoard

Code: Alles auswählen

zelle.b = 0 

*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)


Restore Daten

For i = 0 To 16
Debug i
Read.b zelle

dummy.l = zelle &255
dummy = dummy / 2
Debug Chr(dummy)
;Debug zelle & 255
PokeB(*mem+i , zelle&255)
Next I
 

  ;While 1= 1
   If Zweite
    senden = SendNetworkData(zweite, *mem, 17)
    Debug senden
    Delay(200)
   EndIf
  ;Wend
 
End 

DataSection
Daten: 



Data.b $88,$8E,$6A,$9A,$A0,$A2,$E0,$88,$8E,$6A,$9a,$A0,$A2,$63,$3F,$BC,$21

Code: Alles auswählen

zelle.b = 0

*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)

; Setze nun den Source-Port:
socket = ConnectionID(zweite)
If socket
  sockaddr.SOCKADDR_IN
  
  sockaddr\sin_family = #AF_INET
  sockaddr\sin_port   = htons_(98)
  sockaddr\sin_addr   = #INADDR_ANY
  
  bind_(socket, @sockaddr, SizeOf(SOCKADDR_IN))
EndIf

Restore Daten

For i = 0 To 16
  Debug i
  Read.b zelle
  
  dummy.l = zelle &255
  dummy = dummy / 2
  Debug Chr(dummy)
  PokeB(*mem+i , zelle&255)
Next i

If Zweite
  senden = SendNetworkData(zweite, *mem, 17)
  Debug senden
  Delay(200)
EndIf
End

DataSection
Daten:
Data.b $88,$8E,$6A,$9A,$A0,$A2,$E0,$88,$8E,$6A,$9a,$A0,$A2,$63,$3F,$BC,$21

Code: Alles auswählen

socket = ConnectionID(zweite) ; Hole das Systemhandle (Socket) von der PureBasic Verbindung
If socket ; Wenn das handle in Ordnung ist
  ; Bind will ein SOCKADDR/SOCKADDR_IN als parameter.
  sockaddr.SOCKADDR_IN
 
  sockaddr\sin_family = #AF_INET ; Setze die Adressfamilie
  sockaddr\sin_port   = htons_(98) ; Setze den Port auf dem Empfangen wird und konvertiere ihn in network-byte-order.
  sockaddr\sin_addr   = #INADDR_ANY ; Es soll egal sein, welche IP man hat
  
  ; Da bind zwischen SOCKADDR und SOCKADDR_IN unterscheiden muss, übergebe die größe der verwendeten Struktur
  ; Danach ist der sourceport festgelegt.
  bind_(socket, @sockaddr, SizeOf(SOCKADDR_IN))
EndIf