Einzelnen Beitrag anzeigen

MartinK

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

AW: Daten abholen von einem CakePHP Server

  Alt 7. Okt 2014, 14:28
Danke nochmal, Michael!

-> iDHTTP.Request.Authentication := TIdBasicAuthentication.Create;
ist bei CakePHP bei mir notwendig, ansonsten gibt's eine EAccessViolation (000000000)

hier nochmal die finale version als "function"

LG Martin

Delphi-Quellcode:
Function Ask4aCloudResponse(aUsername, aPassword, aServerURL, aBody : String ):String;
Var
  iDHTTP: TIdHttp;
begin
  IdHttp := TIdHttp.Create;

  try
    iDHTTP.HandleRedirects := True;
    iDHTTP.Request.BasicAuthentication := True;
    iDHTTP.Request.Authentication := TIdBasicAuthentication.Create;
    iDHTTP.Request.Authentication.Username := aUsername;
    iDHTTP.Request.Authentication.Password := aPassword;
    IdHTTP.Request.ContentType := 'application/json';
    Result := IdHttp.Get(aServerURL + aBody);
  finally
    IdHTTP.Free;
  end;
end;
Martin Kuhn

Geändert von MartinK ( 7. Okt 2014 um 23:38 Uhr)
  Mit Zitat antworten Zitat