Utilisation socket débutant

**juju1988** · 08/04/2011, 12h02

Bonjour,

Je suis actuellement le tuto de Paul TOTH pour me familiariser avec les sockets en Windev :
http://lookinside.free.fr/delphi.php?Winsock

J'ai donc créée mon unité Socket et sur le clic d'un bouton je fais donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var
  so: TSocket;
begin
// so := socket(AF_INET, SOCK_DGRAM, IPROTO_UDP); pour un socket UDP
  so := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP); // pour un socket TCP
  if so = INVALID_SOCKET then
    Exit; // impossible d'allouer le socket !
end;

Mais sur ligne en gras ça me met . attendu mais ( trouvée ... d'où cela vient-il ?

Ensuite je ne comprend pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

so := socket[/B](AF_INET, SOCK_STREAM, IPPROTO_TCP);

Il faut que je remplace AF_INET par l'adresse IP... je débute je suis désolée pour ces questions je m'en excuse d'avance...

Merci aussi pour votre aide

**Paul TOTH** · 08/04/2011, 12h44

si tu donnes le nom "socket" à ton unité, "socket" désigne ton unité

le compilateur attend donc un identifiant déclaré dans cette unité.

le plus simple est de renommer ton unité, sinon il faut que tu précises que tu veux appeler la fonction "socket" de l'unité Wisnock en indiquant "so := Winsock.socket(..."

**juju1988** · 08/04/2011, 13h37

D'accord

merci

**juju1988** · 08/04/2011, 14h38

Par contre j'ai un autre problème j'ai fait la suite avec la connexion Google :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Socket, Winsock;

type
  Tfrm_TestSocket = class(TForm)
    bt_AllocSocket: TButton;
    bt_ConnectTCPGoogle: TButton;
    bt_Quitter: TButton;
    procedure bt_AllocSocketClick(Sender: TObject);
    procedure bt_ConnectTCPGoogleClick(Sender: TObject);
    procedure bt_QuitterClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  frm_TestSocket: Tfrm_TestSocket;
  so: TSocket;

implementation

{$R *.dfm}

procedure Tfrm_TestSocket.bt_AllocSocketClick(Sender: TObject);

begin
// so := socket(AF_INET, SOCK_DGRAM, IPROTO_UDP); pour un socket UDP
  so := Winsock.Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);  // pour un socket TCP
  MessageBox(0,'Allocation socket OK','Allocation socket',MB_OK);

  if so = INVALID_SOCKET then
    MessageBox(0,'Allocation socket impossible','Allocation socket',MB_OK);
    Exit; // impossible d'allouer le socket !
end;

function INetAddr(const Host: string): Integer;
var
  pHost: PChar;
  HostEnt: PHostEnt;
begin
  if Host = '' then // juste au cas ou ...
    Result := INADDR_NONE
  else
  begin
    pHost := PChar(Host);
    Result := inet_addr(pHost); // est-ce une adresse au format x.y.z.w ?
    if Result = INADDR_NONE then 
    begin
      HostEnt := gethostbyname(pHost); // est-ce un nom d'hote ? (résolution DNS)
      if HostEnt <> nil then
        Result := Integer(Pointer(HostEnt^.h_addr^)^);
    end;
  end;
end;

procedure Tfrm_TestSocket.bt_ConnectTCPGoogleClick(Sender: TObject);
var
  sa: TSockAddr;
begin
  FillChar(sa, SizeOf(sa), 0);
  sa.sin_family := AF_INET; // connexion IP
  sa.sin_port := htons(80); // sur le port 80
  sa.sin_addr.S_addr := INetAddr('www.google.fr'); // vers www.google.fr
  if sa.sin_addr.S_addr = INADDR_NONE then  // adresse IP non trouvée    MessageBox(0,'Adresse IP non trouvée','Connexion à Google en TCP',MB_OK);
    Exit;
  if connect(so, sa, SizeOf(sa)) = SOCKET_ERROR then  // erreur de connexion
    MessageBox(0,'Erreur Connexion','Connexion  Google en TCP',MB_OK);
    Exit;
end;



procedure Tfrm_TestSocket.bt_QuitterClick(Sender: TObject);
begin
 frm_TestSocket.Close;
end;

end.

Et lorsqu'on arrive sur la ligne violette on passe directement à end;
Comment ça se fait ? Est ce que j'ai fait une erreur ?

