Bonjour,
Je cherche à communiquer avec un webrelais (relais commandé par ethernet). Le relais se trouve a l'adresse 192.168.1.153 port 80. Je dois envoyé une requete GET pour connaitre son état.
'GET /state.xml HTTP/1.1'+CR+LF+'Authorization: Basic bm9uZTp3ZWJyZWxheQ=='+CR+LF+CR+LF
Pour cela j'ai écrit le code suivant:
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
 
var
  get_url,Reponse: string;
  resp: TStringStream;
  IdHTTP:TIdHTTP;
  CR,LF:char;
begin
  CR:=chr(13);
  LF:=chr(10);
  IdHTTP:=TIdHTTP.Create();
  resp := TStringStream.Create;
  IdHTTP.Request.Host:='192.168.1.153:80';
  IdHTTP.Request.Username:='admin'; // Utilisateur
  IdHTTP.Request.Password:='webrelay'; // Mot de passe
  IdHTTP.Request.BasicAuthentication := false; //Auth. BASIC
  try
    get_url:='GET /state.xml HTTP/1.1'+CR+LF+
      'Authorization: Basic bm9uZTp3ZWJyZWxheQ=='+CR+LF+CR+LF;
    memoGET.Text := IdHTTP.Get(get_url);
J'ai une erreur avec le IdHTTP.Get car le port est inconnu. J'ai bien essayé de faire un IdHTTP.Request.Port:=80 mais cela n'existe pas.
Bon en bref je coince.
Merci d'avance de vos lumières.
Michel