Interrogation d'un service IGN WPS via TFPHTTPClient

**JP CASSOU** · 26/01/2022, 16h59

Bjr à vous,

Je cherche à récupérer des altitudes via le service https://wxs.ign.fr/essentiels/alti/w...&version=1.0.0 en utilisant TFPHTTPClient

(tutoriaux: https://geoservices.ign.fr/documenta...imetrique-rest)

En GET vers https://wxs.ign.fr/essentiels/alti/r...00&zonly=false, çà marche

En POST vers https://wxs.ign.fr/essentiels/alti/w...&version=1.0.0, je mets ceci dans mon TFPHTTPClient

Dans mon instance de TFPHTTPClient, je vide son RequestHeaders et j'y mets les lignes suivantes:

Code :

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

1
2
3
4
  FHttpClient.RequestHeaders.Clear;
  FHttpClient.RequestHeaders.Add('User-Agent: Mozilla/5.0 (compatible; fpweb)');
  FHttpClient.RequestHeaders.Add('Content-Type:text/xml; charset=UTF-8');
  FHttpClient.RequestHeaders.add('Accept:text/xml');

et dans la requête POST, envoyée par Procedure TFPHTTPClient.FormPost(const URL : string; FormData: TStrings; const Response: TStrings), j'y mets les paramètres suivants:

URL = https://wxs.ign.fr/essentiels/alti/w...&version=1.0.0
FormData, un TStringList composé par mon appli
Response, un TStringList initialisé et vidé

Les lignes de mon FormData:

Code XML :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
<?xml version="1.0" encoding="UTF-8"?>
<wps:Execute version="1.0.0" service="WPS"
  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
  xmlns:"http://www.opengis.net/wps/1.0.0" xmlns:wfs="http://www.opengis.net/wfs"
  xmlns:wps="http://www.opengis.net/wps/1.0.0"
  xmlns:ows="http://www.opengis.net/ows/1.1" xmlns:gml="http://www.opengis.net/gml"
  xmlns:ogc="http://www.opengis.net/ogc"
  xmlns:wcs="http://www.opengis.net/wcs/1.1.1" xmlns:xlink="http://www.w3.org/1999/xlink"
  xsi:schemaLocation="http://www.opengis.net/wps/1.0.0 http://schemas.opengis.net/wps/1.0.0/wpsAll.xsd">
  <ows:Identifier>gs:WPSLineElevation</ows:Identifier>
  <wps:DataInputs>
    <wps:Input>
      <ows:Identifier>lon</ows:Identifier>
      <wps:Data>
        <wps:LiteralData>
        -0.02500000|-0.02200000|-0.01900000|-0.01600000|-0.01300000|-0.01000000|-0.00700000|-0.00400000
        </wps:LiteralData>
      </wps:Data>
    </wps:Input>
    <wps:Input>
      <ows:Identifier>lat</ows:Identifier>
      <wps:Data>
        <wps:LiteralData>
        43.08600000|43.08800000|43.09000000|43.09200000|43.09400000|43.09600000|43.09800000|43.10000000
        </wps:LiteralData>
      </wps:Data>
    </wps:Input>
    <wps:Input>
      <ows:Identifier>sampling</ows:Identifier>
      <wps:Data>
        <wps:LiteralData>8</wps:LiteralData>
      </wps:Data>
    </wps:Input>
    <wps:Input>
      <ows:Identifier>format</ows:Identifier>
      <wps:Data>
        <wps:LiteralData>json</wps:LiteralData>
      </wps:Data>
    </wps:Input>
  </wps:DataInputs>
  <wps:ResponseForm>
    <wps:RawDataOutput>
      <ows.Identifier>result</ows.Identifier>
    </wps:RawDataOutput>
  </wps:ResponseForm>
</wps:Execute>

Le serveur IGN me retourne un code 200 OK, et la réponse XML suivante dans Response

Code XML :

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

1
2
3
4
5
6
7
8
<?xml version="1.0" encoding="UTF-8"?>
<ows:ExceptionReport version="1.1.0"
  xsi:schemaLocation="http://www.opengis.net/ows/1.1 https://wxs.ign.fr/alti/schemas/ows/1.1.0/owsAll.xsd"
  xmlns:ows="http://www.opengis.net/ows/1.1" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <ows:Exception exceptionCode="MissingParameterValue" locator="request">
    <ows:ExceptionText>Could not determine geoserver request from http request org.geoserver.platform.AdvancedDispatchFilter$AdvancedDispatchHttpRequest@c679618</ows:ExceptionText>
  </ows:Exception>
</ows:ExceptionReport>

Des pistes ?

**BeanzMaster** · 28/01/2022, 08h26

Hello d'après le message d'erreur il te manque un paramètre dans l'url de la requete ~~soit dans le formData~~

**JP CASSOU** · 28/01/2022, 09h52

Envoyé par BeanzMaster

Hello d'après le message d'erreur il te manque un paramètre dans l'url de la requete ~~soit dans le formData~~

J'utilise pourtant l'URL https://wxs.ign.fr/CLEF/alti/wps?ser...&version=1.0.0 mentionnée dans le tutorial officiel https://geoservices.ign.fr/documenta...ique-rest#1894

Ceci dit, le tuto est peut-être caduc. Le nombre de tutos périmés ou qui ne fonctionnent pas (exemples boiteux notamment) est hallucinant, y compris sur les sites officiels.

**jurassic pork** · 28/01/2022, 11h55

hello,
l'erreur que tu fais c'est d'utiliser un FormPost alors que c'est un Post qu'il faut faire en mettant le xml dans le RequestBody.
Voici un code qui fonctionne chez moi :

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
procedure TForm1.Button3Click(Sender: TObject);
var
  MyHTTPRequest: TFPHTTPClient;
  MyURL: String;
  FormData: TStringList;
  Response: TStringList;
begin
  FormData := TStringList.Create;
  FormData.LoadFromFile('FormData.xml');
  MyURL := 'https://wxs.ign.fr/essentiels/alti/wps?service=WPS&version=1.0.0';
  Response := TStringList.Create;
  Response.Clear;
  MyHTTPRequest := TFPHTTPClient.Create(self);
  MyHTTPRequest.RequestHeaders.Clear;
  MyHTTPRequest.RequestHeaders.Add('User-Agent: Mozilla/5.0 (compatible; fpweb)');
  MyHTTPRequest.RequestHeaders.Add('Content-Type: application/xml; charset=UTF-8');
  MyHTTPRequest.RequestHeaders.Add('Accept: text/xml');
  MyHTTPRequest.RequestBody := TRawByteStringStream.Create(FormData.Text);
  MyHTTPRequest.AllowRedirect := true;
  try
    MyHTTPRequest.Post(MyURL, Response);
    ShowMessage(Response.Text);
  finally
    FreeAndNil(MyHTTPRequest);
    FreeAndNil(Response);
  end;
end;

Mais dans la réponse il y a quelque chose qu'il n'aime pas dans le xml envoyé.

Ami calmant, J.P

**JP CASSOU** · 28/01/2022, 13h17

Chez moi, il me retourne ceci:

Où se trouve la déclaration de TRawByteString ?

Code XML :

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

1
2
3
4
5
6
7
8
9
<?xml version="1.0" encoding="UTF-8"?>
<ows:ExceptionReport version="1.0.0"
  xsi:schemaLocation="http://www.opengis.net/ows https://wxs.ign.fr/alti/schemas/ows/1.0.0/owsExceptionReport.xsd"
  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:ows="http://www.opengis.net/ows">
  <ows:Exception exceptionCode="NoApplicableCode">
    <ows:ExceptionText>org.xmlpull.v1.XmlPullParserException: namespace prefix is required after xmlns:  when namespaces are enabled (position: START_DOCUMENT seen ...  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"\r\n  xmlns:"... @4:10) 
namespace prefix is required after xmlns:  when namespaces are enabled (position: START_DOCUMENT seen ...  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"\r\n  xmlns:"... @4:10) </ows:ExceptionText>
  </ows:Exception>
</ows:ExceptionReport>

**jurassic pork** · 28/01/2022, 13h28

C'est ce que j'ai aussi mais là c'est un problème dans le xml

**jurassic pork** · 28/01/2022, 14h06

c'est le début du fichier xml qui n'est pas bon : j'ai récupéré un exemple ici ce qui donne pour le xml :

Code xml :

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
32
33
34
35
36
37
38
39
<?xml version="1.0" encoding="UTF-8"?>
<wps:Execute version="1.0.0" service="WPS" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.opengis.net/wps/1.0.0" xmlns:wfs="http://www.opengis.net/wfs" xmlns:wps="http://www.opengis.net/wps/1.0.0" xmlns:ows="http://www.opengis.net/ows/1.1" xmlns:gml="http://www.opengis.net/gml" xmlns:ogc="http://www.opengis.net/ogc" xmlns:wcs="http://www.opengis.net/wcs/1.1.1" xmlns:xlink="http://www.w3.org/1999/xlink" xsi:schemaLocation="http://www.opengis.net/wps/1.0.0 http://schemas.opengis.net/wps/1.0.0/wpsAll.xsd">
  <ows:Identifier>gs:WPSLineElevation</ows:Identifier>
  <wps:DataInputs>
    <wps:Input>
      <ows:Identifier>lon</ows:Identifier>
      <wps:Data>
        <wps:LiteralData>
        -0.02500000|-0.02200000|-0.01900000|-0.01600000|-0.01300000|-0.01000000|-0.00700000|-0.00400000
        </wps:LiteralData>
      </wps:Data>
    </wps:Input>
    <wps:Input>
      <ows:Identifier>lat</ows:Identifier>
      <wps:Data>
        <wps:LiteralData>
        43.08600000|43.08800000|43.09000000|43.09200000|43.09400000|43.09600000|43.09800000|43.10000000
        </wps:LiteralData>
      </wps:Data>
    </wps:Input>
    <wps:Input>
      <ows:Identifier>sampling</ows:Identifier>
      <wps:Data>
        <wps:LiteralData>8</wps:LiteralData>
      </wps:Data>
    </wps:Input>
    <wps:Input>
      <ows:Identifier>format</ows:Identifier>
      <wps:Data>
        <wps:LiteralData>json</wps:LiteralData>
      </wps:Data>
    </wps:Input>
  </wps:DataInputs>
  <wps:ResponseForm>
    <wps:RawDataOutput>
      <ows.Identifier>result</ows.Identifier>
    </wps:RawDataOutput>
  </wps:ResponseForm>
</wps:Execute>

et voici ce que j'obtiens en réponse :

{"elevations": [{"lon": -0.025,"lat": 43.086,"z": 554.11,"acc": 2.5},{"lon": -0.022,"lat": 43.088,"z": 472.94,"acc": 2.5},{"lon": -0.019,"lat": 43.09,"z": 440.27,"acc": 2.5},{"lon": -0.016,"lat": 43.092,"z": 414.81,"acc": 2.5},{"lon": -0.013,"lat": 43.094,"z": 409.81,"acc": 2.5},{"lon": -0.01,"lat": 43.096,"z": 407.07,"acc": 2.5},{"lon": -0.007,"lat": 43.098,"z": 406.92,"acc": 2.5},{"lon": -0.004,"lat": 43.1,"z": 402.68,"acc": 2.5}]}

**JP CASSOU** · 01/02/2022, 18h40

Ca marche mais 'Violation d'accès' sous Linux Mint au droit du Post()

Code :

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

1
2
3
4
5
6
7
try
    MyHTTPRequest.Post(MyURL, Response); // OK sous Windows, VA sur Linux
    ShowMessage(Response.Text);
  finally
    FreeAndNil(MyHTTPRequest);
    FreeAndNil(Response);
  end;

**JP CASSOU** · 14/06/2022, 09h53

Bjr à tous,

Après reprise de mon extracteur d'altitude via un service IGN wxs, je constate que TFPHTTPClient fonctionne très bien avec une URL ordinaire. Par contre, dès que j'interroge le service wxs via les méthodes TFPHTTPClient.Get() ou TFPHTTPClient.Post(), le résultat de get() est une chaîne vide, alors que la même URL dans un navigateur me retourne du XML.

Sous Windows: OK , sous Linux: KO

Interrogation d'un service IGN WPS via TFPHTTPClient

Lazarus Pascal

Discussions similaires

Partager

Partager