Einzelnen Beitrag anzeigen

MartinK

Registriert seit: 21. Jun 2009
Ort: Germering (Germany)
89 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#1

Daten abholen von einem CakePHP Server

  Alt 4. Okt 2014, 17:19
Ich würde gerne folgendes mit Indy realsieren, stehe aber auf dem Schlauch und bräuchte hierzu Denkanstöße

- Ein CakePHP Server soll eine (json) Antwort liefern
- Übergeben werden muss dem Server ein Json-String der angibt welche Funktion ausgeführt werdenmuss, und vor allem auch
- ein String für die Authorisierung als Kompbination von Username + ':' + Passwort in Base64Encoded
(ich weiß wie das Encodieren geht)
Delphi-Quellcode:
Function Encode64(const S: string; const ByteEncoding: IIdTextEncoding = nil): string;
begin
  Result := TIdEncoderMIME.EncodeString(S, ByteEncoding);
end;
....
UsernamePW_base64 := Encode64(aUsername + ':' + aPassword, IndyTextEncoding_UTF8);
dieser Spaß muss dann in ein HTTPHeaderField namens „Authorization“ geschrieben werden.
Dieses Feld soll den Text "Basic " + den base63Encoded String bekommen
Und ich denke genau hier habe ich meinen Hänger denn ich bekomme trotz korrekter Daten immer einen Error 401 / Incorrect Authorisation)
vermutlich liegt es daran wie ich die Authorisation mache

Delphi-Quellcode:
Var
  data: TStringList;

begin
  data := TStringList.Create;
  data.Values['authorization'] := 'Basic '+ UsernamePW_base64;
  //
...
  Response := IdHttp.Post(aURL, data);
....
end;

Help Please!

LG Martin
Martin Kuhn
  Mit Zitat antworten Zitat