Salut,
jessaye avec ce Code de voir si un Serveur web est en vie:
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
 
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