Check port 80

Version imprimable

Check port 80

Salut,
jessaye avec ce Code de voir si un Serveur web est en vie:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 function TForm1.check(URL, Port: String): Boolean; var Client: TTCPClient ; begin Client:= TTCPClient.Create(nil) ; Try Client.RemoteHost:=URL; Client.RemotePort:=Port; Client.Connect ; if Client.Connected Then Label2.Caption:='Connected' else Label2.Caption:='Not Connected' finally Client.Close; Client.Free; end; end;
Le probleme que je ne comprend pas c que ca fonctione si je fais une
connection internet avant de demarer mon programme, et si je demare le progi et apres je fais une connection internet ca marche pas.
Je suis sous Win98.
Merci de chaque informations

15/03/2005, 13h41
Raylemon

J'ai peut-être mal compris ta question ...
Tu veux tester l'existence d'un serveur distant, c'est ça ?

D'après moi, il n'y a pas de problèmes. C'est normal que ton programme ne fonctionne pas si tu n'es pas connecté à Internet.

Si je comprend bien, tu lances ton programme et puis tu actives ta connexion ? Si c'est ça, ton appli aura déjà détecté le fait que la connexion n'existe pas.
15/03/2005, 14h01
Soulama

c vrais, mais aprés avoir lancer la connection internet, je demande a mon programm de faire le test et c toujour negatif.
Il faut que je redemare mon ptit programm, dans ce cas ca fontione tres bien.
letrange c que lorsque je redemare mon progi, c la quil peux atteindre le Serveur web.
jai limpression que Win 98 ecrit linformation generer par le bou de code quelque part, est il se sert delle pour dire quil na pas trouver le Host.
je veux bien vider le DNS Cache mais je ne c pas comment faire.
ya la commande ipconfig /flushdns, mais sous Win 98 ca marche pas, l'os ne trouve pas la commande.

Salut!

J'ai trouvé un code sur le net (merci Google) qui permet de vérifier l'accès d'une URL et donc du serveur...
Je l'ai essayé avec XP et ça fonctionne vraiment bien. J'espère que ça t'aidera...

Code:

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
Uses WinInet;
 
{----------------------------------------------------------------}
Function CheckUrl(url: String): Boolean;
Var
  hSession, hURL: HInternet;
  sAppName: String;
  dwCodeLen, dwIndex: Cardinal;
  dwCode: Array[1..20] Of Char;
  res: PChar;
Begin
  Result := False;
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, Nil, Nil, 0);
  Try
    hURL := InternetOpenURL(hSession, PChar(url), Nil, 0, 0, 0);
    Try
      dwCodeLen := 10;
      dwIndex := 0;
      HttpQueryInfo(hURL, HTTP_QUERY_STATUS_CODE, @dwcode, dwCodeLen, dwIndex);
      res := PChar(@dwcode);
      Result := ((res = '200') Or (res = '302'));
    Finally
      If (Assigned(hURL)) Then InternetCloseHandle(hURL);
    End;
  Finally
    If (Assigned(hSession)) Then InternetCloseHandle(hSession);
  End;
End;
 
{----------------------------------------------------------------}
Procedure TForm1.Button1Click(Sender: TObject);
Begin
  If (CheckUrl('http://sub0.developpez.com/')) Then
    Label1.Caption := 'Connected'
  Else
    Label1.Caption := 'Not Connected';
End;

15/03/2005, 22h10
Soulama

Merci pour le bou de Code.
je vais essyé.
A+