Requete HTTP avec identification

Version imprimable

1 pièce(s) jointe(s)

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 Pièce jointe 645240

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

Mon code :
Code:

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.

13/10/2023, 17h15
ShaiLeTroll

Cela renvoie un JSON, le Haut-parleur gère-t-il un Service REST ou seulement un Server Web conçu pour retourner du HTML
Le problème dans la question c'est qu'elle est très spécifique à votre matériel, sans lire toutes les documentations ou l'infime chance que quelqu'un connaisse, vous n'aurez pas beaucoup de réponse, le fabricant n'a pas un support ?

Si vous regardez le code source dans le formulaire dans le navigateur, êtes vous sur de voir une authentification basique ?
Comment allez vous gérer les cookies si l'enceinte les utilise pour conserver les informations de connexion ?

N'existe pas une API plus bas niveau, en TCP par exemple, avec des commandes avec la couche SIP

Avant de passer à Delphi, peut-être vous devriez tester avec cURL par exemple

Code:

curl --max-time 1 --noproxy "*" --anyauth --user admin:guest "http://192.168.118.201/api/v2/pattern/play?pattern_number=1"
15/10/2023, 13h19
Anselme45

Le message retourné avec l'erreur 3 est un message propriétaire de l'appareil qui correspond à l'erreur standardisée HTTP403.

L'appareil a donc reçu votre requête mais ne vous donne pas l'autorisation de dialoguer avec lui.

Première question à se poser, quel type de connexion: Connexion en clair ou chiffré

https est une liaison sécurisé et chiffrée via SSL, http est une liaison en claire non chiffrée!!!

4. Votre code ne gère pas l'aspect SSL (gestion de certificat)

Première question à vous poser: Votre appareil accepte quel type de connexion?

Pour cela, faites déjà le test dans un navigateur en tapant L'URL qui fonctionne avec la mention http puis avec https

Si vous faites du http alors que du https est requis, il est normal que vous receviez en retour un "Non autorisé". Dans ce cas, le login et password même corrects ne vont pas suffire...

Bonjour ShaiLeTroll
Apparemment, Le HP gère le SIP, mais je ne connais pas .

Pour le cURL, j'ai essayer depuis une invite de commande, cela fonctionne, par contre depuis delphi, impossible.
Code:

1 2 3 4 5 procedure TForm1.Button4Click(Sender: TObject); begin ShellExecute(Handle,nil,'C:\Windows\System32\curl.exe --noproxy "*" --anyauth --user admin:guest "http://192.168.118.201/api/v2/pattern/play?pattern_number=1"',nil,nil,SW_SHOW); end;
Rien ne se passe.
Pour le code source du formulaire, je ne sais pas comment le regarder.

Merci pour ton aide.

Citation:

Envoyé par ShaiLeTroll

Cela renvoie un JSON, le Haut-parleur gère-t-il un Service REST ou seulement un Server Web conçu pour retourner du HTML
Le problème dans la question c'est qu'elle est très spécifique à votre matériel, sans lire toutes les documentations ou l'infime chance que quelqu'un connaisse, vous n'aurez pas beaucoup de réponse, le fabricant n'a pas un support ?

Si vous regardez le code source dans le formulaire dans le navigateur, êtes vous sur de voir une authentification basique ?
Comment allez vous gérer les cookies si l'enceinte les utilise pour conserver les informations de connexion ?

N'existe pas une API plus bas niveau, en TCP par exemple, avec des commandes avec la couche SIP

Avant de passer à Delphi, peut-être vous devriez tester avec cURL par exemple

Code:

curl --max-time 1 --noproxy "*" --anyauth --user admin:guest "http://192.168.118.201/api/v2/pattern/play?pattern_number=1"

16/10/2023, 08h02
NetFantome

