WinSock :: Recv ne reçoit rien

**Booster2ooo** · 24/08/2008, 12h22

Bonjour,

Je viens de commencer à coder avec les Windows Socket, et, comme prévu, j'ai déjà des problèmes: aucune erreur mais je ne reçois rien:

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
procedure TForm1.Button1Click(Sender: TObject);
var sock: Tsocket;
    inaddr: TInAddr;
    in_addr: TSockAddrIn;
    wsdata: TWSAData;
    host: PHostEnt;
    BufferOUT: string;
    BufferIN: array [0..2048] of char;
begin
  Memo1.Lines.Clear;
  BufferOUT := '';
  BufferIN := '';
  WSAStartUp($202, wsdata);
  try
    host := GetHostByName(pchar(Edit1.Text));
    Move(host.h_addr, inaddr.S_addr, host.h_length);
    in_addr.sin_family := AF_INET;
    in_addr.sin_port := htons(StrToInt(Edit2.Text));
    in_addr.sin_addr := inaddr;
    Sock :=  socket(AF_INET, SOCK_STREAM, 0);
    IF connect(sock, in_addr, sizeof(in_addr)) <> Socket_Error then Memo1.Lines.Add('Connection Error: ' + Edit1.Text + ' on port ' + Edit2.Text + ' error nb: ' + IntToStr(WSAGetLastError));
    BufferOUT := 'GET http://' + Edit1.Text + Edit3.Text + ' HTTP/1.0' + chr(13) + chr(13) + chr(13);
    send(sock, BufferOUT, length(BufferOUT), 0);
    ZeroMemory(@BufferIN[0], SizeOf(BufferIn));
    recv(sock, BufferIN, sizeof(BufferIN), 0);
    Memo1.Lines.Add(BufferIN);
    CloseSocket(sock);
  finally
    WSACleanup;
  end;
    Memo1.Lines.Add('Done');
end;

Edit1: www.google.com
Edit2: 80
Edit3: /intl/fr/about.html

Connect(), send() et recv() retournent -1

J'ai essayé un string au lieu de l'array of char, mais c'est la même chose.

Si je fais un "netstat 1", je ne vois pas google... il ne se connecte pas ? Pourtant, il n'y a pas d'erreur ...

En gros, j'ai besoin de vos lumières

Merci d'avance

------------------
Edit:
Je crois que ca vient de cette ligne:
host := GetHostByName(pchar(Edit1.Text));
------------------

**Paul TOTH** · 24/08/2008, 15h04

HTTP utilise du CR/LF il manque les chr(10)

sinon j'ai un exemple ici

**Booster2ooo** · 24/08/2008, 15h19

Merci, je vais regarde ca

**Booster2ooo** · 24/08/2008, 19h42

J'ai modifié mon code, maintenant, il se connecte correctement mais je ne reçois toujours rien :/

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
function TForm1.INetAddr(const Host:string):integer;
var
 pHost:PChar;
 HostEnt:PHostEnt;
begin
 if Host='' then begin // juste au cas ou ...
  Result:=INADDR_NONE;
 end 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 TForm1.Button1Click(Sender: TObject);
var sock: Tsocket;
    inaddr: TInAddr;
    in_addr: TSockAddrIn;
    wsdata: TWSAData;
    BufferOUT, BufferIN: string;
    //BufferIN: array [0..2048] of char;
    i, j: integer;
