[delphi] création de WSAstartup, socket, bind etc... help

Recherche :

Dernière réponse
Sujet : [delphi] création de WSAstartup, socket, bind etc... help
darxmurf	Salut bonjour ! Voilà j'ai un cours de client-serveur où on fait joujou avec socket et tout ça... le problème c'est que moi et le C++ c'est pas le grand amour alors hop: Delphi que j'aime mais voilà la question : (code) procedure TForm1.Button1Click(Sender: TObject); var desc_sock : integer; wsimpl : WSADATA; WS_VERSION : word; begin if (WSAStartup(WS_VERSION,wsimpl) <> 0) then begin desc_sock := socket(AF_INET,SOCK_DGRAM,IPPROTO_UDP); box1.items.Add('SOCKET : ' + IntToStr(desc_sock)); end else box1.items.add('ERREUR DE CREATION DE SOCKET') end; Dans mon cours, le WS_VERSION est déclaré nul part je pense que c'est donc une variable ou une structure de windows mais delphi gueule quand je le met... alors bon je l'ai déclaré. Mais ça marche pas, le socket n'est pas créé qqn peut me renseigner ? ou qqn a t'il UN COURS EN FRANCAIS MIEUX QUE LA CROUTE QUE JE ME TAPPE ??? merci ! a+ Darx [jfdsdjhfuetppo]--Message édité par darxmurf--[/jfdsdjhfuetppo]

Dernière réponse

Sujet : [delphi] création de WSAstartup, socket, bind etc... help

darxmurf

Salut bonjour !

Voilà j'ai un cours de client-serveur où on fait joujou avec socket et tout ça... le problème c'est que moi et le C++ c'est pas le grand amour alors hop: Delphi que j'aime mais voilà la question : (code)

procedure TForm1.Button1Click(Sender: TObject);
var desc_sock : integer;
wsimpl : WSADATA;
WS_VERSION : word;

begin
if (WSAStartup(WS_VERSION,wsimpl) <> 0) then
begin
desc_sock := socket(AF_INET,SOCK_DGRAM,IPPROTO_UDP);
box1.items.Add('SOCKET : ' + IntToStr(desc_sock));
end
else box1.items.add('ERREUR DE CREATION DE SOCKET')
end;

Dans mon cours, le WS_VERSION est déclaré nul part je pense que c'est donc une variable ou une structure de windows mais delphi gueule quand je le met... alors bon je l'ai déclaré. Mais ça marche pas, le socket n'est pas créé

qqn peut me renseigner ? ou qqn a t'il UN COURS EN FRANCAIS MIEUX QUE LA CROUTE QUE JE ME TAPPE ??? merci !

a+

Darx

[jfdsdjhfuetppo]--Message édité par darxmurf--[/jfdsdjhfuetppo]