Discussion :

[Clément[Delphi]]

Voila tt ma question et dans le Sujet.
J'aimerais savoir comment faire pour que quand je met une url dans Edit1 et que je clique sur un bouton sa m'écrive dans un RichEdit si le site et bon ou si c une erreur 404.
Dsl si cette question a déja été posé mais je ne la trouve pas dans le forum.
Svp aidez moi. Vous etes Supers.

Clément

[Pierre Castelain]

Je ne suis pas spécialiste de ce genre de code, mais tu devrais pouvoir y arriver avec un composant NMHTTP (onglet Fastnet). Voici un bout de code utilisant ce composant ainsi qu'un TButton, un TLabel et un TEdit:

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
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    NMHTTP1.Get(Edit1.Text);
  except
    Label1.Caption:= 'N''existe pas?';
  end;
end;
 
procedure TForm1.NMHTTP1Success(Cmd: CmdType);
begin
  Label1.Caption:= 'OK';
end;
 
procedure TForm1.NMHTTP1Failure(Cmd: CmdType);
begin
  Label1.Caption:= 'Failure';
end;

Il y a surement une meilleure solution, mais celle-ci me semble simple.

[Clément[Delphi]]

Merci de ta réponse, entre temps jai trouvé le msg ke je chercher sur le forum ki donné comme réponse:

Code :

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

1
2
3
4
5
6
7
 
try
idhttp1.Get(Edit1.Text);
ShowMessage ('Sa Marche');
except
ShowMessage ('Sa marche pas');
end;

@+
Clément