begin
  Memo1.Lines.Clear;
  BufferOUT := '';
  BufferIN := '';
  //ZeroMemory(@BufferIN[0], SizeOf(BufferIn));
  WSAStartUp($202, wsdata);
  try
    in_addr.sin_family := AF_INET;
    in_addr.sin_port := htons(StrToInt(Edit2.Text));
    in_addr.sin_addr.S_addr := INetAddr(Edit1.Text);
    if in_addr.sin_addr.S_addr=INADDR_NONE then Memo1.Lines.Add('No address specified');
    Sock :=  socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
    IF connect(sock, in_addr, sizeof(in_addr)) = Socket_Error then Memo1.Lines.Add('Connection Error: ' + Edit1.Text + ' on port ' + Edit2.Text + ' error nb: ' + IntToStr(WSAGetLastError));
    BufferOUT := 'GET http://' + Edit1.Text + Edit3.Text + ' HTTP/1.0'#13#10;
    i := send(sock, BufferOUT, length(BufferOUT), 0);
    //sleep(500);
    SetLength(BufferIN, 1024);
    j := recv(sock, BufferIN, 1024, 0);
    Delete(BufferIN, pos(BufferIN, #13), 1);
    Delete(BufferIN, pos(BufferIN, #10), 1);
    Memo1.Lines.Add(BufferIN);
    CloseSocket(sock);
 
  finally
    WSACleanup;
  end;
    Memo1.Lines.Add('Done');
    Memo1.Lines.Add('Sent: ' + IntToStr(i));
    Memo1.Lines.Add('Received: ' + IntToStr(j));
end;

Memo:

Done
Sent: 55
Received: 0 << déco, c'est bien ça ?

Si je passe par netcat:
nc www.google.com 80 <socket.dat >> reponse.txt

Ou socket.dat contient:
GET http://www.google.com/intl/fr/about.html HTTP/1.0

J'ai une réponse:

HTTP/1.0 200 OK
Content-Type: text/html
Last-Modified: Wed, 20 Aug 2008 21:14:31 GMT
Set-Cookie: PREF=ID=c69655ba0465535f:TM=1219598435:LM=1219598435:S=TjDqA8dp03i83O-J; expires=Tue, 24-Aug-2010 17:20:35 GMT; path=/; domain=.google.com
Date: Sun, 24 Aug 2008 17:20:35 GMT
Server: gws
Cache-Control: private, x-gzip-ok=""
Connection: Close

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<META http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>À propos de Google</title>
<link rel="stylesheet" type="text/css" href="http://www.google.com/css/goog.css">
<link rel="stylesheet" type="text/css" href="http://www.google.com/css/gooey.css">
<link rel="stylesheet" type="text/css" href="http://www.google.com/css/layout.css">
<style type="text/css">
h1 {
color:#636363;
float:left;
font-size:1.8em;
padding:0;
}

h1 img {
vertical-align:middle;
}

.header form {
float:right;
margin:1.6em 0 0;
}

.content h2 {
color:#FFF;
font-weight:bold;
margin:0.2em 0;
padding:0.2em 0.3em;
}

.content p {
margin:0.5em 0;
padding:0.2em 0.3em;
}

.content p a {
font-size:1.2em;
}

.contentr1c1 h2 {
background:#369;
}

.contentr1c2 h2 {
background:#DDAD08;
}

.contentr2c1 h2 {
background:#396;
margin:0.7em 0 0;
}

.contentr2c2 h2 {
background:#AA1002;
margin:0.7em 0 0;
}

.promo {
border:1px solid #000;
margin:0.2em 0.7em 1em 0;
padding:0.5em 0.3em;
text-align:center;
}

.promo img {
margin:0.3em 0.2em;
}

.promo-blue {
border-color:#369;
}

.promo-yellow {
border-color:#DDAD08;
}

.promo-green {
border-color:#396;
}

.promo-red {
border-color:#AA1002;
}
.contentr1 .g-unit, .contentr2 .g-unit {
width:49.5% !important;
}

.leftnav {
width:201px !important;
}

.content {
margin:0 0 0 201px !important;
}</style>

<script type="text/javascript" language="javascript" src="https://ssl.google-analytics.com/urchin.js"></script>
<script type="text/javascript" language="javascript">
_uacct="UA-18000-1";
_utcp="/intl/fr/";
_uanchor=1;
urchinTracker();
</script>
</head>
<body>
<div class="g-doc about">
<div class="g-section header">
<h1>À propos de <a href="/"><img src="images/about_logo.gif" alt="" title="" width="175" height="65"></a>
</h1>

<form action="http://www.google.com/search" method="get">
<input type="hidden" value="googleabout" name="output"><input type="hidden" value="http://www.google.com" name="sitesearch"><input type="hidden" value="fr" name="hl"><input type="text" value="" size="20" name="q">
 <input type="submit" value="Rechercher sur notre site" name="submit">
</form>
</div>
<div class="g-section g-tpl-180">
<div class="g-unit g-first leftnav">

<div class="promo promo-blue">
<strong><a href="http://toolbar.google.fr" onclick="javascript:urchinTracker('/embedmktg/toolbar');">Barre d'outils Google</a></strong>
<br>
<a href="http://toolbar.google.fr" onclick="javascript:urchinTracker('/embedmktg/toolbar');"><img src="http://www.google.com/images/icons/toolbar_about.gif" alt="Barre d'outils Google"></a>
<br>Ajoutez un champ de recherche à votre navigateur.</div>

<div class="promo promo-yellow">
<strong><a href="http://maps.google.fr/">Google Maps</a></strong>
<br>Plans, itinéraires et recherche de commerces.</div>

<div class="promo promo-green">
<strong><a href="https://adwords.google.fr/select/login?sourceid=awo&subid=ww-fr-et-about&medium=link" onclick="javascript:urchinTracker('/embedmktg/adwords');">Google AdWords</a></strong>
<br>Augmentez vos clics, vos clients et votre chiffre d'affaires grâce à Google AdWords.</div>

<div class="promo promo-red">
<strong><a href="http://www.google.com/a/?utm_medium=et&utm_source=about_page&utm_campaign=fr&token=app_fr" onclick="javascript:urchinTracker('/embedmktg/apps');">Google Apps</a></strong>
<br>Améliorez la communication au sein de votre entreprise grâce à Gmail et autres services associés.</div>

</div>
<div class="g-unit content">
<div class="g-section g-tpl-50-50 contentr1">
<div class="g-unit g-first contentr1c1">
<h2>Nos produits</h2>
<p>
<a href="/support?hl=fr" onclick="javascript:urchinTracker('/site/help');">Aide</a>
<br>Aide sur la recherche, les services et les produits Google...</p>
<p>
<a href="help/features.html" onclick="javascript:urchinTracker('/site/websearch');">Fonctions de recherche Google sur le Web</a>
<br>Traduction, J'ai de la chance, informations mises en cache...</p>
<p>
<a href="options/" onclick="javascript:urchinTracker('/site/services');">Services et outils Google</a>
<br>Barre d'outils, API Web Google, boutons...</p>
<p>
<a href="why_use.html" onclick="javascript:urchinTracker('/site/whygoogle');">Pourquoi utiliser Google ?</a>
<br>Informations complètes sur la recherche Google...</p>

</div>
<div class="g-unit contentr1c2">
<h2>Pour les propriétaires de sites Web</h2>
<p>
<a href="ads/" onclick="javascript:urchinTracker('/site/ads');">Publicité</a>
<br>AdWords, AdSense...</p>
<p>
<a href="services/" onclick="javascript:urchinTracker('/site/solutions');">Solutions d'entreprise</a>
<br>Google Search Appliance, Google Mini, recherche sur le Web...</p>
<p>
<a href="webmasters/" onclick="javascript:urchinTracker('/site/webmaster');">Centre pour les webmasters</a>
<br>Service centralisé fournissant des informations complètes sur la manière dont Google explore et indexe les sites Web...</p>
<p>
<a href="submit_content.html" onclick="javascript:urchinTracker('/site/submit');">Envoyez votre contenu à Google</a>
<br>Ajoutez votre site, Google Sitemaps...</p>

</div>
</div>
<div class="g-section g-tpl-50-50 contentr2">
<div class="g-unit g-first contentr2c1">
<h2>La société Google</h2>
<p>
<a href="press/" onclick="javascript:urchinTracker('/site/press');">Centre de presse</a>
<br>Infos, images, Zeitgeist...</p>
<p>
<a href="jobs/" onclick="javascript:urchinTracker('/site/jobs');">Carrières chez Google</a>
<br>Offres, avantages, culture...</p>
<p>
<a href="corporate/" onclick="javascript:urchinTracker('/site/corporate');">Informations sur la société</a>
<br>Présentation de l'entreprise, philosophie, diversité, adresses...</p>

</div>
<div class="g-unit contentr2c2">
<h2>Pour aller plus loin</h2>
<p>
<a href="contact/" onclick="javascript:urchinTracker('/site/contact');">Pour nous contacter</a>
<br>FAQ, commentaires, lettre d'informations...</p>
<p>
<a href="stickers.html" onclick="javascript:urchinTracker('/site/logos');">Logos et photos</a>
<br>Logos, Doodles et Googleurs en pleine action...</p>

</div>
</div>
</div>
</div>
<div class="g-section footer">

<p>
©2008 Google - <a href="privacy.html">Règles de confidentialité</a> - <a href="/accounts/TOS">Conditions d'utilisation</a>
</p>
</div>
</div>
</body>
</html>

Je ne comprend donc pas pourquoi dans mon programme, je ne reçois pas de réponse ...

Une idée ?

PS: j'ai aussi essayé avec ReadString & FillCache proposés dans le lien, j'ai le même résultat :/

**Paul TOTH** · 24/08/2008, 19h54

ta requête déclare être du HTTP/1.0 hors elle n'est pas conforme à cette norme. Le site attends le reste de l'entête.

**Booster2ooo** · 24/08/2008, 20h05

Ok, je teste avec une entête plus complète.

Edit:
Mince, maintenant j'ai un Bad Request

Memo:

<html><head>
<meta http-equiv="content-type" content="text/html;charset=utf-8">
<title>400 Bad Request</title>
<style></style>
<script>
</script>
</head>
<body text=#000000 bgcolor=#ffffff>
<table border=0 cellpadding=2 cellspacing=0 width=100%><tr><td rowspan=3 width=1% nowrap>
<b><font face=times color=#0039b6 size=10>G</font><font face=times color=#c41200 size=10>o</font><font face=times color=#f3c518 size=10>o</font><font face=times color=#0039b6 size=10>g</font><font face=times color=#30a72f size=10>l</font><font face=times color=#c41200 size=10>e</font>  </b>
<td> </td></tr>
<tr><td bgcolor=#3366cc><font face=arial,sa
Done
Sent: 213
Received: 1

Requete:
BufferOUT := 'GET http://' + Edit1.Text + Edit3.Text + ' HTTP/1.0'#13 +
'Accept: */*'#13 +
'Host: ' + Edit1.Text + #13 +
'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.8.1.16) Gecko/20080702 Firefox/2.0.0.16'#13 +
'Connection: Keep-Alive'#13 +
#10;

WinSock :: Recv ne reçoit rien

API, COM et SDKs Delphi

Vue hybride

Discussions similaires

Partager

Partager