**Paul TOTH** · 08/04/2011, 14h58

si tu es en Delphi version >= 2009 il faut déclarer des PAnsiChar et des AnsiChar dans INetAddr()

sinon les Exit en fin de procédure ne servent à rien, et s'ils sont liés au IF il faut encadrer le bloc par un begin/end

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
if (cond) then
begin
end; // fin du IF
 
 
if (cond) then
  ShowMessage('Hello'); // fin du IF qui ne comprend qu'une instruction !!!
  Exit; // s'execute TOUJOURS

**juju1988** · 08/04/2011, 15h03

Delphi 7 pour moi.

Je suis juste ton code en fait histoire de mieux comprendre le codage socket sous Delphi, mais ça fait 5 ans que je n'ai pas fait de Delphi donc les réflexes et sont dur à retrouver, je m'y remet aujourd'hui.
Je vais tenter d'arranger les Exit...

Edit : OK !

Merci bien

Petite question pas très maline je sais mais j'en suis pas sûre à quel niveau du code sait-on si la connexion a réussie ? (en gros où puis je mettre mon messagebox connexion ok en fait)

Actuellement je fais comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure Tfrm_TestSocket.bt_ConnectTCPGoogleClick(Sender: TObject);
var
  sa: TSockAddr;
begin
  FillChar(sa, SizeOf(sa), 0);
  sa.sin_family := AF_INET; // connexion IP
  sa.sin_port := htons(80); // sur le port 80
  sa.sin_addr.S_addr := INetAddr('www.google.fr'); // vers www.google.fr
  if sa.sin_addr.S_addr = INADDR_NONE then  // adresse IP non trouvée
  begin
    MessageBox(0,'Adresse IP non trouvée','Connexion à Google en TCP',MB_OK);
  end;
   // Exit;
  if connect(so, sa, SizeOf(sa)) = SOCKET_ERROR then  // erreur de connexion
  begin
    MessageBox(0,'Erreur Connexion','Connexion  Google en TCP',MB_OK);
  end;
   // Exit;
    MessageBox(0,'Connexion OK','Connexion Google en TCP',MB_OK);
end;

Correct ?

**Paul TOTH** · 08/04/2011, 15h40

oui mais je mettrais bien les Exit après le message d'erreur histoire de stopper la procédure

InetAddr fait la résolution d'adresse = transformer un nom en adresse IP via DNS
connect...ben ça se connecte

Sinon les différents composants IP ICS, Indy, TCPClient, etc... font exactement la même chose

mais je trouve ça intéressant de connaitre la programmation des sockets car ça existe partout

**juju1988** · 08/04/2011, 16h00

Je suis venue à bout de ton tuto nickel !! Me reste plus qu'à me remettre un peu au Delphi maintenant et à mieux comprendre tout ce code !
Je te remercie encore

**juju1988** · 08/04/2011, 16h25

Une dernière fonction je comprend pas trop la fonction Read String et Fill Cache et pourquoi (si tu as le temps de m'expliquer vite fait hein sinon je me débrouillerai):

cette fonction retourne la première ligne du cache se terminant par un CR/LF ? parce que la chaine envoyée on l'a terminée par ça c'est ça ? Et du coup on prend le problème à l'envers si on peut dire on part de là et on remonte?

**Paul TOTH** · 08/04/2011, 16h49

Envoyé par juju1988

Une dernière fonction je comprend pas trop la fonction Read String et Fill Cache et pourquoi (si tu as le temps de m'expliquer vite fait hein sinon je me débrouillerai):

cette fonction retourne la première ligne du cache se terminant par un CR/LF ? parce que la chaine envoyée on l'a terminée par ça c'est ça ? Et du coup on prend le problème à l'envers si on peut dire on part de là et on remonte?

là tu rentres dans le protocole...il y en a en binaire, d'autres au format texte, ici c'est du HTTP, c'est du format texte et les lignes se termines par un CR/LF

comme la lecture du socket peut se faire par morceaux (il faut le temps que les données arrivent), tu dois buffeuriser les données jusqu'à ce que tu trouves un CR/LF

d'où la présence d'un cache qu'on rempli jusqu'à ce qu'il contienne un CR/LF que ReadString renvoie

**juju1988** · 08/04/2011, 16h53

OK compris

merciiiiiii

Utilisation socket débutant

Delphi

Discussions similaires

Partager

Partager