Delphi PrestaShop API Example

[IanB]

Can someone give me an example of using Delphi (preferable TIdHttp) to access the PreastaShop API

 

Cheers

[IanB]

After a LOT of experimentation and analyzing network captures the following works:

 

procedure TForm7.DoOnAuthorization(Sender: TObject;

  Authentication: TIdAuthentication; var Handled: Boolean);

begin

  Authentication.Username := ShopKey;

  Authentication.Password := '';

  Handled := true;

end;

 

procedure TForm7.DoOnSelectAuthorization(Sender: TObject;

  var AuthenticationClass: TIdAuthenticationClass; AuthInfo: TIdHeaderList);

begin

  AuthenticationClass := TIdBasicAuthentication;

end;

 

procedure TForm7.FormCreate(Sender: TObject);

var  

  SSLHandler: TIdSSLIOHandlerSocketOpenSSL;

  s: string;

begin

  Client := TIdHttp.Create(self);

  Client.OnAuthorization := DoOnAuthorization;

  Client.OnSelectAuthorization := DoOnSelectAuthorization;

  Client.HTTPOptions := Client.HTTPOptions + [hoInProcessAuth];  

  Client.Request.Accept := '';

  Client.Request.AcceptEncoding := '';

  Client.Request.UserAgent := '';

 

  s := Client.Get('http://mysite.com/api');

end;

[LbAce]

Thank you for this code. It works fine.

 

The GET for an product like  s:= Client.Get('http://mysite.com/api/product/1'); works also.

but the PUT doesn't work.

 

have you any idea ?