Connexion http avec un webrelais (relais commandé par ethernet)
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:
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