PureBasic V4.00 - Beta 4

Guimauve · Message par **Guimauve** » sam. 25/févr./2006 0:18

La version Beta 4 est disponible. Apparamment le fichier d'aide est inclu. Mais je ne sais pas si c'est la version Française ou non.

TÉLÉCHARGEMENT GO !!

A+
Guimauve

Frenchy Pilou · Message par **Frenchy Pilou** » sam. 25/févr./2006 0:44

Anglaise

poshu · Message par **poshu** » sam. 25/févr./2006 2:23

who care?

merci fred!

Heis Spiter · Message par **Heis Spiter** » sam. 25/févr./2006 10:20

Frenchy Pilou a écrit :Anglaise

Pas grave, tant qu'il y est

.

Dr. Dri · Message par **Dr. Dri** » sam. 25/févr./2006 11:00

D'ailleurs elle a encore un peu changé ^^
Y'a même des formules de géométrie lol

Dri

flaith · Message par **flaith** » sam. 25/févr./2006 13:34

Dr. Dri a écrit :...
Y'a même des formules de géométrie lol

Dri

Ca c'est génial d'y avoir pensé, merci Fred

wolfjeremy · Message par **wolfjeremy** » sam. 25/févr./2006 13:47

J'ai hate de tester sa

j'ai envoyer les € vendredi j'espere qu'ils les resevront maximum lundi

Golfy · Message par **Golfy** » jeu. 09/mars/2006 0:07

Chez moi, c'est les fonctions réseaux qui m'intéressent... et là : génial !

Voici un petit programme qui nécessitait une librairie pour fonctionner : ouvrir une connexion FTP.

Code : Tout sélectionner

; Programme d'essai pour FTP
;
; Création d'un buffer pour la fonction réseau 'ReceiveNetworkData
*MemoryID = AllocateMemory(5000)

; Initialisation du réseau
If InitNetwork()
  ; Connexion au serveur FTP de Free en mode TCP
  Connection = OpenNetworkConnection("ftpperso.free.fr", 21 , #PB_Network_TCP) 
  If Connection > 0
    Debug "Connexion réussie - Attente de données de l'hote distant"
    ; On attend maintenant que le serveur renvoit un message (type "220 - ..." (RFC xxx))
    Repeat
    Until NetworkClientEvent(Connection)
    ; Des données sont arrivées ! il faut les placer dans le buffer et en connaître la longueur.
    ; La variable 'result' donne la longueur réellement lue.
    Result = ReceiveNetworkData(Connection, *MemoryID, 5000)
    Debug "Donnees = "+Str(Result)+" Oct."
    ; pour afficher les données dans le buffer. *Memory étant un pointeur, il faut utiliser PeekS.
    Text$ = PeekS(*MemoryID, Result)
    Debug Text$
    ; Soyons propre, fermons la connexion avant de quitter.
    CloseNetworkConnection(Connection)
  EndIf
EndIf

J'ai pas essayé les systèmes UDP (et ICMP comme le ping ?) mais il est clair que je vais me remettre à mes projets