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

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

Marsh Posté le 16-02-2002 à 16:59:49    

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]


---------------
Des trucs - flickr - Instagram
Reply

Marsh Posté le 16-02-2002 à 16:59:49   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed