Seite 1 von 1
Veraltete Funktion InitNetwork() in PB6
Verfasst: 25.06.2022 16:03
von Tom42
Hi @All ,
Da nun PureBasic 6 raus ist gleich mal eine Frage
Code: Alles auswählen
IsNetwork=InitNetwork()
If Not IsNetwork
MessageRequester("Netzwerk","Initialisierung fehlschlagen",#MB_ICONERROR)
End
EndIf
If IsNetwork
ClientID=OpenNetworkConnection(ServerName$,#NTP_PORT,#PB_Network_UDP)
If Not ClientID
MessageRequester("Netzwerk","Netzwerk: [ "+ServerName$+" ] failed",#MB_ICONERROR)
End
Else
SendNetworkData(ClientID,*membuffer,#NTP_BUFFER_SIZE)
TimerA=ElapsedMilliseconds() .......
Leider bekomme ich die Warnungen „Veraltete Funktion InitNetwork() verwendet“ unter PureBasic 6.
Wie kann ich das anpassen ???
Gruß Tom
// Code-Tags hinzugefügt (Kiffi)
Re: Veraltete Funktion InitNetwork() in PB6
Verfasst: 25.06.2022 16:23
von helpy
Die Verwendung von InitNetwork() ist grundsätzlich nicht mehr notwendig.
Damit bestehender Code aber weiterhin funktioniert gibt InitNetwork() den Wert 1 (<> 0) zurück!
Es wird zwar eine entsprechende Compiler-Warnung ausgegeben, aber der Code funktioniert weiterhin.
Wenn Du die Compiler-Warnung loswerden willst, aber Deinen Code nicht groß ändern möchtest, dann ändere nur die eine Zeile mit InitNetwork():
Soll der Code abwärtskompatibel sein, aber die Compiler-Warnung soll nicht erscheinen?
Code: Alles auswählen
Define IsNetwork
CompilerIf #PB_Compiler_Version < 600
IsNetwork = InitNetwork()
CompilerElse
IsNetwork = #True
CompilerEndIf
Wenn der Code nur ab PB 6.00 verwendet wird, kannst noch mehr aufräumen:
Code: Alles auswählen
ClientID=OpenNetworkConnection(ServerName$,#NTP_PORT,#PB_Network_UDP)
If Not ClientID
MessageRequester("Netzwerk","Netzwerk: [ "+ServerName$+" ] failed",#MB_ICONERROR)
End
Else
SendNetworkData(ClientID,*membuffer,#NTP_BUFFER_SIZE)
TimerA=ElapsedMilliseconds()
;.......
EndIf
Re: Veraltete Funktion InitNetwork() in PB6
Verfasst: 27.06.2022 05:53
von jacdelad
Da kommt bei mir eine andere Frage auf: Kann/Konnte denn InitNetwork() auch fehlschlagen?
Re: Veraltete Funktion InitNetwork() in PB6
Verfasst: 27.06.2022 06:51
von Bisonte
jacdelad hat geschrieben:Da kommt bei mir eine andere Frage auf: Kann/Konnte denn InitNetwork() auch fehlschlagen?
In der Theorie ja.... allerdings ist das glaube ich seit windows 98 nicht mehr passiert
Re: Veraltete Funktion InitNetwork() in PB6
Verfasst: 27.06.2022 14:34
von jacdelad
Aso. Na ich verhindere sowieso, dass meine Programme unter Windows XP oder älter läuft.
Re: Veraltete Funktion InitNetwork() in PB6
Verfasst: 21.01.2023 04:03
von sharkpeter
Moin aus der Gruft,
jacdelad hat geschrieben: 27.06.2022 14:34
Aso. Na ich verhindere sowieso, dass meine Programme unter Windows XP oder älter läuft.
Aha, so einer bist du
