bonjour, j'ai trouvé ceci
http://www.developpez.net/forums/d39...r-serveur-jeu/
j'ai aussi des scripts php qui fonctionne très bien
mais avec delphi j'obtiens "disconected"
j'ai essayé avec tudpsocket j'obtient du vide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure TForm1.Button1Click(Sender: TObject); Var MonObjet : TIdUDPClient ; Reponse : String ; Begin MonObjet := TIdUDPClient.Create(Nil); MonObjet.Host := '91.121.54.64'; {Ici LIP du serveur} MonObjet.Port := 1024; {Et là le son N° de Port} MonObjet.ReceiveTimeout := 850; {Le tps maxi en ms pour une réponse} MonObjet.Send(chr(255)+ char(255) + chr(255)+ char(255) + 'getstatus'+ chr(13)+ char(10)); {On envoi la requête} Reponse := MonObjet.ReceiveString; {Ici on reçoit la réponse à la requête} MonObjet.Free; showmessage(reponse); End;
merci d'avance
Partager