Hallo,
arbeite seit kurzem mit Shopware und versuche über ein eignes Programm auf die REST API zu zugreifen. Ich habe erfolgreich ein access_token bekommen (/api/oauth/token).
Aber wenn ich jetzt versuche die “Hersteller” aufzulisten (/api/manufacturers), erhalte ich ein Timeout (Unexpected response status code: 408).
Ich arbeite mit der Programmiersprach FreePascal:
var client : TFPHTTPClient;
stream : TStringStream;
baseURL, body : String;
res : String;
jData : TJSONData;
jObject : TJSONObject;
access_token : String;
begin
baseURL := 'https://';
InitSSLInterface();
client := TFPHTTPClient.Create(nil);
// Get access-token
client.RequestHeaders.Add('Content-Type: application/json');
body := '{' +
'"client_id": "administration",' +
'"grant_type": "password",' +
'"scopes": "read",' +
'"username": "",' +
'"password": ""' +
'}';
stream := TStringStream.Create(body);
client.RequestBody := TStream(stream);
res := client.Post(baseURL + '/api/oauth/token');
client.RequestBody := nil;
jData := GetJSON(res);
Writeln(jData.FormatJSON());
jObject := TJSONObject(jData);
access_token := jObject.Get('access_token');
client.RequestHeaders.Add('Authorization: Bearer ' + access_token);
writeln();
writeln();
// get manufactures-list
Writeln('try to list manufacturers...');
try
writeln(client.Get(baseURL + '/api/manufacturers'));
except
on E:EHTTPClient do begin
Writeln(E.Message);
end;
end;
writeln('done.');
Gotoxy(1,30);
Write('Press any Key for exit.');
Readkey();
end.
Jemand eine Idee, was ich falsch mache? Oder woran das liegen könnte?
LG
Thandor