Bonjour Anselme45,
Connection en Http non chiffré dans le navigateur. Bien sur, j'ai fait le test sur un navigateur http://192.168.118.201/api/v2/patter...ttern_number=1
Cela pilote bien le HP ( Après avoir rentré utilisateur et mot de passe dans la fenêtre d'identification une 1ere fois ).
Le navigateur, après envoie de la requête m'affiche bien site non sécurisé et je n'ai pas de cadenas.
Je pense donc être sans chiffrage.
Merci pour ton aide

Citation:

Envoyé par Anselme45

Le message retourné avec l'erreur 3 est un message propriétaire de l'appareil qui correspond à l'erreur standardisée HTTP403.

L'appareil a donc reçu votre requête mais ne vous donne pas l'autorisation de dialoguer avec lui.

Première question à se poser, quel type de connexion: Connexion en clair ou chiffré

https est une liaison sécurisé et chiffrée via SSL, http est une liaison en claire non chiffrée!!!

4. Votre code ne gère pas l'aspect SSL (gestion de certificat)

Première question à vous poser: Votre appareil accepte quel type de connexion?

Pour cela, faites déjà le test dans un navigateur en tapant L'URL qui fonctionne avec la mention http puis avec https

Si vous faites du http alors que du https est requis, il est normal que vous receviez en retour un "Non autorisé". Dans ce cas, le login et password même corrects ne vont pas suffire...

j'écrirais plutôt lpFile et lpParameters séparément
Code:

1 2 3 4 procedure TForm1.Button4Click(Sender: TObject); begin ShellExecute(Handle, 'open', 'C:\Windows\System32\curl.exe', '--noproxy "*" --anyauth --user admin:guest "http://192.168.118.201/api/v2/pattern/play?pattern_number=1"', nil, SW_SHOW); end;
Si cela retourne quelque chose dans l'invite de commande, cela doit fonctionner avec le ShellExecute mais le problème c'est que vous n'allez pas avoir le résultat du Pipe, faudrait utiliser CreateProcess : Redirection des entrées/sorties du process via TSLTShellExecuteWrapper.CallCmd
Code:

1 2 3 4 5 6 7 8 procedure TForm1.Button4Click(Sender: TObject); var ExitCode: Int64; ResultText, ErrorText: string; begin TSLTShellExecuteWrapper.CallCmd('', 'C:\Windows\System32\curl.exe', '--noproxy "*" --anyauth --user admin:guest "http://192.168.118.201/api/v2/pattern/play?pattern_number=1"', ExitCode, ResultText, ErrorText); Memo1.Lines.Text := ResultText; end;

Bonjour,
Super, cela fonctionne

Pour info, sous Delphi XE5 ligne 438 dans l'unité STL.Commin.WinApi.ShellApi
Code:

1 2 3 TULargeInteger(ExitCode).HighPart := 0; if not GetExitCodeProcess(ProcessInfo.hProcess, TULargeInteger(ExitCode).LowPart) then ExitCode := -1;
Delphi connais bien HighPart et LowPart
Dans winapi.Windows
Code:

1 2 3 4 5 6 7 8 ULARGE_INTEGER = record case Integer of 0: ( LowPart: DWORD; HighPart: DWORD); 1: ( QuadPart: ULONGLONG); end;
Par contre dans delphi 11.2, j'ai une erreur a la compilation, il ne connais pas HighPart et LowPart
Le winApi.Windows de Delphi 11.2
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 _ULARGE_INTEGER = record case Integer of 0: ( LowPart: DWORD; HighPart: DWORD); 1: ( QuadPart: ULONGLONG); end; {$EXTERNALSYM _ULARGE_INTEGER} {$NODEFINE TULargeInteger} TULargeInteger = UInt64; ULARGE_INTEGER = _ULARGE_INTEGER; {$EXTERNALSYM ULARGE_INTEGER}
Je marque en résolu et te remercie pour ton aide.
Citation:
Envoyé par ShaiLeTroll
j'écrirais plutôt lpFile et lpParameters séparément
Code:

1 2 3 4 procedure TForm1.Button4Click(Sender: TObject); begin ShellExecute(Handle, 'open', 'C:\Windows\System32\curl.exe', '--noproxy "*" --anyauth --user admin:guest "http://192.168.118.201/api/v2/pattern/play?pattern_number=1"', nil, SW_SHOW); end;
Si cela retourne quelque chose dans l'invite de commande, cela doit fonctionner avec le ShellExecute mais le problème c'est que vous n'allez pas avoir le résultat du Pipe, faudrait utiliser CreateProcess : Redirection des entrées/sorties du process via TSLTShellExecuteWrapper.CallCmd
Code:

1 2 3 4 5 6 7 8 procedure TForm1.Button4Click(Sender: TObject); var ExitCode: Int64; ResultText, ErrorText: string; begin TSLTShellExecuteWrapper.CallCmd('', 'C:\Windows\System32\curl.exe', '--noproxy "*" --anyauth --user admin:guest "http://192.168.118.201/api/v2/pattern/play?pattern_number=1"', ExitCode, ResultText, ErrorText); Memo1.Lines.Text := ResultText; end;

16/10/2023, 17h48
der§en

Pour passer l’authentification HTTP, il faut la rajouter dans ton URL (a l’ancienne quoi) !

Pour la syntaxe:
https://developer.mozilla.org/fr/doc...cation_basique
17/10/2023, 08h05
NetFantome

Bonjour,
Cela fonctionne depuis un navigateur
http://admin:guest@192.168.118.201/a...ttern_number=1

Par contre, impossible depuis Delphi avec le composant INDY idhttp

Code:

idhttp1.Get('http://admin:guest@192.168.118.201/api/v2/pattern/play?pattern_number=1') ;

Je cherche, merci pour la piste.

Citation:

Envoyé par der§en

Pour passer l’authentification HTTP, il faut la rajouter dans ton URL (a l’ancienne quoi) !

Pour la syntaxe:
https://developer.mozilla.org/fr/doc...cation_basique

Fonctionne avec le composant TNetHTTPClient
Code:

1 2 3 4 5 6 7 8 9 10 var St: TMemoryStream; Begin st := TMemoryStream.Create; try NetHTTPClient1.get('http://admin:guest@192.168.118.201/api/v2/info/status',st ) ; ..... finally st.Free ; end;
Par contre avec Indy, je n'ai pas trouvé, il doit y avoir un paramètre ...

Merci à tous.

Citation:

Envoyé par NetFantome

Bonjour,
Cela fonctionne depuis un navigateur
http://admin:guest@192.168.118.201/a...ttern_number=1

Par contre, impossible depuis Delphi avec le composant INDY idhttp

Code:

idhttp1.Get('http://admin:guest@192.168.118.201/api/v2/pattern/play?pattern_number=1') ;

Je cherche, merci pour la piste.

Bonjour,

Pourquoi ne pas utiliser REST ? Je trouve que c'est plus pratique que Indy en particulier si on a besoin de récupérer le JSON :).

A tester :

Code:

1
2
3
4
5
6
7
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, REST.Types, REST.Client,
  REST.Authenticator.Basic, Data.Bind.Components, Data.Bind.ObjectScope,
  FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
  FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
  Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, REST.Response.Adapter;

Code:

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
32
33
34
35
36
37
38
procedure TForm1.GetHttp;
Var
  Request : TRESTRequest;
  Client : TRESTClient;
  Response : TRESTResponse;
  Auth : THTTPBasicAuthenticator;
  Table : TFDMemTable;
  Adapter : TRESTResponseDataSetAdapter;
Begin
  Try
    Client := TRESTClient.Create(Nil);
    Request := TRESTRequest.Create(Client);
    Response := TRESTResponse.Create(Client);
    Auth := THTTPBasicAuthenticator.Create(Client);
    Table := TFDMemTable.Create(Client);
    Adapter := TRESTResponseDataSetAdapter.Create(Client);
 
    Auth.Username := 'login';
    Auth.Password := 'password';
 
    Client.Authenticator := Auth;
    Request.Client := Client;
    Request.Response := Response;
    Adapter.Response := Response;
    Adapter.Dataset := Table;
 
    Client.BaseURL := 'http://admin:guest@192.168.118.201/api/v2/pattern/play';
    Client.AddParameter('pattern_number','1');
    Request.Execute;
 
    if Not Table.IsEmpty then
    Begin
      // Ton code ici . . .
    End;
  Finally
    Client.Free;
  End;
End;

J'ai volontairement créé les composants en runtime pour mieux illustrer (REST débogueur s'en charge automatiquement quand on l'utilise), et si il n'y a pas besoin de récupérer le JSON, il suffit de ne pas ajouter la table et l'adapteur.

Bonjour à tous

Pour résumer, je dispose de 3 solutions :
- Avec une commande Curl via shellExecute ( Merci ShaiLeTroll )
- Avec Http et identification dans URL ( Merci der§en )
- Avec REST ( Merci PetitBoutDeCode )

Merci a tous.
Citation:
Envoyé par PetitBoutDeCode
Bonjour,

Pourquoi ne pas utiliser REST ? Je trouve que c'est plus pratique que Indy en particulier si on a besoin de récupérer le JSON :).

A tester :
Code:

1 2 3 4 5 6 7 uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, REST.Types, REST.Client, REST.Authenticator.Basic, Data.Bind.Components, Data.Bind.ObjectScope, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, REST.Response.Adapter;
Code:

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 32 33 34 35 36 37 38 procedure TForm1.GetHttp; Var Request : TRESTRequest; Client : TRESTClient; Response : TRESTResponse; Auth : THTTPBasicAuthenticator; Table : TFDMemTable; Adapter : TRESTResponseDataSetAdapter; Begin Try Client := TRESTClient.Create(Nil); Request := TRESTRequest.Create(Client); Response := TRESTResponse.Create(Client); Auth := THTTPBasicAuthenticator.Create(Client); Table := TFDMemTable.Create(Client); Adapter := TRESTResponseDataSetAdapter.Create(Client); Auth.Username := 'login'; Auth.Password := 'password'; Client.Authenticator := Auth; Request.Client := Client; Request.Response := Response; Adapter.Response := Response; Adapter.Dataset := Table; Client.BaseURL := 'http://admin:guest@192.168.118.201/api/v2/pattern/play'; Client.AddParameter('pattern_number','1'); Request.Execute; if Not Table.IsEmpty then Begin // Ton code ici . . . End; Finally Client.Free; End; End;
J'ai volontairement créé les composants en runtime pour mieux illustrer (REST débogueur s'en charge automatiquement quand on l'utilise), et si il n'y a pas besoin de récupérer le JSON, il suffit de ne pas ajouter la table et l'adapteur.