Discussion :

[NetFantome]

Bonjour,

J'essai de me connecter un un Haut parleur qui fonctionne en réseau: https://www.toa.fr/produits/ip-a1sc15/

Depuis un navigateur, il ouvre une fenêtre avec demande d'identification

Par contre , je n'arrive pas depuis Delphi à faire une identification automatique .

Mon code :

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
20
21
22
23
24
25
26
27
28
29
30
31
function TForm1.GetURLAsString(const aURL: string): string;
var
  HTTP: TIdHTTP;
begin
  memo1.clear ;
  HTTP := TIdHTTP.Create(nil);
  try
 
  HTTP.ConnectTimeout := 10000 ;
  HTTP.Request.Clear;
 
  HTTP.Request.Host := '192.168.118.201' ;
  HTTP.Request.BasicAuthentication := True ;
  HTTP.Request.Username := 'admin' ;
  HTTP.Request.Password := 'guest' ;
 
  Result := HTTP.Get(aURL);
  memo1.Lines.Text := Result ;
 
  finally
    HTTP.Free;
  end;
 
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  GetURLAsString('http://192.168.118.201/api/v2/pattern/play?pattern_number=1') ;
 
end;

J'ai toujours en réponse :
{
"response": {
"code": 3,
"message": "Unauthorized"
},
"result": false
}

Réponse identique si j'appuie sur annuler dans la fenêtre d'identification du navigateur.

DELPHI XE5 - WIN32

Merci d'avance pour vos idées et bon week-end.